<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Rich Text Editor '** http://www.richtexteditor.org '** '** Copyright ©2001-2006 Web Wiz. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '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 or Opera based browser link to JS code for Gecko If RTEenabled = "Gecko" OR RTEenabled = "opera" Then Response.Write(vbCrLf & "") %>
<% = strTxtHyperlinkProperties %>
<% = strTxtLinkType %>:
<% = strTxtAddress %>:
<% = strTxtTitle %>:
<% = strTxtWindow %>:
<% = strTxtPreview %>:
 <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then Response.Write("Powered by Web Wiz Rich Text Editor version " & strRTEversion & "") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>