quale ricerca?

[spighy]

Scusate,
avrei un problemino : devo effettuare la ricerca in un textbox (keywords) ma non funziona la concatenazione dei valori immessi dall'utente.
Ecco il codice :



If strKeywords = "" OR strKeywords = "undefined" then
Response.Redirect("search.asp")
End If
key = Split(Request("keywords")," ")

strSQL = "SELECT * FROM Jobs WHERE Approved = 1 AND Expire >= "& Date &" "

For i = 1 to len(key)
strSQL = strSQL + " AND"
strSQL = strSQL + "keywords LIKE '%" + key(i) + "%'"
Next
strSQL = strSQL & " ORDER BY PostDate DESC"
Response.Write(strSQL)


Vi ringrazio della risposta.Ciao

[optime]

key è un array? si usa UBound, non Len

[spighy]

Originariamente inviato da optime
key è un array? si usa UBound, non Len

infatti che stupido...grazie

[optime]

Originariamente inviato da spighy
infatti che stupido...grazie

optime!

[spighy]

Originariamente inviato da optime
optime!

sai una cosa : adesso mi da un errore :
Impossibile visualizzare l'input XML tramite il foglio di stile .
Correggere l'errore, quindi fare clic su Aggiorna, oppure riprovare in un momento successivo.


eehhhh??? in un documento Asp, ci sta XML pure? e quando glielo passo?

Mi aiuti per favore a capire di che si tratta

[optime]

aspetta che mi si scaldi la sfera di cristallo a carbonella, così vedo il tuo codice a distanza ....












dai, dacci qualche elemento in più....

[spighy]

Originariamente inviato da optime
aspetta che mi si scaldi la sfera di cristallo a carbonella, così vedo il tuo codice a distanza ....












dai, dacci qualche elemento in più....

non c'è bisogno della sfera in questo caso, basta rileggere il codice soprastante e sostituire a len, UBound...chiaro no?

[spighy]

Cmq trovato, era un "Response.write" di merda.....adesso pare che funziona...

[spighy]

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?