Ragazzi ho questo problema. Ho un sito in flash. Vorrei interfacciarlo con un db Access in modo che nella home.swf del sito si richiamino dei campi di un database e da un pannello di amministrazione sempre in Flash si modifichino i contenuti del sito.
<%
'<< intercetta l'azione del bottone
action = Request("action")
answer = Request("answer")
if action = "rd" Then
RD() '<< scrive
elseif action = "sg" Then
' L'applicazione prima inserisce i dati nel DB e dopo manda i dati per le statistiche
SG() '<< legge
RD() '<< srive
else
message = "Nessuna striga SQL presente"
response.write ("message=" +URLEncode(message)+"&cconfirm=1")
response.end
End If
'<< Funzione scrittura dati nel database
Function SG()
'<< apertura e collegamento database
Dim Con, rs, strSQL
Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
server.MapPath("NOME_DB.mdb")
Set rs = server.CreateObject ("ADODB.Recordset")
strSql="Select * From NOME_TABELLA"
rs.Open strSql, con, 3, 3
'<< da flash gli passiamo la variabile della risposta e aggiorniamo il database
If answer="1" Then
rs.Fields("primo")= Request.Form("primo")
rs.Fields("primoo")= Request.Form("primoo")
rs.Fields("sec")= Request.Form("sec")
End If
rs.Update
rs.Close
End Function
'<< Funzione lettura dati dal database
Function RD()
'<< apertura e collegamento database
Dim Con, rs, strSQL
Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
server.MapPath("NOME_DB.mdb")
Set rs = server.CreateObject ("ADODB.Recordset")
strSql="Select * From NOME_TABELLA"
rs.Open strSql, con, 3, 3
'<< leggiamo i dati nel db e visualizzati nel form di flash
response.write ("&primo" & "="+ rs("primo"))
response.write ("&secondo" & "="+ rs("secondo"))
response.write ("&terzo" & "="+ rs("terzo"))
response.write ("&loaded=1")
End Function
%>
Questo è il codice della pagina asp che poi richiamo da Flash con:
loadVariables ("paginaasp.asp?action=sg/rd", this);
Ma non funziona!!
Rispondi quotando
