Re: E-mailing contents of redirect page.
- From: "cismic" <cismic@xxxxxxx>
- To: "[ISAserver.org Discussion List]" <isalist@xxxxxxxxxxxxx>
- Date: Wed, 25 Feb 2004 22:08:50 -0800
Hi John,
A redirect is different then using CDO on a web page. what does the rest of
the code look like?
Joseph
----- Original Message -----
From: "John Tolmachoff (Lists)" <johnlist@xxxxxxxxxxxxxxxxxxx>
To: "[ISAserver.org Discussion List]" <isalist@xxxxxxxxxxxxx>
Sent: Wednesday, February 25, 2004 10:04 PM
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:
cismic@xxxxxxx
To unsubscribe send a blank email to $subst('Email.Unsub')
Other related posts:
