Appena apro la pagina contenente il guestbook, mi viene visualizzato l'ultimo msg, + dei bottoni per visualizzare il msg precedente e quello successivo, ma purtroppo questi 2 bottoni non funzionano.
Questo e il codice dei 2 bottoni:
########## MSG Precedente ##############
on (release) {
loadVariablesNum("ASP/listaMsg.asp?id=" + id + "&muovi=prev",0);
}
############ MSG Successivo #############
on (release) {
loadVariablesNum("ASP/listaMsg.asp?id=" + id + "&muovi=next",0);
}
######### Pagina ASP #################
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim sql
sql = "SELECT * FROM tbMsg ORDER BY tbMsg.IDMsg DESC"
Dim rs
Set rs = objConn.Execute(sql)
if request.querystring("id")<>"" and request.querystring("muovi")<>"" then
'Valori inviati, procedo allo spostamento del cursore
rs.find "IDMsg=" & request.querystring("id")
'Controllo il valore di muovi
if request.querystring("muovi")="next" then
'Record precedente (ovvero successivo nel RecordSet)
rs.moveNext
'Controllo se è all'inizio del RecordSet
if rs.bof then rs.moveNext
else
'Record successivo (ovvero precedente nel RecordSet)
rs.movePrevious
'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("IDMsg") & "&mittente=" & rs("Mittente") & "&email=" & rs("Email") & "&msg=" & rs("Msg") & "&dataC=" & rs("Data") & "&oraMsg=" & rs("Ora"))
rs.Close
Set rs=Nothing
objConn.Close
Set objConn = Nothing
%>
#################################
Vorrei sapere se il codice che uso per i bottoni va bene, oppure devo modificarlo?
Ho provato anke ad inserire "GET" ma non mi funzionava cmq.