ASP Server Side Programming Help
Q: I made an effort for my web site it is supposed to be a contact us email. The page has a form that you fill out with comments and it gets emailed to the website chairperson. Here is the Code I used:
<
Set fromUser=Request.Form("username")
Set messageContent=Beseech.Form("usercomments")
Set email=CreateObject("CDO.Message")
email.Cause="Hilaal.org Comment"
email.From="info@hilaal.org"
email.To="raptor753@gmail.com"
email.HTMLBody="From: " fromUser "<br />" messageContent
SmtpMail.SmtpServer="email hilaal.org"
email.Send
Set email=Nothing
>
And this is the Error I keep Getting:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/contactus.asp, line 26
Thanksgiving owing to you for any help.
A: You can't "createobject" in ASP. This is VB syntax. You indigence to "Server.Createobject" in ASP because you want the web server to create the object.
Here's some code for you
Set objMailer=Server.CreateObject("CDO.Communiqu")
strSender="you@me.com"
strRecipient="your@email.com"
mailserver = "post.yourserver.com"
objMailer.Subject = strSubject
objMailer.From = strSender
objMailer.To = strRecipient
objMailer.HTMLBody = strMessage
objMailer.Configuration.Fields.Matter("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMailer.Configuration.Fields.Ingredient("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailserver
objMailer.Configuration.Fields.Notice("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMailer.Configuration.Fields.Update
strResult = objMailer.Send
set objmailer = nothing
looks like yahoo cuts off the issue. Go here
http://fishcounts.com/cdomail.txt