|
| |
Ricerca in
banca dati anagrafiche
<%
Dim Conn, CONN_USER, CONN_PASS
CONN_USER = ""
CONN_PASS = ""
Set Conn = Server.CreateObject("ADODB.connection")
Conn.Open StrConn
%>
| La stringa verrà cercata in tutti i campi del data base. |
<%
If Request.QueryString("Stringa") <> "" Then
Dim objRS, vsql, crts, tipoana
tipoana = Request("Tipo")
Set objRS = Server.CreateObject("ADODB.Recordset")
crts = "%" & ucase(Request("Stringa")) & "%"
if trim(tipoana) <> "" then
vsql = "Select * from Rubrica where " & Request("Tipo") & " = true and ("
else
vsql = "SELECT * FROM Rubrica where ("
end if
vsql = vsql & " trim(ucase(Persona)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(Azienda)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(Indirizzo)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(Citta)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(CAP)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(Sigla)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(email)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(web)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(tel)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(fax)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(note)) like '" & crts & "' "
vsql = vsql & " or trim(ucase(keyword)) like '" & crts & "' "
vsql = vsql & ") order by Persona, Azienda "
objRS.Open vsql, Conn, 1, 3
%>
| Risultato della ricerca .....Clicca
sul nome per ulteriori informazioni. |
| Persona / Organizzazione |
Indirizzo |
<% Do While Not objRS.EOF %>
| ">
<% =objRS("Persona") %> <% =objRS("Azienda") %> |
<% =objRS("Indirizzo") %> <% =objRS("Cap") %> <% =objRS("Citta") %> |
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
Conn.Close
Set Conn = Nothing
End If %>
| Fine Risultato della ricerca |
|
Equestrian
