cari e preziosissimi amici
ho scritto il codice che sotto elenco facendo un mezzo collage fra i vari tutorial tra cui "flash e asp"
ma ho due problemi..
in versione "locale" funziona tutto bene
quindi per trasferirlo online ho modificato la connessione al db
ma da subito mi viene indicato un errore alla riga evidenziata nelcodice soto elencato
per cui l'ho esclusa
ciò nonostante il primo reperimento delle informazioni (primo record della tab del db) funziona
dal secondo non ottengo nessuna risposta: ne errori ne dati
la pagina viene chiamata da un filmato flash che in versione "locale" funziona alla grande
mi potreste aiutare a risolvere i due problemi??
[codice]
<%
'Stringa per la connessione
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("guestbook.mdb")
'creazione connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apertura connessione
objConn.Open cString
'creazione recordset
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="tbmsg" ' inserisci qui il nome della tabella da vedere
'query sql
sql = "select * from "&nometabella&""
Set rs.ActiveConnection = objconn
rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic ***l'errore viene rilevato qua per cui ho escluso la riga***
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
%>
[codice]
grazie infinite a tutti
ciao
Rispondi quotando