Send web page usng ASP

[RICHARD BROMBERG]

I am already using ASP/Cdonts to send the contents of a Form by e-mail and
would like to include a link on my page to send the page itself by e-mail
to a named recipient.

Can anyone start me in the right direction. ?

 

[Steven Burn]

<%
Dim sTemp, sSubject, sRecipient
sTemp = Request.ServerVariables("url") & "?" & Request.Querystring
sSubject = "Whatever"
sRecipient = "(e-mail address removed)"
%>

<a href="mailto:<%=sRecipient%>?subject=<%=sSubject%>&body=<%=sTemp%>"><%=sTemp%></a>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

 

[RICHARD BROMBERG]

Thanks Steve

I didn't express myself clearly (as usual).

I want is the person looking at the web page to enter (into a form) his/her
name and the e-mail address of another person, the recipient.

The ASP program will read these and set up the "From" and "To" fields for
the Cdonts object . Then I will use Cdonts to send the e-mail.

I want to send the content of the actual page or at least the URL of the
page to the recipient.

I will try to convert my ASP code that reads a form and e-mails the content
of the form to a program that reads the senders name and the recipients
e-mail address and sends the page or the URL of the page.

Again Thanks.
R Bromberg




<%
Dim sTemp, sSubject, sRecipient
sTemp = Request.ServerVariables("url") & "?" & Request.Querystring
sSubject = "Whatever"
sRecipient = "(e-mail address removed)"
%>

<a
href="mailto:<%=sRecipient%>?subject=<%=sSubject%>&body=<%=sTemp%>"><%=sTemp%></a>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

 

[Steven Burn]

Oh right....... in that case;

<%
'// thispage.asp

Dim bConf
bConf = Request.Querystring("s")
Select Case bConf
Case "1"
sSendTo = Request.Form("txtTo") '// To name
sSendToMail = Request.Form("txtToMail") '// To e-mail
sSendFrom = Request.form("txtFrom") '// From name
sSendFromMail = Request.Form("txtFromMail") '// From mail
sSubject = "I sent this"
sPageURL = "<a href=" & Request.Form("txtURL") & ">" & Request.Form("txtURL") & "</a>"

Case Else
'// Body is stored in a hidden field
Body = Request.ServerVariables("sBody") & "?" & Request.Querystring
%>
<form action="thispage.asp?bconf=1" method="post">
<input type="hidden" name="txtURL" value="<%=Body%>">
Recipient Name: <input type="text" name="txtTo" value="">
Recipient Addr: <input type="text" name="txtToMail" value="">
Your name: <input type="text" name="txtFrom" value="">
Your Addr: <input type="text" name="txtFromMail" value="">
<input type="Submit" value="submit" name="btnSubmit">
</form>
<%
End Select
%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

 

[RICHARD BROMBERG]

Steve

Many thanks .


Dick Bromberg
Oh right....... in that case;

<%
'// thispage.asp

Dim bConf
bConf = Request.Querystring("s")
Select Case bConf
Case "1"
sSendTo = Request.Form("txtTo") '// To name
sSendToMail = Request.Form("txtToMail") '// To e-mail
sSendFrom = Request.form("txtFrom") '// From name
sSendFromMail = Request.Form("txtFromMail") '// From mail
sSubject = "I sent this"
sPageURL = "<a href=" & Request.Form("txtURL") & ">" &
Request.Form("txtURL") & "</a>"

Case Else
'// Body is stored in a hidden field
Body = Request.ServerVariables("sBody") & "?" &
Request.Querystring
%>
<form action="thispage.asp?bconf=1" method="post">
<input type="hidden" name="txtURL" value="<%=Body%>">
Recipient Name: <input type="text" name="txtTo" value="">
Recipient Addr: <input type="text" name="txtToMail" value="">
Your name: <input type="text" name="txtFrom" value="">
Your Addr: <input type="text" name="txtFromMail" value="">
<input type="Submit" value="submit" name="btnSubmit">
</form>
<%
End Select
%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

 

[Steven Burn]

Your welcome ;o)

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!