cari amici ho svilupato un codice per la lettura e l'immissione di redord in un db tramite un filmato flash
tutto ha funzionato per il meglio ma ora incorro in un problema
quando inserisco un nuovo record nel db, lo stesso non è immediatamente disponbile per la consultazione, e infatti non "attingo" nessun dato, cosa che invece avviene dopo moooolto tempo.
faccio presente che le due pagine hanno funzionato benissimo per un pò, ma poi senza apportare modifiche incorrono nel problema che ho esposto
allego i codici delle due pagine
[inizio codice pagina lettura]
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\mdb-database\guestbook.mdb")
'creazione connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apertura connessione
objConn.Open cString
'creazione recordset
Set rs = Server.CreateObject("ADODB.Recordset")
'query sql
sql = "select * from tbMsg ORDER BY IDMsg DESC"
Set rs.ActiveConnection = objconn
adOpenKeyset = 1 ***
rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic
rs.Source = "tbMsg"
'apertura recordset
rs.Open sql, objConn
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") & "&msg=" & rs("Msg") & "&datora=" & rs("Data") & " - " & rs("Ora"))
rs.Close
Set rs=Nothing
%>
[fine codice pagina lettura]
[inizo codice pagina immissione]
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\mdb-database\guestbook.mdb")
'creazione connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apertura connessione
objConn.Open cString
'creazione recordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = objconn
rs.Source = "tbmsg"
rs.CursorType = 1 ***
rs.LockType = 2 ***
'apertura recordset
rs.Open
rs.AddNew
rs("Mittente") = Request.Form("mittente")
rs("Email") = Request.Form("email")
rs("Msg") = Request.Form("msg")
rs("Data") = Date()
rs("Ora") = Time()
rs.Update
rs.Close
Set rs = Nothing
%>
[fine codice pagina immissione]
può dipendere dalle istruzioni che ho segnalato con gli ***?
grazie ciao
Rispondi quotando
