C
cincinati
Gast
Hi zusammen!!!!!
Ich bastle jetzt schon seit drei Tagen um ein Flash Guestbook herum mit Access Datenbank!!! Nun was ich falsch mache weiss ich nicht aber ich hoffe Ihr könnt mir weiterhelfen .......
zunächst habe ich eine Datenbank erstelt mit den nötigen Variablen(das sollte zu 99.9Prozent stimmen)
unter dem Namen guestbook.mdb! Die ASP Datei läut unter dem Namen guestbook.asp mit folgendem code:
<%
db1 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("guestbook.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim DBConn, strSECTION
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open db1
Set CmdA = Server.CreateObject("ADODB.Recordset")
CmdA.Open "guest", DBConn,1, 3
if request("action") = "new" then
CmdA.AddNew
if not request("email") = "" then CmdA("email") = replace(request("email"),"&","and")
if not request("mess") = "" then CmdA("message") = replace(request("mess"),"&","and")
if not request("name") = "" then CmdA("name") = replace(request("name"),"&","and")
CmdA.Update
%>succes=1<%
else
%>count=<%=CmdA.recordCount%><%
if not CmdA.Eof then
%>&f_name<%=x%>=<%=CmdA("name")%>&f_mess<%=x%>=<%=CmdA("message")%>&f_email<%=x%>=<%=CmdA("email")%><%
end if
x = 0
do until CmdA.eof
x = x + 1
%>&name<%=x%>=<%=CmdA("name")%>&mess<%=x%>=<%=CmdA("message")%>&email<%=x%>=<%=CmdA("email")%><%
CmdA.Movenext
loop
end if
CmdA.Close
Set CmdA = nothing
DBConn.Close
Set DBConn = nothing
%>
Zu der Datei guestbook.mdb habe ich auch unter ODBC-Datenquelle ein System-DSN mit Accsess Treiber und Pfad zu der Datei eingefügt!
Beim Flash selber habe ich folgenden Script eingefügt:
Unter Frame1 : x = "1";
Unter Frame2 : stop ();
loadVariables ("guestbook.asp", "");
und Genau dass geschiet nicht !!!!!!!! Ich weiss nicht aus welchem Grund !!!!!! Wo mache ich einen Fehler????
Ich bastle jetzt schon seit drei Tagen um ein Flash Guestbook herum mit Access Datenbank!!! Nun was ich falsch mache weiss ich nicht aber ich hoffe Ihr könnt mir weiterhelfen .......
zunächst habe ich eine Datenbank erstelt mit den nötigen Variablen(das sollte zu 99.9Prozent stimmen)
unter dem Namen guestbook.mdb! Die ASP Datei läut unter dem Namen guestbook.asp mit folgendem code:
<%
db1 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("guestbook.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim DBConn, strSECTION
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open db1
Set CmdA = Server.CreateObject("ADODB.Recordset")
CmdA.Open "guest", DBConn,1, 3
if request("action") = "new" then
CmdA.AddNew
if not request("email") = "" then CmdA("email") = replace(request("email"),"&","and")
if not request("mess") = "" then CmdA("message") = replace(request("mess"),"&","and")
if not request("name") = "" then CmdA("name") = replace(request("name"),"&","and")
CmdA.Update
%>succes=1<%
else
%>count=<%=CmdA.recordCount%><%
if not CmdA.Eof then
%>&f_name<%=x%>=<%=CmdA("name")%>&f_mess<%=x%>=<%=CmdA("message")%>&f_email<%=x%>=<%=CmdA("email")%><%
end if
x = 0
do until CmdA.eof
x = x + 1
%>&name<%=x%>=<%=CmdA("name")%>&mess<%=x%>=<%=CmdA("message")%>&email<%=x%>=<%=CmdA("email")%><%
CmdA.Movenext
loop
end if
CmdA.Close
Set CmdA = nothing
DBConn.Close
Set DBConn = nothing
%>
Zu der Datei guestbook.mdb habe ich auch unter ODBC-Datenquelle ein System-DSN mit Accsess Treiber und Pfad zu der Datei eingefügt!
Beim Flash selber habe ich folgenden Script eingefügt:
Unter Frame1 : x = "1";
Unter Frame2 : stop ();
loadVariables ("guestbook.asp", "");
und Genau dass geschiet nicht !!!!!!!! Ich weiss nicht aus welchem Grund !!!!!! Wo mache ich einen Fehler????
