I started a new job and changed where the site was hosted. Apparently the other server had aspmail installed.
I have this page and I get an error on line 16:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/RegVerify1.asp, line 16
800401f3
Line 16 is:
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Can I modify this pahe to use cdonts or something?... HELP!!
<%@ Language=VBScript %>
<%
s_link = Request("ntpg")
s_redirect = s_link & "info1.asp"
Session("s_email") = Request("email")
's_error = fnCheckInput()
'if (s_error <> "") then
'Response.Redirect("index1
.asp?reg_e
rror=" & s_error & "&ntpg=" & s_link)
'end if
'v_expire = dateadd("m",1,date())
'Response.Cookies("e100gro
up")("reg"
) = "true"
'Response.Cookies("e100gro
up").Expir
es = v_expire
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
'Mailer.FromName = Session("s_fname") & Session("s_lname")
Mailer.FromAddress = Session("s_email")
Mailer.Subject = "SOA Director Online Demonstration Request"
s_bodytext = s_bodytext & Session("s_email") & vbCRLF
Mailer.BodyText = s_bodytext
Mailer.RemoteHost = "mail-fwd.vwh1.net"
Mailer.AddRecipient "Mark Ambert", "mambert@e-100group.com"
if Mailer.SendMail then
Set RespMailer = Server.CreateObject ("SMTPsvg.Mailer")
' Message sent sucessfully. Response acknowledgement
s_bodytext = "Thank you for your interest SOA Director. If you would like to hear from a SOA Director representative, please reply to this e-mail." & vbCRLF & vbCRLF
s_bodytext = s_bodytext & "Sincerely," & vbCRLF & "Mark Ambert" & vbCRLF & vbCRLF
s_bodytext = s_bodytext & "Mark Ambert Sales & Marketing e-Onehundred Group, LLC." & vbCRLF
s_bodytext = s_bodytext & "Phone: 860.628.9443 ext. 104" & vbCRLF
s_bodytext = s_bodytext & "Fax: 860.628.9089" & vbCRLF
s_bodytext = s_bodytext & "E-mail: mambert@e-100group.com" & vbCRLF
s_bodytext = s_bodytext & "Website:
www.soadirector.com" & vbCRLF
RespMailer.Subject = "Thank you"
RespMailer.FromName = "Mark Ambert"
RespMailer.FromAddress = "mambert@e-100group.com"
RespMailer.BodyText = s_bodytext
RespMailer.RemoteHost = "mail-fwd.vwh1.net"
RespMailer.AddRecipient sName,Session("s_email")
if RespMailer.SendMail then
'Okay to redirect
response.redirect(s_redire
ct)
end if
end if
'Message send failure
response.write ("Your message was not sent. ")
response.write ("The error was: " & Mailer.Response)
'function fnCheckInput()
'dim iPosAt,iPosPeriod,iLen,bCo
ntinue
'bContinue = true
's_fielderror = ""
'l_email = Session("s_email")
'iPosAt = Instr(1,l_email,"@")
'iPosPeriod = Instr(1,l_email,".")
'iLen = len(l_email)
'if not(iPosAt >1) or not(iPosPeriod > (iPosAt+1)) or not(iPosPeriod < iLen) then
' s_fielderror = s_fielderror & "Email Address, "
'bContinue = false
'end if
'if not(bContinue) then
' s_fielderror = left(s_fielderror, len(s_fielderror)-2)
'end if
'fnCheckInput = s_fielderror
'end function
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<P> </P>
</BODY>
</HTML>
Start Free Trial