problema con query numerica

[don1]

Salve,
ho un problema con una query, qualcuno può aiutarmi?

Come dicevo ho una query e funziona benissimo se utilizzo una "parola chiave" alfabetica; viceversa non funiziona con le chiavi numeriche.

In parle povere se sostiuisco la parola "acqua" col numero "100", il sitema restituisce un errore
Ringrazio anticipatamente chi vorrà suggerire la soluzione


<%
iPageSize = 5

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

acque = "acque"
sql = "SELECT * FROM GIURIS WHERE AT_3 LIKE '%" & acque & "%' ORDER BY data DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
%></p>

<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table border="0" cellpadding="0" cellspacing="10" width="98%" style="border-collapse: collapse" bordercolor="#111111">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<tr>
<td width="2%" valign="top">

[img]../Regioni/images/puntoelenco_1.gif[/img]</td>
<td width="98%">"><%=RS("titolo")%>

<font face="Verdana" size="1"><%=RS("autore")%>

</td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>

[longline]

Posta anche l'errore, ed evidenza la riga a cui avviene.

[don1]

L'errore è certamente nel codice numerico (prima funzionava perfettamente).

Questo è l'errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/temi/prova.asp, line 136
,485,474, = ",485,474,"

[don1]

... e questa è la stessa query, modificata col codice numerico, che rifiuta di collaborare


<%
iPageSize = 5

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

,485,474, = ",485,474,"
sql = "SELECT * FROM GIURIS WHERE AT_3 LIKE '%" & ,485,474, & "%' ORDER BY data DESC;"

RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
%></p>

<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table border="0" cellpadding="0" cellspacing="10" width="98%" style="border-collapse: collapse" bordercolor="#111111">
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<tr>
<td width="2%" valign="top">

[img]../Regioni/images/puntoelenco_1.gif[/img]</td>
<td width="98%">"><%=RS("titolo")%>

<font face="Verdana" size="1"><%=RS("autore")%>

</td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>

[santino83_11_04]

codice_numerico = ",485,474,"
sql = "SELECT * FROM GIURIS WHERE AT_3 LIKE '%" & codice_numerico & "%' ORDER BY data DESC;"