Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/jai/addmember.asp, line 93
Invalid class string
Line 93 is:
SET myMail = Server.CreateObject("CDONT
S.Newmail"
)
My code is:
<%
Response.Cookies("JAI").Ex
pires = "Jan 1, 2005"
Response.Buffer = True%>
<html><title>iBuddyList.co
m - Member Sign-Up</title></head><bod
y>
<table border="0" width="100%">
<tr>
<td width="100%"><img border="0" src="defaul1.gif"></td>
</tr>
</table>
<table border="0" width="100%" bgcolor="#FFFFFF" bordercolorlight="#FFFFFF"
bordercolordark="#4B6194" cellspacing="1">
<tr>
<td width="100%" bordercolor="#336699" bgcolor="#336699">
<p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">Sign up
Now! | Members Login | Services | Help</font></b></td>
</tr>
</table>
<table border="0" width="100%" height="1" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" height="1" bgcolor="#FFFFFF" valign="baseline" colspan="2">
<p align="center"><font face="Tahoma" size="1"><b>Welcome</b> to
iBuddyList.com <b>Time:</b> 9:41pm <b>Date:</b> 9/16/00</font></td>
</tr>
<tr>
<td width="25%" height="1" bgcolor="#15266C" valign="baseline">
<p align="center"><b><font face="Verdana" color="#FFFFFF" size="1">What is
iBuddyList.com?</font></b>
</td>
<td width="75%" height="1" valign="top"></td>
</tr>
<tr>
<td width="25%" bgcolor="#336699" height="1">
<p align="center"><font size="1" color="#FFFFFF" face="Tahoma">iBuddyList.c
om
is a great place to monitor your buddies online status without downloading
any software. See if your buddy is online and instant message them, and
best of all, its free!</font><p align="center"> <p align="center"> </td>
<td width="75%" height="1" bgcolor="#FFFFFF" valign="top">
<%AddMember%>
</tr>
</table>
</body>
</html>
<!-- #INCLUDE FILE="adovbs.inc" -->
<% Sub AddMember()
Dim sUserName, sPassWord, sSecondPass, RS
Dim I ' Standard looping var
sEmail = Request.Form ("txtemail")
sUserFull = Request.Form ("txtfull")
sUserName = Request.form("txtcompany")
sPassWord = Request.Form("txtphone")
sFax = Request.form("txtfax")
sAddress = Request.form("txtaddr1") & vbCrLF & Request.form("txtAddr2")
sCity = Request.form("txtcity")
sState = Request.form("txtState")
sZip = Request.form("txtZip")
If instr(1,sEmail,"@",1) = 0 then
response.write "<font face =tahoma size=1>Invalid Email Address.</font><br>"
sEmail = ""
end if
If len(sEmail) > 4 then
Response.Cookies("JAI")("M
emberName"
) = sUserFull
Response.Cookies("JAI")("M
emberCompa
ny") = sUserName
Response.Cookies("JAI")("M
emberEmail
") = sEmail
Response.Cookies("JAI")("M
emberPhone
") = sPassword
Response.Cookies("JAI")("M
emberAddre
ss") = sAddress
Response.Cookies("JAI")("M
emberCity"
) = sCity
Response.Cookies("JAI")("M
emberState
") = sState
Response.Cookies("JAI")("M
emberZip")
= sZip
Response.Cookies("JAI")("M
emberFax")
= sFax
Response.Write "Thanks for registering"
'################MAIL THE PERSON!!!!!!!!!!!
DIM myMail
Dim mBody
SET myMail = Server.CreateObject("CDONT
S.Newmail"
)
myMail.From = "kevin@johnsonadvertising.
com"
myMail.To = sEmail
myMail.Subject = "Thank You for subscribing to Johnson Advertising's Mailing List."
mBody = mBody & "<font face=verdana size=1><b>
www.johnsonadvertising.com - Member List ;)</b>" & vbCrLf & vbCrLf & vbCrLf
mBody = mBody & "Dear " & sUserFull & ":" & vbCrLf & vbCrLf
mBody = mBody & " Click <a href =
http://www.johnsonadvertising.com/subscribe.asp> Here</a> to varify your subscription to Johnson Advertising. "
mBody = mBody & "Upon varifying a free mug will be mailed to you!" & vbcrlf & vbcrlf
mBody = mBody & vbCrLf & "Contact us at info@johnsonadvertising.co
m if you have any questions." & vbCrLf & vbCrLf
mBody = mBody & "Sincerly,"
mBody = mBody & vbCrLf & vbCrLf
mBody = mBody & "Kevin Johnson" & vbcrlf
mBody = mBody & "
www.johnsonadvertising.com.com </font>"
myMail.Body = mBody
myMail.Send
SET myMail = Nothing
Elseo
response.write "<font face=verdana size=1>Please go back and fill out all the information correctly. Thank you :-]"
end if
End SUb
%>