non so perchè ma adesso non funziona +....cmq vi aggiorno sulla situazione. Il codice è il seguente :

strCategory = Request("category")
strKeywords = Request("keywords")
key=strKeywords
strCountryID = CInt(Request("country"))
strSQL = "SELECT * FROM Jobs WHERE Approved = 1 AND Expire >= "& Date &" "
If strCategory <> 1 Then
strSQL = strSQL & " AND CategoryID = " & strCategory
End IF
If Trim(strKeywords) <> "" then
Dim i
strSQL = strSQL + " AND (Description LIKE '%"+key(0)+"%'"
For i = 0 to Ubound(key)
strSQL = strSQL + " OR Description LIKE '%"+key(i)+"%'"
Next
strSQL = strSQL & " )"
End If
if strCountryID = 69 Then
strSQL = strSQL
else
strSQL = strSQL + "AND Country = " & strCountryID &" "
End If
strSQL = strSQL & " ORDER BY PostDate DESC"

Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objConnection.Open Application("ConnectionString")


Mi da l'errore sulla like, sul Tipo di dato che non corrisponde....mi aiutate per favore?