clueless about error 80040108

[Harvey Waxman]

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,state,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 = "(e-mail address removed)"
ObjMail.From = "(e-mail address removed)"
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"

 

[Ray at]

See here: http://www.aspfaq.com/show.asp?id=2386

Also, unless you're on an NT 4 server, you should switch to CDO. CDONTS has
been retired. http://www.aspfaq.com/show.asp?id=2026

Ray at work

 

[Harvey Waxman]

See here: http://www.aspfaq.com/show.asp?id=2386

Also, unless you're on an NT 4 server, you should switch to CDO. CDONTS has
been retired. http://www.aspfaq.com/show.asp?id=2026

Ray at work

Thank you very much. Now if I can only figure out what to do and how to do it

 

[Tom Kaminski [MVP]]

suddenly get this error:


error '80040108'

/geta.asp, line 23

which is : ObjMail.Body = "Instructions" & vbtab & instructions & vbcrlf&_

"Email" & vbtab & email & vbcrlf&_
"Ordered" & vbtab & kits & vbcrlf&_
ObjMail.Send

look at :

"Ordered" & vbtab & kits & vbcrlf&_

 

[Harvey Waxman]

Also, unless you're on an NT 4 server, you should switch to CDO. CDONTS
has
been retired. http://www.aspfaq.com/show.asp?id=2026

Ray at work

Thank you very much. Now if I can only figure out what to do and how to do
it
[/QUOTE]

Ray,

As I said, I know nothing about ASP. I just modified a script I found. What I
see in your references are tutorials that assume I know far more than I do.

Is there any resource where I can find a simple script to email a basic form on
my web page with CDO instead of CDONTS?

 

[Ray at]

As I said, I know nothing about ASP. I just modified a script I found. What I
see in your references are tutorials that assume I know far more than I do.

Is there any resource where I can find a simple script to email a basic form on
my web page with CDO instead of CDONTS?

Did you read the second link? http://www.aspfaq.com/show.asp?id=2026

Ray at work

 

[Harvey Waxman]

look at :

"Ordered" & vbtab & kits & vbcrlf&_

That line doesn't return an error. It also looks exactly the same to me as the
line that does return the error.

"Instructions" & vbtab & instructions & vbcrlf&_

what do you mean?

 

[Tom Kaminski [MVP]]

That line doesn't return an error. It also looks exactly the same to me as the
line that does return the error.

"Instructions" & vbtab & instructions & vbcrlf&_

what do you mean?

The "&_" at the end of the line means you want to concatenate it with the
next line, which I think is the ".Send" one. That's not what you want to
happen, is it?

 

[Harvey Waxman]

The "&_" at the end of the line means you want to concatenate it with the
next line, which I think is the ".Send" one. That's not what you want to
happen, is it?

The line beginning with "instructions" is the first line of a series of fields
to be returned.

This is the code:

<%
Dim
instructions,track,bladder,yourname,address,city,state,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 = "(e-mail address removed)"
ObjMail.From = "(e-mail address removed)"
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]

It was the " & vbcrlf&_" that needed to be removed from this line. I
misunderstood what people were telling me.

thanks all

 

[Tom Kaminski [MVP]]

It was the " & vbcrlf&_" that needed to be removed from this line. I
misunderstood what people were telling me.

Yup!