FP2000 - Error with ASP Tell a Friend Script

  • Thread starter Thread starter Gauthier
  • Start date Start date
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
 
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
 
Back
Top