Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Server.CreateObject Failed

Status
Not open for further replies.

joelxez

Programmer
Apr 18, 2002
67
PH
dear experts,

i'm having an error, what is this, what can i do, pls help me...

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/log/forgot.asp, line 50

800401f3




--here my code--

<%mmm = request(&quot;mode&quot;)
if mmm = &quot;forgot&quot; then
%>
<form action=&quot;forgot.asp?mode=send&quot; method=post>
<div align=&quot;center&quot;>
<center>
Please enter your email below and we will have your password mailed to you!</center>
</div>
<div align=&quot;center&quot;>
<center>
<p>
<font face=&quot;Verdana&quot; size=&quot;2&quot;>Your Email :</font>
<font face=&quot;Verdana&quot; size=&quot;2&quot;> <input type=&quot;text&quot; name=&quot;email&quot; size=30></font>

<input type=submit value=&quot;Submit&quot;> </p>


</center>
</div>
</form>
<%end if%>

<%if mmm = &quot;send&quot; then

email = Request.Form(&quot;email&quot;)

ConnString = &quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=&quot; & Server.MapPath(&quot;member.mdb&quot;)

set my_conn= Server.CreateObject(&quot;ADODB.Connection&quot;)
my_Conn.Open ConnString
set rs = my_conn.Execute (&quot;select email,name,password from member where email='&quot; & email & &quot;'&quot;)

if rs.eof then
Response.Write &quot;Invalid Email address&quot;
else
name = rs(&quot;name&quot;)
password = rs(&quot;password&quot;)
email = trim(rs(&quot;email&quot;))
subject = &quot;Password reminder form - cscro8.tripod.com.com!&quot;

Bodytext = &quot;This is your username and password!&quot; & vbCrLf
Bodytext = Bodytext & &quot;Username :&quot; & email & vbCrLf
Bodytext = Bodytext & &quot;Password :&quot; & password & vbCrLf & vbCrlf

Footertext = &quot;Thank you for supporting us!&quot; & vbCrlf
Footertext = Footertext & &quot;
message = Bodytext & Footertext

Set Mailer = Server.CreateObject(&quot;SMTPsvg.Mailer&quot;)
Mailer.FromName = &quot;cscro8.tripod.com.com&quot;
Mailer.FromAddress = &quot;webmaster@cscro8.zzn.com&quot;
Mailer.RemoteHost = &quot;syntacs.mozcom.com; mail.yahoo.com&quot;
Mailer.Subject = subject
Mailer.BodyText = message
Mailer.AddRecipient name , email
Mailer.SendMail
set Mailer = nothing

Response.Write &quot;Password has been send to your email address : &quot; & email


end if
rs.close
my_conn.close
set my_conn = nothing

end if
 
I think your server didn't support
Code:
SMTPsvg.Mailer
.
That's why it fails.

*JJ26* ;-)

 
JJ26,

i'm using PWS, what other servers you mentioned.

Joel
 
Joel,
but you have the application of SMTPsvg in your computer (where u put your PWS ) ???
 
JJ26,

i can't find SMTPsvg in my computer but i have PWS installed with windows 98 OS. Do you have any example just similar my code given above which get the username and password with the given email address?

Joel
 
Snowboardr,

Thanks, good idea...

Joel
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top