HelpMe!!! Eroe in grazia degli dei
Registrato: 16/12/11 21:03 Messaggi: 87
|
Inviato: 07 Gen 2012 19:51 Oggetto: Problemi con la funzione search(risultati...) |
|
|
Salve a tutti, ho un problema: stò provando ad integrare un database access con una funzione di ricerca del mio sito, ma non ci riesco. Non capisco perchè ma quando mi carica la pagina .asp dove è presente il collegamento con il database mi mostra semplicemente ciò che è scritto in linguaggio HTML, lo trovo strano, per caso devo creare delle query particolari?
La funzione search funziona, non funziona solo la pare dei risultati, provate a veedre se ho sbagliato collegamenti magari, o se c'è una spiegazione più logica perchè non riesco propio a capire:
<body>
<%
Dim testo, query
testo = Replace(Request.QueryString("query"), "'", "''")
query = Split(Server.HTMLEncode(testo), " ")
If Len(Trim(testo)) = 0 Then
Response.Write "Inserire un testo per la ricerca"
Else
Dim sc, cn, rs, sql
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("database.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc
sql = "SELECT * FROM documenti WHERE"
For i = 0 To Ubound(query)
If i > 0 Then
sql = sql & " AND"
End If
sql = sql & " descrizione LIKE '%" & query(i) & "%'"
Next
Set rs = cn.Execute(sql)
If rs.EOF Then
Response.Write "Nessun risultato per la ricerca effettuata"
Else
With Response
While rs.EOF = False
.Write "<a href='" & rs("url") & "'>" & rs("titolo") & "</a>"
.Write "<br>" & rs("descrizione") & "<br><br>"
rs.MoveNext()
Wend
End With
End If
Set rs = Nothing
cn.Close()
Set cn = Nothing
End If
%>
</body>
</html> |
|