<% @ Language=VBScript %>
<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Rich Text Editor
'** http://www.richtexteditor.org
'**
'** Copyright 2002-2005 Bruce Corkhill All Rights Reserved.
'**
'** This program is free software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may use parts of this program in your own private work, but you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** You should have received a copy of the License along with this program;
'** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'**
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.webwizguide.info/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** info@webwizguide.info
'**
'** or at: -
'**
'** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'****************************************************************************************
'Dimension veriables
Dim strLinkType
Dim strHyperlinkType
Dim strHyperlink
Dim strTitle
Dim strWindow
Dim strEmail
Dim strSubject
'If this a post back read in the form elements
If Request.Form("URL") <> "" OR Request.Form("email") <> "" AND Request.Form("postBack") Then
'Get form elements
strLinkType = Request.Form("selType")
strHyperlinkType = Request.Form("linkChoice")
strHyperlink = Request.Form("URL")
strTitle = Request.Form("Title")
strWindow = Request.Form("Window")
strEmail = Request.Form("email")
strSubject = Request.Form("subject")
'If the http:// part is repeated in the URL then strip it:-
strHyperlink = Replace(strHyperlink, strHyperlinkType, "", 1, -1, 1)
'Escape characters that will course a crash
strHyperlink = Replace(strHyperlink, "'", "\'", 1, -1, 1)
strHyperlink = Replace(strHyperlink, """", "\""", 1, -1, 1)
strTitle = Replace(strTitle, "'", "\'", 1, -1, 1)
strTitle = Replace(strTitle, """", "\""", 1, -1, 1)
strWindow = Replace(strWindow, "'", "\'", 1, -1, 1)
strWindow = Replace(strWindow, """", "\""", 1, -1, 1)
strEmail = Replace(strEmail, "'", "\'", 1, -1, 1)
strEmail = Replace(strEmail, """", "\""", 1, -1, 1)
strSubject = Replace(strSubject, "'", "\'", 1, -1, 1)
strSubject = Replace(strSubject, """", "\""", 1, -1, 1)
'If this is an email mailto then set the email type to mailto:
If strLinkType = "email" Then
strHyperlinkType = "mailto:"
strHyperlink = strEmail
End If
End If
%>
Hyperlink Properties
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write(vbCrLf & "")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'If this is Gecko based browser link to JS code for Gecko
If RTEenabled = "Gecko" Then Response.Write(vbCrLf & "")
%>