suddenly get this error:
error '80040108'
/geta.asp, line 23
which is : ObjMail.Body = "Instructions" & vbtab & instructions & vbcrlf&_
and while I'm at it, why did the 'yourname' and the 'creditcard' fields return
blank values, (when there was no error, that is).
this is the code:
<%
Dim
instructions,track,bladder,yourname,address,city,s tate,zip,country,phone,creditc
ard,expdate,email
instructions = Request.Form("instructions")
track = Request.Form("track")
bladder = Request.Form("bladder")
yourname = Request.Form("yourname")
address = Request.Form("address")
city = Request.Form("city")
state = Request.Form("state")
zip = Request.Form("zip")
country = Request.Form("country")
phone = Request.Form("phone")
creditcard = Request.Form("creditcard")
expdate = Request.Form("expdate")
email = Request.Form("email")
Dim kits
kits = Request.Form("kits")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "hw*****@cox.net"
ObjMail.From = "in**@dinghydogs.com"
ObjMail.Subject = "Dinghy Dogs order"
ObjMail.Body = "Instructions" & vbtab & instructions & vbcrlf&_
"Track" & vbtab & track & vbcrlf&_
"Bladder" & vbtab & bladder & vbcrlf&_
"Name" & vbtab & yourname & vbcrlf&_
"Address" & vbtab & address & vbcrlf&_
"City" & vbtab & city & vbcrlf&_
"State" & vbtab & state & vbcrlf&_
"Zip" & vbtab & zip & vbcrlf&_
"Country" & vbtab & country & vbcrlf&_
"Phone" & vbtab & phone & vbcrlf&_
"Card#" & vbtab & credit & vbcrlf&_
"Exp.Date" & vbtab & expdate & vbcrlf&_
"Email" & vbtab & email & vbcrlf&_
"Ordered" & vbtab & kits & vbcrlf&_
ObjMail.Send
Set ObjMail = Nothing
Response.Write"Thank You For Your Order"
--
Harvey Waxman DMD
73 Wright Lane
Wickford, RI 02852
Remove thefrown to email me
