ho modificato un po lo la pagina asp del guestbook scaricato da quì,guestbook
mi visualizza il messaggio ma non mi scorre i record perchè dove sta l'errore?
<%
dim Conn, strConn
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("mex.mdb")
Set Conn=Server.CreateObject("ADODB.connection")
Conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM messaggi ORDER BY idn DESC"
rs.Source = "messaggi"
rs.Open sql, Conn,1,3
if request.querystring("id")<>"" and request.querystring("muovi")<>"" then
'Valori inviati, procedo allo spostamento del cursore
rs.find "idn=" & request.querystring("id")
'Controllo il valore di muovi
if request.querystring("muovi")="next" then
'Record precedente (ovvero successivo nel RecordSet)
rs.movePrevious
'Controllo se è all'inizio del RecordSet
if rs.bof then rs.moveNext
else
'Record successivo (ovvero precedente nel RecordSet)
rs.moveNext
'Controllo se è alla fine del RecordSet
if rs.eof then rs.movePrevious
end if
end if
'Invio le variabili a Flash indicando anche il numero ID del record
Response.Write("id=" & rs("idn") &"&testo=" & rs("testo") & "&nome=" & rs("nome"))
rs.Close
Set rs=Nothing
%>
Rispondi quotando