Ho questo codice :
'--NOME (partial and exact search)
If Not IsEmpty(Request("NOME")) Then
Dim strNOME
strNOME = Trim(Request("NOME"))
If strNOME <> "" Then
'Test for WHERE
If blnWhere Then sql = sql & "AND " Else sql = sql & "WHERE " : blnWhere = True
If (Left(strNOME, 1) = "*" And Len(strNOME) > 1) Then 'Partial search
sql = sql & "(NOME LIKE '%" & Replace(Mid(strNOME, 2), "'", "''") & "') "
ElseIf (Right(strNOME, 1) = "*" And Len(strNOME) > 1) Then 'Partial search
sql = sql & "(NOME LIKE '" & Replace(Mid(strNOME, 1, Len(strNOME)-1), "'", "''") & "%') "
Else 'Exact match
sql = sql & "(NOME = '" & Replace(strNOME, "'", "''") & "') "
End If
Putroppo la ricerca funziona solo con il termine esatto e non con le iniziali. Avete dei suggerimenti ? Grazie per la cortesia . Antonella

Rispondi quotando
- succube della Honda 