kan somebody please check my code,it doesn't work!!?

[antonio2002]

tnx for your time,
-------------------------------------------------
<%
db1 = &quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=&quot;& Server.MapPath(&quot;db\guestbook.mdb&quot &&quot;;DefaultDir=&quot;& Server.MapPath(&quot;.&quot &&quot;;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5&quot;
Dim DBConn, strSECTION
Set DBConn = Server.CreateObject(&quot;ADODB.Connection&quot
DBConn.Open db1
Set CmdA = Server.CreateObject(&quot;ADODB.Recordset&quot
CmdA.Open &quot;guest&quot;, DBConn,1, 3
if request(&quot;action&quot = &quot;new&quot; then

CmdA.AddNew
if not request(&quot;email&quot = &quot;&quot; then CmdA(&quot;email&quot = replace(request(&quot;email&quot,&quot;&&quot;,&quot;and&quot
if not request(&quot;mess&quot = &quot;&quot; then CmdA(&quot;message&quot = replace(request(&quot;mess&quot,&quot;&&quot;,&quot;and&quot
if not request(&quot;name&quot = &quot;&quot; then CmdA(&quot;name&quot = replace(request(&quot;name&quot,&quot;&&quot;,&quot;and&quot
CmdA.Update
%>succes=1<%


else
%>count=<%=CmdA.recordCount%><%
if not CmdA.Eof then
%>&f_name<%=x%>=<%=CmdA(&quot;name&quot%>&f_mess<%=x%>=<%=CmdA(&quot;message&quot%>&f_email<%=x%>=<%=CmdA(&quot;email&quot%><%
end if
x = 0
do until CmdA.Eof
x = x + 1

%>&name<%=x%>=<%=CmdA(&quot;name&quot%>&mess<%=x%>=<%=CmdA(&quot;message&quot%>&email<%=x%>=<%=CmdA(&quot;email&quot%><%

CmdA.Movenext
loop
-----------------------------------------

 

[onpnt]

whats the error your getting? I'm trying, really I am!
admin@onpntwebdesigns.com

 

[antonio2002]

i have made a flash guestbook.when the guest has write down his name,mail adres and his/her message,-guesbook should put the data in guestbook.mdb,but nothing happens.where can i doing wrong?
tnx for yout attention ONPNT.