... my english is terrible !
strSQL = "SELECT marsh, polnyi, id " _
& "FROM Question WHERE (marsh LIKE "
Dim Pos
Pos = 1
While Pos > 0
Pos = InStr(1, strpoisk," ")
If Pos = 0 Then
strSQL = strSQL & "'%" & strpoisk & "%')"
Else
strSQL = strSQL & "'%" & Mid(strpoisk,1,Pos) & "%' OR polnyi LIKE "
strpoisk = Mid(strpoisk,Pos+1,len(strpoisk))
End If
Wend
strSQL = strSQL & "ORDER BY id;"
response.write strSQL
try this code !
Steweb
Visit my web site !
www.steweb.net