<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Rich Text Editor(TM) '** http://www.richtexteditor.org '** '** Copyright (C)2001-2008 Web Wiz(TM). 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. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Clean up Call closeDatabase() 'Dimension veriables Dim lngRows Dim lngCols Dim lngWidth Dim strWidthValue Dim strAlign Dim lngBorder Dim lngPad Dim lngSpace Dim lngRowsLoopCounter Dim lngColsLoopCounter 'Intalise varibales lngWidth = 100 lngCols = 1 lngWidth = 1 'If this a post back read in the form elements If isNumeric(Request.Form("rows")) AND isNumeric(Request.Form("cols")) AND Request.Form("postBack") Then 'Get form elements If isNumeric(Request.Form("rows")) Then lngRows = CLng(Request.Form("rows")) If isNumeric(Request.Form("cols")) Then lngCols = CLng(Request.Form("cols")) If isNumeric(Request.Form("width")) Then lngWidth = CLng(Request.Form("width")) strWidthValue = Request.Form("range") strAlign = Request.Form("align") If isNumeric(Request.Form("border")) Then lngBorder = CLng(Request.Form("border")) If isNumeric(Request.Form("pad")) Then lngPad = CLng(Request.Form("pad")) If isNumeric(Request.Form("space")) Then lngSpace = CLng(Request.Form("space")) End If %> Table 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 a post back write javascript If isNumeric(Request.Form("rows")) AND isNumeric(Request.Form("cols")) AND Request.Form("postBack") Then 'If this is Gecko based browser link to JS code for Gecko If RTEenabled = "Gecko" Then Response.Write(vbCrLf & "") Response.Write(vbCrLf & "") End If %>

<% = strTxtTableProperties %>

<% = strTxtRows %>:    
<% = strTxtColumns %>: <% = strTxtWidth %>:
<% = strTxtLayout %>  
<% = strTxtAlignment %>:
<% = strTxtBorder %> :
<% = strTxtSpacing %>  
<% = strTxtCellPad %> :
<% = strTxtCellSpace %> :