Forums
This topic is locked
Server.CreateObject Failed ???
Posted 15 Aug 2001 22:21:37
1
has voted
15 Aug 2001 22:21:37 ben tilford posted:
I followed the tutorial on UDnewbie.com - register to the letter...but i keep getting the following error message:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/favourites/dynamic_pages/register_ok.asp, line 35
800401f3
Here is the whole of the code:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connfavourites.asp" -->
<%
Dim rsSubmitConfirm__strUserName
rsSubmitConfirm__strUserName = "xyz"
if (Session("svUserName" <> "" then rsSubmitConfirm__strUserName = Session("svUserName"
%>
<%
set rsSubmitConfirm = Server.CreateObject("ADODB.Recordset"
rsSubmitConfirm.ActiveConnection = MM_connfavourites_STRING
rsSubmitConfirm.Source = "SELECT * FROM FavesMembers WHERE UserName ='" + Replace(rsSubmitConfirm__strUserName, "'", "''" + "'"
rsSubmitConfirm.CursorType = 0
rsSubmitConfirm.CursorLocation = 2
rsSubmitConfirm.LockType = 3
rsSubmitConfirm.Open()
rsSubmitConfirm_numRows = 0
%>
<%
Dim strRecipient
Dim strFirstName
Dim strLastName
Dim strUserName
Dim strPassword
strRecipient = rsSubmitConfirm.Fields.Item("Email".Value
strFirstName = rsSubmitConfirm.Fields.Item("FirstName".Value
strLastName = rsSubmitConfirm.Fields.Item("LastName".Value
strUserName = rsSubmitConfirm.Fields.Item("UserName".Value
strPassword = rsSubmitConfirm.Fields.Item("Password".Value
%>
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail"
objCDO.From = " "
objCDO.To = strRecipient
objCDO.Subject = "Favouritesonline.com Registration"
objCDO.Body = "<font face='arial' size ='3'>" &_
"Hello!" & strFirstName &""& strstrLastName &_
"<br>" &_
"Email conformation from favouritesonline.com" &_
"<br>" &_
"Here are your registration details:" &_
"<br>" &_
"Username:" & strUserName &_
"<br>" &_
"Password:" & strPassword &_
"<p>" &_
"Go to <a href='www.favouritesonline.com'>favouritesonline.com</a> to log in and get started..." &_
"<p>" &_
"Regards," &_
"<br>" &_
"Admin Staff" &_
"<br>" &_
"Favouritesonline.com" &_
"</font>"
objCDO.Send()
Set objCDO = Nothing
%>
<html>
<head>
<title>>>> Favouritesonline.com - Register OK <<<</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p><%=(rsSubmitConfirm.Fields.Item("UserName".Value)%> </p>
<p><%=(rsSubmitConfirm.Fields.Item("Password".Value)%> </p>
<p><%=(rsSubmitConfirm.Fields.Item("FirstName".Value)%></p>
<p><%=(rsSubmitConfirm.Fields.Item("LastName".Value)%></p>
<p><%=(rsSubmitConfirm.Fields.Item("Email".Value)%></p>
</body>
</html>
<%
rsSubmitConfirm.Close()
%>
Does anyone know why it's failing Server.CreateObject ?
Cheers...Ben...
Replies
Replied 15 Aug 2001 23:36:57
15 Aug 2001 23:36:57 Joel Martinez replied:
well, it seems that there are one of two possibilities.
1. The server administrator has restricted access the CDONTS object (either by removing it, or by placing permission restrictions on it)
or
2. it is not present on the server.
either way, the web server admin needs to look into this...
(BTW, if you're using brinkster free hosting, you don't have access to that component)
hope that helps
Joel Martinez
----------
set rs = conn.execute("SELECT answer FROM brain WHERE question = "& forumPost &"
1. The server administrator has restricted access the CDONTS object (either by removing it, or by placing permission restrictions on it)
or
2. it is not present on the server.
either way, the web server admin needs to look into this...
(BTW, if you're using brinkster free hosting, you don't have access to that component)
hope that helps
Joel Martinez
----------
set rs = conn.execute("SELECT answer FROM brain WHERE question = "& forumPost &"