<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Rich Text Editor '** '** Copyright 2003 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 lngRows Dim lngCols Dim lngWidth Dim strWidthValue Dim strAlign Dim lngBorder Dim lngPad Dim lngSpace Dim strBuildTableHTML 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")) 'Build table main elements strBuildTableHTML = " "" Then strBuildTableHTML = strBuildTableHTML & " border=""" & lngBorder & """" If lngSpace <> "" Then strBuildTableHTML = strBuildTableHTML & " cellspacing=""" & lngSpace & """" If lngPad <> "" Then strBuildTableHTML = strBuildTableHTML & " cellpadding=""" & lngPad & """" strBuildTableHTML = strBuildTableHTML & ">" 'Build table rows For lngRowsLoopCounter = 1 to lngRows strBuildTableHTML = strBuildTableHTML & "" 'Build columns For lngColsLoopCounter = 1 to lngCols strBuildTableHTML = strBuildTableHTML & "" Next 'Reset the column loop counter lngColsLoopCounter = 0 'Close the table row strBuildTableHTML = strBuildTableHTML & "" Next strBuildTableHTML = strBuildTableHTML & "
" strBuildTableHTML = strBuildTableHTML & "
" End If 'If the HTML has been built then run the following JavaScript If strBuildTableHTML <> "" Then Response.Write("") End If %> הזנת טבלה
טבלה
<% = strTxtRows %>:    
<% = strTxtColumns %>: <% = strTxtWidth %>:
<% = strTxtLayout %>
<% = strTxtAlignment %>:
<% = strTxtBorder %>:
<% = strTxtSpacing %>
<% = strTxtCellPad %>:
<% = strTxtCellSpace %>: