Hi I have a problem
This code below used to work but Im now using it on a larger form, The form I am using has 86 fields as does the database but when I submit it it goes ok, but when I get the email and the database they are both empty, I have used this page below and taken off all but two fields and it still does the same the DB is blank as is the email.
Any ideas?????
Please
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection"
set rst = Server.CreateObject("ADODB.RecordSet"
cnn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=D:/Root/sqltext = "SELECT * FROM Eval"
rst.Open sqltext,cnn,3,3
'Server Side form validation to keep our database clean
dim No_Rides,Date_Rides
No_Rides = Request.Form("No_Rides"
Date_Rides = Request.Form("Date_Rides"
rst.AddNew
rst("No_Rides"
= No_Rides
rst("Date_Rides"
= Date_Rides
rst.update
%>
<%
Dim strNo_Rides
strNo_Rides = request.form("No_Rides"
%> <%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.AddRecipient "Nick Daines", "nick@site.com"
Mailer.FromName = "form"
Mailer.FromAddress= "webmaster@mysite.org"
Mailer.RemoteHost = "mail.mysite.org"
Mailer.Subject = "form"
Mailer.BodyText = "RForm"
Mailer.BodyText = "Rides - " & strNo_Rides
Mailer.BodyText = "DO NOT REPLY TO THIS EMAIL IT WAS AUTO GENERATED"
if Mailer.SendMail then
Response.Write "Form Sent..."
else
Response.Write "Form send failure. Error was " & Mailer.Response
end if
%>
This code below used to work but Im now using it on a larger form, The form I am using has 86 fields as does the database but when I submit it it goes ok, but when I get the email and the database they are both empty, I have used this page below and taken off all but two fields and it still does the same the DB is blank as is the email.
Any ideas?????
Please
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection"
set rst = Server.CreateObject("ADODB.RecordSet"
cnn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=D:/Root/sqltext = "SELECT * FROM Eval"
rst.Open sqltext,cnn,3,3
'Server Side form validation to keep our database clean
dim No_Rides,Date_Rides
No_Rides = Request.Form("No_Rides"
Date_Rides = Request.Form("Date_Rides"
rst.AddNew
rst("No_Rides"
rst("Date_Rides"
rst.update
%>
<%
Dim strNo_Rides
strNo_Rides = request.form("No_Rides"
%> <%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.AddRecipient "Nick Daines", "nick@site.com"
Mailer.FromName = "form"
Mailer.FromAddress= "webmaster@mysite.org"
Mailer.RemoteHost = "mail.mysite.org"
Mailer.Subject = "form"
Mailer.BodyText = "RForm"
Mailer.BodyText = "Rides - " & strNo_Rides
Mailer.BodyText = "DO NOT REPLY TO THIS EMAIL IT WAS AUTO GENERATED"
if Mailer.SendMail then
Response.Write "Form Sent..."
else
Response.Write "Form send failure. Error was " & Mailer.Response
end if
%>