|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
<%
if not Request.Form("voc")="" or not Request.Form("tip")="" then
Public objConn ' E' l'oggetto usato per l'apertura della conessione col DB tramite ODBC
Public objRec ' E' l'oggetto usato per la restituzione dei risultati della Query
Dim strSQL ' E' la variabile utilizzata per contenere la stringa dell'interrogazione SQL
Dim strtemp ' Questa stringa viene utilizzata solo per verificare se vengono inseriti dei valori
' nei campi AZIENDA ed IDIRIZZO, perchč se questi hanno dei dati, bisogna aggiungere AND
' nell'interrogazione SQL nella parte del WHERE
Dim richiesta ' Variabile utilizzata per specificare in modo leggibile la richiesta, fatta dall'utente,
' durante la visualizzazione dei dati
Dim risposta ' Contiene una singola riga della tabella utilizzata come risposta intermedia e nel primo campo
' contiene il link a "sec-ric.html" con tutti i parametri necessari alla seconda visualizzazione estesa
Dim azi ' Variabili utilizzate per passare i nomi col carattere "'" sostituito dalla stringa "%27"
Dim ind
Dim cit
Dim pos ' Posizione stringa
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath ("../database/glossario.mdb")
' Costruzione della stringa dell'interrogazione SQL per somma di parti
strSQL = "SELECT * "
strSQL = strSQL & "FROM Dizionario "
strSQL = strSQL & "WHERE "
' Questo if aggiunge al comando WHERE le il campo di ricerca specificato dall' utente nella variabile "voc"
If Request.Form("voc") <> "" Then
strSQL = strSQL & "Dizionario.NOME LIKE '" & Request.Form("voc") & "%'"
End If
If Request.Form("voc") <> "" Then
strSQL = strSQL & " AND Dizionario.TIPOLOGIA LIKE '" & Request.Form("tip") & "%'"
else strSQL = strSQL & "Dizionario.TIPOLOGIA LIKE '" & Request.Form("tip") & "%'"
End If
' *******************************************************************************
' *******************************************************************************
' Esecuzione della Query SQL con la stringa strSQL debitamente modificata dagli if
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, objConn, 3
' *******************************************************************************
' *******************************************************************************
' Controllo dei risultati da visualizzare, presenti o meno
%> <%If objRec.BOF and objRec.EOF Then%>
Spiacente nessuna corrispondenza trovata Spiacente troppi valori trovati, restringere la selezione Risultati della ricerca rispetto al seguente parametro: <% =Request.Form("voc") %>
<%End If%> <%End If%> <% ' Chiusura del DataBase objrec.Close objConn.Close Set objrec = Nothing Set objConn = Nothing end if %> GLOSSARIONUOVA RICERCA
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Glaucoma | Difetti Refrattivi | Cataratta | Degenerazione Maculare | Retinopatia Diabetica | Occhio Secco | Ipovisione | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Lenti a contatto | Chirurgia Oculoplastica | Oculistica Pediatrica | Occhio e annessi oculari | Strabismo | Illusioni ottiche | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
