allora, la pagina di ricerca e' htm, la pagina che visualizza i risultati e' asp
http://www.cucinareconamore.it/cerca.htm
http://www.cucinareconamore.it/motore/richieste.asp
mi hanno dato un codice da inserire nella pagina ma non va...
allora questa e' la mia pagina risultati.asp
<%
'Inserire all'inizio della pagina asp
Dim tempoi, tempof, tempop
tempoi = Timer
%>
<%
Dim prechiave
Dim tipo
prechiave=request.querystring("form_chiave")
tipo=request.querystring("tipo")
if tipo="tutte" then
change="%'and descrizione like'%"
chiave=Replace(prechiave," ", change)
else
chiave=prechiave
end if
Dim iPageSize 'Numero di record da visualizzare
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim strSQL 'Comando da eseguire
Dim RS 'Il solito amico Recordset
Dim iRecordsShown 'Variabile usata per definire i record mostrati
Dim miastringa 'Variabile utilizzata per la visualizzazione dei risultati
Dim nuovastringa 'Variabile utilizzata per la visualizzazione dei risultati
' Imposto il numero di record visualizzati
iPageSize = 8
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/cerca.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM cerca where descrizione like '%"&chiave&"%' ORDER BY " & strOrderBy & " DESC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
Dim totale
totale = rs.recordcount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
response.redirect("search_again.htm")
Else
RS.AbsolutePage = iPageCurrent
%>
<p align=“center”>Home <font color="cc0000"></font>
Nuova ricerca <font color="cc0000">
La ricerca ha prodotto <% = totale %> risultati</font></p>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
"><%= rs("percorso")%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%
miastringa = RS("descrizione")
nuovastringa = Mid( miastringa, 1, 200)
response.write(nuovastringa)&"..."
%></font></p>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Conn.Close
Set Conn= Nothing
%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pagina <%= iPageCurrent%> di <%= iPageCount%></font>
<%
If iPageCurrent <> 1 Then
%>
indietro
<% end if %>
<%If iPageCurrent < iPageCount Then
%>
avanti >
</p>
<% end if %>
<%
'Da inserire alla fine della pagina
tempof = Timer
'tempop non è altro che la differenza dei due tempi
tempop = tempof - tempoi
'Arrotondamento, si può anche non fare...
tempop = Round(tempop, 4)
Response.Write "Pagina creata in " & tempop & " sec."
%>
mi e' stato detto:
1) Inserisci all'inizio (proprio in cima al tuo file risultati.asp questo listato:
Quote:
--------------------------------------------------------------------------------
<%
strRichiesta = request.querystring("form_chiave")
If strRichiesta <> "" Then
Set cn=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/richieste.mdb")
cn.Open openStr
sql = "SELECT * FROM archivio WHERE richiesta='" & strRichiesta & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3
If rs.EOF or rs.BOF Then
rs.AddNew
rs("richiesta") = strRichiesta
rs("numero") = 1
else
rs("numero") = rs("numero") + 1
End If
rs.close
set rs = nothing
cn = close
set cn = nothing
End If
%>
--------------------------------------------------------------------------------
2) Inserisci in una cartella qualsiasi del tuo sito il file richieste.asp (che ti posto integralmente qui sotto) che richiamerai ogni volta che vuoi vedere l'elenco delle richieste fatte
Quote:
--------------------------------------------------------------------------------
<%
Set cn=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/richieste.mdb")
cn.Open openStr
sql = "SELECT * FROM archivio ORDER BY numero desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn
%>
<html>
<body>
<p align="center"><font face="Verdana" size="2">ELENCO RICHIESTE</font></p>
<%
If Not (rs.eof Or rs.bof) Then
Do while not rs.EOF
%>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="50%"><font face="Verdana" size="2"><%=rs("richiesta")%> (<%=rs("numero")%>)</font></td>
</tr>
</table>
<%
rs.MoveNext
Loop
End If
rs.close
set rs = nothing
cn = close
set cn = nothing
%>
</body>
--------------------------------------------------------------------------------
3) Scarica da QUI il db richieste.mdb (lo trovi in formati zip da scompattare) e inseriscilo nella cartella mdb-database
ho seguito le iscrtuzioni, ma la pagina non andava...cosi mi e state data questa modifica...
strRichiesta = request.querystring("form_chiave") con strRichiesta = request.form("form_chiave")
ma ancora non va
Rispondi quotando