#### pag. ke scrive ####
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<%

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open "tbMsg",objConn,3,3
objRS.AddNew

objRs("Mittente") = Request.Form("mittenteF")
objRS("Email") = Request.Form("emailF")
objRs("Msg") = Request.Form("messaggioF")
objRS("Data") = Date()
objRS("Ora") = Time()

objRS.Update

objRs.Close
Set objRs = Nothing

objConn.Close
Set objConn = Nothing
%>
############ pag ke legge #####

<%@ Language=VBScript %>
<% Option Explicit %>


<%

Dim sql
sql = "SELECT * FROM tbMsg ORDER BY IDMsg DESC"

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorType = 3

rs.Open sql, objConn

Dim vId
vId = Request.QueryString("id")

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.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("IDMsg") & "&mittente=" & rs("Mittente") & "&email=" & rs("Email") & "&messaggio=" & rs("Msg") & "&dataC=" & rs("Data") & "&oraMsg=" & rs("Ora"))


rs.Close
Set rs=Nothing

objConn.Close
Set objConn = Nothing
%>