View Single Post
  #1 (permalink)  
Old 06-10-2007, 05:49 PM
» ---> @
Posts: n/a
[SOLVED] Can someone add in the programming needed to fix my ASP mailer?

I'm using CDOSYS (CDO.Message). The mailer worked perfectly well on the other server, but now that I've switched servers, it's telling me that my SendUsing value is invalid. I don't know anything about setting up configuration. The website is www.cliqimaging.com, the Ip Address is 64.68.234.20. I don't even know the difference between the different sendusing values. Here's the programming:

<%
Option Explicit

Dim strBody, objMail
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody

sFrom = "contact@cliqimaging.com"
sTo = "jbromwell@contactimaging.com"
sSubject = "Online Contact Request from CliqImaging.com Website"
sTextBody = strBody

strBody = "Request recieved at: " & Now() & vbCrLf & vbCrLf
strBody = strBody & "Name: " & Request("namef") & vbCrLf
strBody = strBody & "Address: " & Request("addressf") & vbCrLf
strBody = strBody & "City: " & Request("cityf") & vbCrLf
strBody = strBody & "State: " & Request("statef") & vbCrLf
strBody = strBody & "Zip: " & Request("zipcodef") & vbCrLf
strBody = strBody & "Daytime Phone: " & Request("dayphonef") & vbCrLf
strBody = strBody & "Evening Phone: " & Request("altphonef") & vbCrLf
strBody = strBody & "E-Mail Address: " & Request("emailf") & vbCrLf
strBody = strBody & "Service Interested In: " & Request("messagef") & vbCrLf

' Create an instance of the mail object and set its properties.
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom
objMail.To = sTo
objMail.Subject = sSubject
objMail.TextBody = sTextBody

' Send the message
objMail.Send

' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objMail = Nothing
%>

__________________

Digg this Post! Del.Icio.Us this Post! Technorati this Post! Furl this Post! Mister Wong this Post! Newsvine this Post! Spurl this Post! Reddit this Post! Netscape this Post!