<% @ 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 strImageURL Dim strImageAltText Dim strAlign Dim intBorder Dim lngHorizontal Dim lngVerical Dim intWidth Dim intHeight 'If this a post back read in the form elements If Request.Form("URL") <> "http://" AND Request.Form("URL") <> "" AND Request.Form("postBack") Then 'Initilise variable intBorder = 0 'Get form elements strImageURL = Request.Form("URL") strImageAltText = Request.Form("Alt") strAlign = Request.Form("align") If isNumeric(Request.Form("intBorder")) Then intBorder = Request.Form("border") If isNumeric(Request.Form("hoz")) Then lngHorizontal = CLng(Request.Form("hoz")) If isNumeric(Request.Form("vert")) Then lngVerical = CLng(Request.Form("vert")) If isNumeric(Request.Form("width")) Then intWidth = CLng(Request.Form("width")) If isNumeric(Request.Form("height")) Then intHeight = CLng(Request.Form("height")) 'Escape characters that will course a crash strImageURL = Replace(strImageURL, "'", "\'", 1, -1, 1) strImageURL = Replace(strImageURL, """", "\""", 1, -1, 1) strImageAltText = Replace(strImageAltText, "'", "\'", 1, -1, 1) strImageAltText = Replace(strImageAltText, """", "\""", 1, -1, 1) End If %> Image 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 or Opera link to JS code for Gecko If RTEenabled = "Gecko" OR RTEenabled = "opera" Then Response.Write(vbCrLf & "") %>
<% = strTxtImageProperties %>
<% = strTxtImageURL %>:
<% = strTxtAlternativeText %>:
<% = strTxtWidth %>: <% = strTxtHorizontal %>: <% = strTxtAlignment %>:
<% = strTxtHeight %>: <% = strTxtVertical %>: <% = strTxtBorder %>:
<% = 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 ****** %>