Intervallo di selezione

[mr.fifteen]

Devo fare una ricerca impostata su tre campi.
Il recordset che ho nella pagina che mi restituisce i risultati è quello che posto qui di seguito... solo che vorrei fare in modo che se io inserisco una grandezza non mi trovi il valore esatto ma una forbice di valori tipo 100 metri in più e 100 metri in meno... come posso fare?

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("localita") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("localita")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "1"
If (Request.QueryString("tipologia")  <> "") Then 
  Recordset1__MMColParam2 = Request.QueryString("tipologia") 
End If
%>
<%
Dim Recordset1__MMColParam3
Recordset1__MMColParam3 = "1"
If (Request.QueryString("grandezza")   <> "") Then 
  Recordset1__MMColParam3 = Request.QueryString("grandezza")  
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_norditalia2_STRING
Recordset1.Source = "SELECT *  FROM portfolio  WHERE localita LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' AND tipologia = '" + Replace(Recordset1__MMColParam2, "'", "''") + "' AND grandezza = '" + Replace(Recordset1__MMColParam3, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

Salu ti

[agenti]

SELECT * FROM portfolio WHERE grandezza >= (tuo_parametro - 100) and grandezza <= (tuo_parametro + 100)

ovviamente il resto sistematelo tu

[mr.fifteen]

Ma non ci riesco uffi...
Premetto che uso le impostazioni di dreamweaver... ho provato così...

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("localita") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("localita")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "1"
If (Request.QueryString("tipologia")  <> "") Then 
  Recordset1__MMColParam2 = Request.QueryString("tipologia") 
End If
%>
<%
Dim Recordset1__MMColParam3
Recordset1__MMColParam3 = "1"
If (Request.QueryString("grandezza")   <> "") Then 
  Recordset1__MMColParam3 = Request.QueryString("grandezza")  
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_norditalia2_STRING
Recordset1.Source = "SELECT *  FROM portfolio  WHERE localita LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' AND tipologia = '" + Replace(Recordset1__MMColParam2, "'", "''") + "' AND grandezza >= '" + Replace(Recordset1__MMColParam3, "'", "''")-100 + "' AND grandezza <= '" + Replace(Recordset1__MMColParam3, "'", "''")+100 + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

[agenti]

grandezza >= '" + Replace(Recordset1__MMColParam3 -100 , "'", "''")

[mr.fifteen]

Mi da questo errore

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/norditalia/portfolio2.asp, line 34

La linea 34 è quella che apre il recordset

[elfa]

ma grandezza è numerico?

[mr.fifteen]

si...

[elfa]

allora perchè per il parametro usi una stringa?

[mr.fifteen]

non so,
sono abbastanza ignorante in merito... ora sto provando così:

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_norditalia2_STRING
Recordset1.Source = "SELECT *  FROM portfolio  WHERE localita LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' AND tipologia = '" + Replace(Recordset1__MMColParam2, "'", "''") + "' AND grandezza >= (Request.Form(""grandezza"") -100)"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

ma non va...
mi da questo errore

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Funzione 'Request.Form' non definita nell'espressione.
/norditalia/portfolio2.asp, line 34

line 34 è sempre quella dell'apertura del recordset

[agenti]

sto benedetto dreamweaver....


grandezza >= "&(Request.Form("grandezza") -100)&"

se non va stampa la query.