FP2000 - Error with ASP Tell a Friend Script

G

Gauthier

Hi there...i found this tell a friend script on the web and am trying to
incorporate it onto my website but keep getting the following error:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/emailthispageconfirm.asp, line 125
Invalid class string
- please note: i am a novice user - i found this code on the web and it is
supposed to be a simple copy/paste thing and it's turning out to be over my
head -
- i checked w/ my ISP beforehand, and they do support ASP

i have been all over the web on this and have found the following possible
solutions/causes:
- it means that the component has not been installed or registered on the
server. run regsvr32 to install and register the .dll.
(i have no idea WHAT .dll file to install/register, and no idea HOW to do
this)
- try installing the newest version of Microsoft MDAC
(how do i know what version i have, and if i need to install a newer
one??)

my DEFAULT.HTM page contains the following code:

<A HREF="../emailthispage.asp"><img border = 0
src="images/tell_a_friend4.gif" width="104" height="34"></A>
clicking on this image link successfully takes me to the
"emailthispage.asp" - no probs so far

my EMAILTHISPAGE.ASP page contains the following code:

<FORM action="emailthispageconfirm.asp" method="post" name="emailthispage">
<font face="Arial">
<input type="hidden" name="URL" value="<%= strURL %>"></font>
<%
DIM strURL
strURL = Request.ServerVariables("HTTP_Referer")
IF strURL = "" THEN
Response.Write "Sorry, your browser does not support this function."
END IF
%>
<p><font face="Arial"><b>Page Link:</b> <%= strURL %></font></p>
<TABLE width="74%" border="0">
<TR><TD width="34%"><DIV align="right"><font face="Arial">Your
Email:</font></DIV></TD>
<TD width="66%"><font face="Arial"><input type="text" name="YourEmail"
size="40"></font></TD></TR>
<TR><TD width="34%"><DIV align="right"><font face="Arial">Your First
Name:</font></DIV></TD>
<TD width="66%"><font face="Arial"><input type="text" name="YourName"
size="40"></font></TD></TR>
<TR><TD width="34%"><DIV align="right"><font face="Arial">Recipient's
Email:</font></DIV></TD>
<TD width="66%"><font face="Arial"><input type="text" name="RecipEmail"
size="40"></font></TD></TR>
<TR><TD width="34%"><DIV align="right"><font face="Arial">Recipient's First
Name:</font></DIV></TD>
<TD width="66%"><font face="Arial"><input type="text" name="RecipName"
size="40"></font></TD></TR>
</TABLE>
<TABLE width="629" border="0" height="107">
<TR><TD height="20" width="621"><font
face="Arial">Comments:</font></TD></TR>
<TR><TD height="79" width="621"><font face="Arial"><TEXTAREA name="Comments"
cols="84" rows="5"></TEXTAREA></font></TD></TR>
</TABLE>
<p align="left"><font face="Arial"><input type="submit" value="Submit">
</font>
</FORM>

my EMAILTHISPAGECONFIRM.ASP contains the following code:

<%
DIM Mailer, strEmail, strMsgHeader, qryItem, strMsgInfo
DIM strYourEmail, strYourName, strRecipEmail, strRecipName, strComments,
strURL, Mail
strYourEmail = Request.Form("YourEmail")
strYourName = Request.Form("YourName")
strRecipEmail = Request.Form("RecipEmail")
strRecipName = Request.Form("RecipName")
strComments = Request.Form("Comments")
strURL = Request.Form("URL")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = strYourEmail
Mailer.ReplyTo = strYourEmail
Mailer.RemoteHost = "www.integratedsoftwaresolutions.ca"
Mailer.AddRecipient strRecipName, strRecipEmail
Mailer.Subject = "Look at this page from Integrated Software Solutions
website"
strMsgHeader = "This mail message was sent from
www.integratedsoftwaresolutions.ca website" & vbCrLf & vbCrLf
Mailer.BodyText = strMsgHeader & vbCrLf & strRecipName & "," & vbCrLf &
vbCrLf & strYourName & " wants you to take a look at this page at Integrated
Software Solutions:" & vbCrLf & "Page Link: " & strURL & vbCrLf & vbCrLf &
strComments
IF Mailer.SendMail THEN
%>
<%
strYourName = request.form("YourName")
Response.Write strYourName
%>
<font face="Arial">
,</font>
<p><font face="Arial">Thank you for sharing this page with
<%
strRecipName = request.form("RecipName")
Response.Write strRecipName
%>
..&nbsp;</font></p>
<p><font face="Arial"> Your message has been sent successfully and will be
received by
<%
strRecipName = request.form("RecipName")
Response.Write strRecipName
%>
shortly.</font></p>
<%
ELSE
Response.Write "Sorry, there was an error and your email could not be sent
at this time."
END IF
%>

i can't seem to get anywhere! - u'll see from an earlier post, i started
trying to add some PHP script but found it too difficult (involving FTP'g
and such)
appreciate your assistance!
thanks!
sandi
 
B

Bob Lehmann

Whever it is you have this hosted, does not have this component installed -
SMTPsvg.Mailer (ASPMail from ServerObjects).

You will need to find out what Mail components your host supports.

Bob Lehmann
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top