RE: E-mailing contents of redirect page.
- From: "Mike Malter" <mike@xxxxxxxxxxxxxx>
- To: "[ISAserver.org Discussion List]" <isalist@xxxxxxxxxxxxx>
- Date: Wed, 25 Feb 2004 22:32:29 -0800
This is email code I am using in an asp page, hope it helps:
dim objEmail, strBody
set objEmail = Server.CreateObject("CDONTS.NewMail")
objEmail.To = m_EmailAddress
objEmail.From = "register@xxxxxxxxxxxxxxxx"
objEmail.Bcc = "mike@xxxxxxxxxxxxxxxx;cezanna@xxxxxxxxxxxxxxxx"
objEmail.Subject = "Joyous Living registration successfull"
strBody = m_FirstName & ", " & vbCrLf & vbCrLf & vbTab
strBody = strBody & "Thank you for registering at Joyous Living"
strBody = strBody & vbCrLf & vbCrLf & vbTab & "Now you can go to the
profile link on the menu to update your preferences at any time. Please
enjoy the site. We welcome any feedback you may have about it."
objEmail.Body = strBody
objEmail.Send
set objEmail = nothing
Mike Malter
(415) 479-1968 Office
(415) 309-4637 Mobile
(415) 462-2941 FAX
-----Original Message-----
From: John Tolmachoff (Lists) [mailto:johnlist@xxxxxxxxxxxxxxxxxxx]
Sent: Wednesday, February 25, 2004 10:04 PM
To: [ISAserver.org Discussion List]
Subject: [isalist] E-mailing contents of redirect page.
http://www.ISAserver.org
I have a client using the Burstek web filter for ISA server. They have a
redirect.asp that works nicely.
I would like to add a way for users to click on a link that will e-mail
the
same information to me if they think they should have access to the web
site.
Below is the code of the redirect.asp. How would the line go for
e-mailing?
(I know very little about HTML code and even less about ASP.) I am only
concerned is the reason is the requested web page is categorized as ...
________________________________________________________________________
____
_____________________
<% If Len( Request.QueryString( "url" ) )>0 Then %>
<h3 align="center"><font face="Arial">You have requested <a href="<% =
Request.QueryString( "url" ) %>"><% = Request.QueryString( "url" )
%></a></font></h3>
<% End If %>
<h3 align="center"><font face="Arial">Access to the requested web page
is
denied by Burst Technology's bt-ISAFilter.</font></h3>
<%
Dim sReason
Select Case Request.QueryString( "reason" )
Case 1
sReason = "You are supposed to have no permission for Web
browsing."
Case 2
sReason = "Requested web page does not fit permitted Web area."
Case 3
sReason = "Requested web page is restricted <font
color=""#FF0000"">"
& Server.HTMLEncode( Request.QueryString("value") ) & "</FONT>."
Case 4
sReason = "The Requested web page is categorized as <font
color=""#FF0000"">" & Server.HTMLEncode( Request.QueryString("value") )
&
"</FONT>."
Case 5
sReason = "Personal quota has been exceeded."
Case 6
sReason = "Quota on <font color=""#FF0000"">" & Server.HTMLEncode(
Request.QueryString("value") ) & "</FONT> Web area has been exceeded."
Case 7
sReason = "Quota on <font color=""#FF0000"">" & Server.HTMLEncode(
Request.QueryString("value") ) & "</FONT> category has been exceeded."
End Select
If Len(sReason)>0 Then %>
<h3 align="center"><font face="Arial"><% = sReason %></font></h3>
________________________________________________________________________
____
___________________________________
John Tolmachoff
Engineer/Consultant/Owner
eServices For You
------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=isalist
ISA Server Newsletter: http://www.isaserver.org/pages/newsletter.asp
ISA Server FAQ: http://www.isaserver.org/pages/larticle.asp?type=FAQ
------------------------------------------------------
Other Internet Software Marketing Sites:
Leading Network Software Directory: http://www.serverfiles.com
No.1 Exchange Server Resource Site: http://www.msexchange.org
Windows Security Resource Site: http://www.windowsecurity.com/
Network Security Library: http://www.secinf.net/
Windows 2000/NT Fax Solutions: http://www.ntfaxfaq.com
------------------------------------------------------
You are currently subscribed to this ISAserver.org Discussion List as:
mike@xxxxxxxxxxxxxx
To unsubscribe send a blank email to
$subst('Email.Unsub')
Other related posts:
