valore numerico

[davide_web]

Aiuto...

Prelevo 3 variabili da una pagina cosi:

localita=TRIM(Request("localita"))
dal=TRIM(Request("dal"))
al=TRIM(Request("al"))

Le date Dal e Al le so gestire, ma non so come strutturare la query per quanto riguarda il valore numerico (localita).

La mia difficolta è qui:

...
sql="SELECT * from email "


if (localita <> "TUTTE") and (dal <> "") and (al <> "") then
sql = sql + " where localita = '%" & localita & "%' and data between #" & Dal & "# and #" & Al & "#"
end if
...

Mi da l'errore

Tipi di dati non corrispondenti nell'espressione criterio.

[Sypher]

controlla in che modo arriva il formato delle date...convertile con CDate...inoltre nella condizione localita='%dfdf%' io metterei il LIKE al posto dell'uguale

[davide_web]

Ma le date funzionano.
è il numerico che non funziona

[Roby_72]

Come può "localita" essere numerico se può valere "tutte"?

Roby

[Sypher]

Originariamente inviato da Roby_72
Come può "localita" essere numerico se può valere "tutte"?

Roby

ehm non avevo letto tutto il post
rinnovo la domanda di Roby quindi

[davide_web]

I dati di localita arrivano da un combo che ha come prima riga TUTTE e poi mi passa il valore del comune selezionato...

<select name="localita">
<option value="TUTTE">TUTTE</option>
<%do while not rs.eof
valore=Rs("cod_comune")
nome=Rs("comune")
response.write("<option value=" & valore &">" & nome &"</option>")
Rs.movenext
loop %>
</select>

[Sypher]

allora:

 localita=" & localita & " and data between....

[davide_web]

sempre il solito problema. Provo a postare il codice della pagina...

<%
localita=TRIM(Request("localita"))
dal=TRIM(Request("dal"))
al=TRIM(Request("al"))
%>



<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * from email "


if (localita <> "TUTTE") and (dal <> "") and (al <> "") then
sql = sql + " where localita = " & cint(localita) & " and data between #" & Dal & "# and #" & Al & "#"
end if
if (localita <> "TUTTE") and (dal = "") and (al = "") then
sql = sql + " where localita = " & cint(localita)
end if
if (localita <> "TUTTE") and (dal <> "") and (al = "") then
sql = sql + " where localita = " & cint(localita) & " and data > #" & Dal & "#"
end if
if (localita = "TUTTE") and (dal <> "") and (al <> "") then
sql = sql + " where data between #" & Dal & "# and #" & Al & "#"
end if
if (localita = "TUTTE") and (dal <> "") and (al = "") then
sql = sql + " where data > #" & Dal & "#"
end if
if (localita = "TUTTE") and (dal = "") and (al = "") then
Response.Write("Ecco tutte le mail salvate su archivio.")
end if
rs.Open sql, conn,1,3
Do While (Not rs.EOF)
Response.Write("
")
Response.Write("
")
Response.Write rs("contratto")
Response.Write("
")
Response.Write rs("mail")
Response.Write("
")
Response.Write rs("richiesta")
Response.Write("
")
Response.Write rs("risposta")
Response.Write("
")
Response.Write rs("data")
Response.Write("
")
Response.Write rs("localita")
Response.Write("
")
Response.Write rs("investimento")
Response.Write("
")
Response.Write rs("cognome")
Response.Write("
")
Response.Write rs("appunti")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>



<table>
<tr>
<td align="center" class="titolo2" colspan="2">
&lt;&lt; Torna alla pagina precedente
</td>
</tr>
</table>

[Sypher]

cmq sembra esatto

[davide_web]

Ho capito cos'è.
Non posso lasciare le date vuote altrimenti da errore.
Come ovviare al problema?