Re: E-mailing contents of redirect page.
- From: Jim Harrison <jim@xxxxxxxxxxxx>
- To: "[ISAserver.org Discussion List]" <isalist@xxxxxxxxxxxxx>
- Date: Wed, 25 Feb 2004 22:26:24 -0800
The simple way is to use CDOSYS to send mail.
http://isatools.org/cdosys.vbs is an example of this.
Jim Harrison
MCP(NT4, W2K), A+, Network+, PCG
http://isaserver.org/Jim_Harrison/
http://isatools.org
Read the help / books / articles!
On Wed, 25 Feb 2004 22:04:25 -0800
"John Tolmachoff \(Lists\)" <johnlist@xxxxxxxxxxxxxxxxxxx> wrote:
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:
jim@xxxxxxxxxxxx
To unsubscribe send a blank email to $subst('Email.Unsub')
Other related posts:
