Indsætte standard tekst i online HTML editor
Hejsa eksperter!Jeg har fundet en asp html editor som virker rigtig godt. Jeg vil dog gerne have den til at man kan redigere noget allerede skrevet tekst som kommer via request.form("standardtext") - jeg aner dog bare ikke hvor man skal indsætte det forneden???
-----------------------------------------
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim ImagesDir, HostName, ScriptPath, UserAgent, SecureStatus
Dim HTTPType, ScriptURL, HostURL, PostURL, ReqPage, bdRegExp
'Directory where images are stored
ImagesDir = "/tester/salon/login/frontpage/images/"
'URL used to post data to a web form
PostURL = "/tester/salon/login/frontpage/show.asp"
'------------------------------------------------
'---------- Don't edit below this line ----------
'------------------------------------------------
'Determine if URL is http or https
SecureStatus = Request.ServerVariables("HTTPS")
'Determine host name of server
HostName = Request.ServerVariables("HTTP_HOST")
'Determine path of application after server name
ScriptPath = Request.ServerVariables("URL")
'Gets client browser type
UserAgent = Request.ServerVariables("HTTP_USER_AGENT")
'Modify links to use http and https
If SecureStatus = "on" Then
HTTPType = "https://"
Else
HTTPType = "http://"
End If
'Creates the URL for the application
ScriptURL = HTTPType & HostName & ScriptPath
'Creates the URL for base URL
HostURL = HTTPType & HostName
'Specifies page sections in the form of: <Page.asp>?page=<Query String>
ReqPage = Request.QueryString("page")
'Creates regular expression object
Set bdRegExp = New RegExp
bdRegExp.IgnoreCase = True
bdRegExp.Pattern = "ie"
If bdRegExp.Test(UserAgent) = True Then
If ReqPage = "table" Then
Response.Write "<html>" & VbCrLf
Response.Write "<head>" & VbCrLf
Response.Write "<style type='text/css'>" & VbCrLf
Response.Write " body {background:threedface}" & VbCrLf
Response.Write "</style>" & VbCrLf
Response.Write "<script>" & VbCrLf
Response.Write "function getInfoAndUpdate(){" & VbCrLf
Response.Write " if (isNaN(formNumRows.value)){" & VbCrLf
Response.Write " alert (""The rows field can only contain numbers"");return;}" & VbCrLf
Response.Write " else if (isNaN(formNumCols.value)){" & VbCrLf
Response.Write " alert (""The colums field can only contain numbers"");return;}" & VbCrLf
Response.Write " var callerWindowObj = dialogArguments;" & VbCrLf
Response.Write " callerWindowObj.rtNumRows = formNumRows.value;" & VbCrLf
Response.Write " callerWindowObj.rtNumCols = formNumCols.value;" & VbCrLf
Response.Write " callerWindowObj.rtTblAlign = formTblAlign.value;" & VbCrLf
Response.Write " callerWindowObj.rtTblWidth = formTblWidth.value;" & VbCrLf
Response.Write " callerWindowObj.createTable();" & VbCrLf
Response.Write " window.close();}" & VbCrLf
Response.Write "</script>" & VbCrLf
Response.Write "<title>Table Properties</title>" & VbCrLf
Response.Write "</head>" & VbCrLf
Response.Write "<body>" & VbCrLf
Response.Write "<table align='center' border='0' cellpadding='0'cellspacing='0'width='100%'>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='50%'>Number of rows:</td>" & VbCrLf
Response.Write " <td width='50%'>" & VbCrLf
Response.Write " <input id='formNumRows' size='2' value='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='50%'>Number of colums:</td>" & VbCrLf
Response.Write " <td width='50%'>" & VbCrLf
Response.Write " <input id='formNumCols' size='2' value='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='50%'>Table Alignment:</td>" & VbCrLf
Response.Write " <td width='50%'>" & VbCrLf
Response.Write " <select id='formTblAlign' size='1'>" & VbCrLf
Response.Write " <option value='left'>left</option>" & VbCrLf
Response.Write " <option value='center' selected>center</option>" & VbCrLf
Response.Write " <option value='right'>right</option>" & VbCrLf
Response.Write " </select>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='50%'>Table Width:</td>" & VbCrLf
Response.Write " <td width='50%'>" & VbCrLf
Response.Write " <select id='formTblWidth' size='1'>" & VbCrLf
Response.Write " <option value='25%'>25%</option>" & VbCrLf
Response.Write " <option value='50%' >50%</option>" & VbCrLf
Response.Write " <option value='75%'>75%</option>" & VbCrLf
Response.Write " <option value='100%' selected>100%</option>" & VbCrLf
Response.Write " </select>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write "</table>" & VbCrLf
Response.Write "<br>" & VbCrLf
Response.Write "<table border='0' cellpadding='0'cellspacing='0'width='100%'>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='50%' align='right'>" & VbCrLf
Response.Write " <input value='Ok' type=button onclick='getInfoAndUpdate();'> " & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='50%' align='left'>" & VbCrLf
Response.Write " <input value='Cancel' type=button onclick='window.close();'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write "</table>" & VbCrLf
Response.Write "</body>" & VbCrLf
Response.Write "</html>" & VbCrLf
ElseIf ReqPage = "color" Then
Response.Write "<html>" & VbCrLf
Response.Write "<head>" & VbCrLf
Response.Write "<title>Color</title>" & VbCrLf
Response.Write "<style type='text/css'>" & VbCrLf
Response.Write " body {margin-left:15; font-family:Verdana; font-size:12; background:threedface}" & VbCrLf
Response.Write " .colorCells {cursor:hand}" & VbCrLf
Response.Write "</style>" & VbCrLf
Response.Write "<script language='JavaScript'>" & VbCrLf
Response.Write "function colorSelect(color){" & VbCrLf
Response.Write " window.returnValue = color;" & VbCrLf
Response.Write " window.close();}" & VbCrLf
Response.Write "</script>" & VbCrLf
Response.Write "</head>" & VbCrLf
Response.Write "<body topmargin='0' leftmargin='0'>" & VbCrLf
Response.Write "<table align='center' border='0' cellspacing='2' cellpadding='3'>" & VbCrLf
Response.Write " <tr class='colorCells'>" & VbCrLf
Response.Write " <td bgcolor='black' onClick=""colorSelect('black');""> </td>" & VbCrLf
Response.Write " <td bgcolor='white' onClick=""colorSelect('white');""> </td>" & VbCrLf
Response.Write " <td bgcolor='green' onClick=""colorSelect('green');""> </td>" & VbCrLf
Response.Write " <td bgcolor='maroon' onClick=""colorSelect('maroon');""> </td>" & VbCrLf
Response.Write " <td bgcolor='olive' onClick=""colorSelect('olive');""> </td>" & VbCrLf
Response.Write " <td bgcolor='navy' onClick=""colorSelect('navy');""> </td>" & VbCrLf
Response.Write " <td bgcolor='gray' onClick=""colorSelect('gray');""> </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr class='colorCells'>" & VbCrLf
Response.Write " <td bgcolor='lime' onClick=""colorSelect('lime');""> </td>" & VbCrLf
Response.Write " <td bgcolor='aqua' onClick=""colorSelect('aqua');""> </td>" & VbCrLf
Response.Write " <td bgcolor='pink' onClick=""colorSelect('pink');""> </td>" & VbCrLf
Response.Write " <td bgcolor='silver' onClick=""colorSelect('silver');""> </td>" & VbCrLf
Response.Write " <td bgcolor='red' onClick=""colorSelect('red');""> </td>" & VbCrLf
Response.Write " <td bgcolor='blue' onClick=""colorSelect('blue');""> </td>" & VbCrLf
Response.Write " <td bgcolor='teal' onClick=""colorSelect('teal');""> </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write "</table>" & VbCrLf
Response.Write "</body>" & VbCrLf
Response.Write "</html>" & VbCrLf
Else
Response.Write "<html>" & VbCrLf
Response.Write "<head>" & VbCrLf
Response.Write "<style type='text/css'>" & VbCrLf
Response.Write "TABLE#window{ background-color:threedface; padding:1px; color:menutext; border-width:1px; border-style:solid; border-color:threedhighlight threedshadow threedshadow threedhighlight; }" & VbCrLf
Response.Write "TABLE#toolBar0{ background-color:threedface; padding:1px; color:menutext; border-width:1px; border-style:solid; border-color:threedhighlight threedshadow threedshadow threedhighlight; }" & VbCrLf
Response.Write "TABLE#toolBar1{ background-color:threedface; padding:1px; color:menutext; border-width:1px; border-style:solid; border-color:threedhighlight threedshadow threedshadow threedhighlight; }" & VbCrLf
Response.Write ".btnCtrl{ height:18; border-left: threedface 1px solid; border-right: threedface 1px solid; border-top: threedface 1px solid; border-bottom: threedface 1px solid; }" & VbCrLf
Response.Write "</style>" & VbCrLf
Response.Write "<script language='JavaScript'>" & VbCrLf
Response.Write "//----- Editor Initialization ------" & VbCrLf
Response.Write "window.onerror = handleErrors;" & VbCrLf
Response.Write "function handleErrors(){" & VbCrLf
Response.Write " //----- Used For Browsers That Don't Want To Behave -----" & VbCrLf
Response.Write " return true;}" & VbCrLf
Response.Write "var viewMode = 1;" & VbCrLf
Response.Write "function loadEditor(){" & VbCrLf
Response.Write " //----- Modify User Controls -----" & VbCrLf
Response.Write " showWYSIWYGCtrl.style.display = 'none';" & VbCrLf
Response.Write " hr6Ctrl.style.display = 'none';" & VbCrLf
Response.Write " editbox.document.designMode=""On"";}" & VbCrLf
Response.Write "function eButton(cmdButton, buttonval){" & VbCrLf
Response.Write " //----- Controls Button Behaviors ------" & VbCrLf
Response.Write " if (buttonval == ""over""){" & VbCrLf
Response.Write " cmdButton.style.backgroundColor = ""threedhighlight"";" & VbCrLf
Response.Write " cmdButton.style.borderColor = ""threeddarkshadow threeddarkshadow threeddarkshadow threeddarkshadow"";}" & VbCrLf
Response.Write " else if (buttonval == ""out""){" & VbCrLf
Response.Write " cmdButton.style.backgroundColor = ""threedface"";" & VbCrLf
Response.Write " cmdButton.style.borderColor = ""threedface"";}" & VbCrLf
Response.Write " else if (buttonval == ""down""){" & VbCrLf
Response.Write " cmdButton.style.backgroundColor = ""threedlightshadow"";" & VbCrLf
Response.Write " cmdButton.style.borderColor = ""threedshadow threedshadow threedshadow threedshadow"";}" & VbCrLf
Response.Write " else if (buttonval == ""up""){" & VbCrLf
Response.Write " cmdButton.style.backgroundColor = ""threedhighlight"";" & VbCrLf
Response.Write " cmdButton.style.borderColor = ""threedshadow threedshadow threedshadow threedshadow"";" & VbCrLf
Response.Write " cmdButton = null};" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " return;}}" & VbCrLf
Response.Write "function newDocument(){" & VbCrLf
Response.Write " //----- Creates An Empty Workspace ------" & VbCrLf
Response.Write " if (editbox.document.body.innerHTML == """"){" & VbCrLf
Response.Write " editbox.document.execCommand('refresh', false, null);}" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " if (confirm(""Would you like to save your entry?"")){" & VbCrLf
Response.Write " var dataRep = null;" & VbCrLf
Response.Write " dataRep = document.body.all.submitData;" & VbCrLf
Response.Write " dataRep.value = editbox.document.body.innerHTML;" & VbCrLf
Response.Write " document.editor.submit();" & VbCrLf
Response.Write " window.location.reload();}" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " editbox.document.execCommand('refresh', false, null);}}}" & VbCrLf
Response.Write "function saveDocument(){" & VbCrLf
Response.Write " if (editbox.document.body.innerHTML == """"){" & VbCrLf
Response.Write " return;}" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " if (confirm(""Would you like to save your entry?"")){" & VbCrLf
Response.Write " var dataRep = null;" & VbCrLf
Response.Write " dataRep = document.body.all.submitData;" & VbCrLf
Response.Write " dataRep.value = editbox.document.body.innerHTML;" & VbCrLf
Response.Write " document.editor.submit();}" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " return;}}}" & VbCrLf
Response.Write "function tableDialog(){" & VbCrLf
Response.Write " var rtNumRows = null;" & VbCrLf
Response.Write " var rtNumCols = null;" & VbCrLf
Response.Write " var rtTblAlign = null;" & VbCrLf
Response.Write " var rtTblWidth = null;" & VbCrLf
Response.Write " showModalDialog("""& ScriptURL & "?page=table"",window,""status:false;dialogWidth:16em;dialogHeight:12em"");}" & VbCrLf
Response.Write "function createTable(){" & VbCrLf
Response.Write " //----- Creates User Defined Tables -----" & VbCrLf
Response.Write " var cursor = editbox.document.selection.createRange();" & VbCrLf
Response.Write " if (rtNumRows == """" || rtNumRows == ""0""){" & VbCrLf
Response.Write " rtNumRows = ""1"";}" & VbCrLf
Response.Write " if (rtNumCols == """" || rtNumCols == ""0""){" & VbCrLf
Response.Write " rtNumCols = ""1"";}" & VbCrLf
Response.Write " var rttrnum=1" & VbCrLf
Response.Write " var rttdnum=1" & VbCrLf
Response.Write " var rtNewTable = ""<table border='1' align='"" + rtTblAlign + ""' cellpadding='0' cellspacing='0' width='"" + rtTblWidth + ""'>""" & VbCrLf
Response.Write " while (rttrnum <= rtNumRows){" & VbCrLf
Response.Write " rttrnum=rttrnum+1" & VbCrLf
Response.Write " rtNewTable = rtNewTable + ""<tr>""" & VbCrLf
Response.Write " while (rttdnum <= rtNumCols){" & VbCrLf
Response.Write " rtNewTable = rtNewTable + ""<td> </td>""" & VbCrLf
Response.Write " rttdnum=rttdnum+1}" & VbCrLf
Response.Write " rttdnum=1" & VbCrLf
Response.Write " rtNewTable = rtNewTable + ""</tr>""}" & VbCrLf
Response.Write " rtNewTable = rtNewTable + ""</table>""" & VbCrLf
Response.Write " cursor.pasteHTML(rtNewTable);" & VbCrLf
Response.Write " editbox.focus();}" & VbCrLf
Response.Write "function foreColor(){" & VbCrLf
Response.Write " //----- Sets Foreground Color -----" & VbCrLf
Response.Write " var fColor = showModalDialog("""& ScriptURL & "?page=color"","""",""dialogWidth:140px; dialogHeight:120px"" );" & VbCrLf
Response.Write " if (fColor != null){" & VbCrLf
Response.Write " editbox.document.execCommand(""ForeColor"", false, fColor);}" & VbCrLf
Response.Write " editbox.focus();}" & VbCrLf
Response.Write "function backColor(){" & VbCrLf
Response.Write " //----- Sets Background Color -----" & VbCrLf
Response.Write " var bColor = showModalDialog("""& ScriptURL & "?page=color"","""",""dialogWidth:140px; dialogHeight:120px"" );" & VbCrLf
Response.Write " if (bColor != null){" & VbCrLf
Response.Write " editbox.document.execCommand(""BackColor"", false, bColor);}" & VbCrLf
Response.Write " editbox.focus();}" & VbCrLf
Response.Write "function eStat(status){" & VbCrLf
Response.Write " //----- Updates Status Bar With Information -----" & VbCrLf
Response.Write " var editStat = document.getElementById(""editorStatus"");" & VbCrLf
Response.Write " editStat.innerHTML = status;}" & VbCrLf
Response.Write "function modeSelect(){" & VbCrLf
Response.Write " //----- Changes Editor Mode -----" & VbCrLf
Response.Write " var HTMLtitle" & VbCrLf
Response.Write " var WYSIWYGtitle" & VbCrLf
Response.Write " var editorTitle" & VbCrLf
Response.Write " if(viewMode == 1){" & VbCrLf
Response.Write " //----- Convert WYSIWYG editor to HTML -----" & VbCrLf
Response.Write " iHTML = editbox.document.body.innerHTML; editbox.document.body.innerText = iHTML;" & VbCrLf
Response.Write " HTMLtitle =""FrisorNet HTML Editor""; editorTitle = document.getElementById(""editorTitle"");" & VbCrLf
Response.Write " editorTitle.innerHTML = HTMLtitle; document.title = ""FrisorNet.dk side editor"";" & VbCrLf
Response.Write " saveCtrl.style.display = 'none'; linkCtrl.style.display = 'none';" & VbCrLf
Response.Write " lineCtrl.style.display = 'none'; tableCtrl.style.display = 'none';" & VbCrLf
Response.Write " hr1Ctrl.style.display = 'none'; orderedCtrl.style.display = 'none';" & VbCrLf
Response.Write " unorderedCtrl.style.display = 'none'; hr2Ctrl.style.display = 'none';" & VbCrLf
Response.Write " strikeCtrl.style.display = 'none'; subCtrl.style.display = 'none';" & VbCrLf
Response.Write " superCtrl.style.display = 'none'; hr3Ctrl.style.display = 'none';" & VbCrLf
Response.Write " forecolorCtrl.style.display = 'none'; backcolorCtrl.style.display = 'none';" & VbCrLf
Response.Write " hr4Ctrl.style.display = 'none'; indentCtrl.style.display = 'none';" & VbCrLf
Response.Write " outdentCtrl.style.display = 'none'; hr5Ctrl.style.display = 'none';" & VbCrLf
Response.Write " showWYSIWYGCtrl.style.display = 'inline'; hr6Ctrl.style.display = 'inline';" & VbCrLf
Response.Write " toolBar1.style.display = 'none'; newCtrl.style.display = 'none';" & VbCrLf
Response.Write " editbox.focus();" & VbCrLf
Response.Write " viewMode = 2;}" & VbCrLf
Response.Write " else{" & VbCrLf
Response.Write " //----- Convert HTML editor to WYSIWYG -----" & VbCrLf
Response.Write " iText = editbox.document.body.innerText; editbox.document.body.innerHTML = iText;" & VbCrLf
Response.Write " WYSIWYGtitle =""IE WYSIWYG Editor"" ; editorTitle = document.getElementById(""editorTitle"");" & VbCrLf
Response.Write " editorTitle.innerHTML = WYSIWYGtitle; document.title = ""IE WYSIWYG Editor"";" & VbCrLf
Response.Write " saveCtrl.style.display = 'inline'; linkCtrl.style.display = 'inline';" & VbCrLf
Response.Write " lineCtrl.style.display = 'inline'; tableCtrl.style.display = 'inline';" & VbCrLf
Response.Write " hr1Ctrl.style.display = 'inline'; orderedCtrl.style.display = 'inline';" & VbCrLf
Response.Write " unorderedCtrl.style.display = 'inline'; hr2Ctrl.style.display = 'inline';" & VbCrLf
Response.Write " strikeCtrl.style.display = 'inline'; subCtrl.style.display = 'inline';" & VbCrLf
Response.Write " superCtrl.style.display = 'inline'; hr3Ctrl.style.display = 'inline';" & VbCrLf
Response.Write " forecolorCtrl.style.display = 'inline'; backcolorCtrl.style.display = 'inline';" & VbCrLf
Response.Write " hr4Ctrl.style.display = 'inline'; indentCtrl.style.display = 'inline';" & VbCrLf
Response.Write " outdentCtrl.style.display = 'inline'; hr5Ctrl.style.display = 'inline';" & VbCrLf
Response.Write " showWYSIWYGCtrl.style.display = 'none'; hr6Ctrl.style.display = 'none';" & VbCrLf
Response.Write " toolBar1.style.display = 'inline'; newCtrl.style.display = 'inline';" & VbCrLf
Response.Write " editbox.focus();" & VbCrLf
Response.Write " viewMode = 1;}}" & VbCrLf
Response.Write "</script>" & VbCrLf
Response.Write "<title>FrisorNet text editor</title>" & VbCrLf
Response.Write "</head>" & VbCrLf
Response.Write "<body onload=""loadEditor()"">" & VbCrLf
Response.Write "<table id='window' align='center' border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse; border: 1px solid #C0C0C0'>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <table id='toolBar' width='100%' cellpadding='0' cellspacing='0'>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width='5%' valign='top' bgcolor='#1A50B8' bordercolor='#1A50B8'>" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='top' src='" & HostURL & ImagesDir & "icon.gif' alt='FrisorNet.dk HTML Editor'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='95%' valign='top' bgcolor='#1A50B8' bordercolor='#1A50B8'>" & VbCrLf
Response.Write " <b><font color='#FFFFFF' face='Arial' size='2'><div id='editorTitle' style='position:relative; top:4px;'>Frisornet.dk text editor</div></font></b>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " </table>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <table id='toolBar0' cellpadding='0' cellspacing='0'>" & VbCrLf
Response.Write " <tr valign='middle'>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='newCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""newDocument(); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Creates a blank document.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "new.gif' alt='New'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='saveCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""saveDocument();"" onmouseover=""eButton(this, 'over'); eStat('Saves the current document.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "save.gif' alt='Save'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('print', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Prints the current document.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "print.gif' alt='Print'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('cut', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Cuts the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "cut.gif' alt='Cut'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('copy', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Copies the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "copy.gif' alt='Copy'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('paste', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Pastes a previously selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "paste.gif' alt='Paste'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='linkCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('createLink'); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Inserts a Hyperlink.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "link.gif' alt='Link'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='lineCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('InsertHorizontalRule', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Inserts a horizontal line.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "line.gif' alt='Line'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='tableCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""tableDialog();"" onmouseover=""eButton(this, 'over'); eStat('Inserts a user defined table.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "table.gif' alt='Table'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr1Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='orderedCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('insertorderedlist', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Inserts a numbered list.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "numlist.gif' alt='Ordered List'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='unorderedCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('insertunorderedlist', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Inserts a bulleted list.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "bullist.gif' alt='Unordered List'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr2Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='strikeCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('StrikeThrough', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Places a line through the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "strike.gif' alt='Strikethrough'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='subCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('SubScript', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Subscripts the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "subscript.gif' alt='Subscript'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='superCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('SuperScript', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Superscripts the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "superscript.gif' alt='Superscript'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr3Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='forecolorCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""foreColor();"" onmouseover=""eButton(this, 'over'); eStat('Formats the current selections foreground color.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "fgcolor.gif' alt='Foreground Color'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='backcolorCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""backColor();"" onmouseover=""eButton(this, 'over'); eStat('Formats the current selections background color.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "bgcolor.gif' alt='Background Color'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr4Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='indentCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('indent', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Indents the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "inindent.gif' alt='Increase Indent'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='outdentCtrl' width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('outdent', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Outdents the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='2' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "deindent.gif' alt='Decrease Indent'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr5Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='showWYSIWYGCtrl'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""modeSelect();"" onmouseover=""eButton(this, 'over'); eStat('Switches the editor to WYSIWYG Mode.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "mode.gif' alt='Show WYSIWYG Editor'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td id='hr6Ctrl'>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " </table>" & VbCrLf
Response.Write " <table id='toolBar1' cellpadding='0' cellspacing='0'>" & VbCrLf
Response.Write " <tr valign='middle'>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td> " & VbCrLf
Response.Write " <select onchange=""editbox.document.execCommand('formatBlock', false, this[this.selectedIndex].value); editbox.focus();"" onmouseover=""eStat('Changes the current selections heading type.');"" onmouseout=""eStat(' ');"">" & VbCrLf
Response.Write " <option selected>Style</option>" & VbCrLf
Response.Write " <option value='Normal'>Normal</option>" & VbCrLf
Response.Write " <option value='Heading 1'>Heading 1</option>" & VbCrLf
Response.Write " <option value='Heading 2'>Heading 2</option>" & VbCrLf
Response.Write " <option value='Heading 3'>Heading 3</option>" & VbCrLf
Response.Write " <option value='Heading 4'>Heading 4</option>" & VbCrLf
Response.Write " <option value='Heading 5'>Heading 5</option>" & VbCrLf
Response.Write " <option value='Address'>Address</option>" & VbCrLf
Response.Write " <option value='Formatted'>Formatted</option>" & VbCrLf
Response.Write " <option value='Definition Term'>Definition Term</option>" & VbCrLf
Response.Write " </select>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td> " & VbCrLf
Response.Write " <select onchange=""editbox.document.execCommand('fontname', false, this[this.selectedIndex].value); editbox.focus();"" onmouseover=""eStat('Changes the current selections font type.');"" onmouseout=""eStat(' ');"">" & VbCrLf
Response.Write " <option selected>Font</option>" & VbCrLf
Response.Write " <option value='Arial'>Arial</option>" & VbCrLf
Response.Write " <option value='Arial Black'>Arial Black</option>" & VbCrLf
Response.Write " <option value='Arial Narrow'>Arial Narrow</option>" & VbCrLf
Response.Write " <option value='Comic Sans MS'>Comic Sans MS</option>" & VbCrLf
Response.Write " <option value='Courier New'>Courier New</option>" & VbCrLf
Response.Write " <option value='System'>System</option>" & VbCrLf
Response.Write " <option value='Tahoma'>Tahoma</option>" & VbCrLf
Response.Write " <option value='Times New Roman'>Times New Roman</option>" & VbCrLf
Response.Write " <option value='Verdana'>Verdana</option>" & VbCrLf
Response.Write " <option value='Wingdings'>Wingdings</option>" & VbCrLf
Response.Write " </select>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td> " & VbCrLf
Response.Write " <select onchange=""editbox.document.execCommand('fontsize', false, this[this.selectedIndex].value); editbox.focus();"" onmouseover=""eStat('Changes the current selections font size.');"" onmouseout=""eStat(' ');"">" & VbCrLf
Response.Write " <option selected>Size</option>" & VbCrLf
Response.Write " <option value='1'>1</option>" & VbCrLf
Response.Write " <option value='2'>2</option>" & VbCrLf
Response.Write " <option value='3'>3</option>" & VbCrLf
Response.Write " <option value='4'>4</option>" & VbCrLf
Response.Write " <option value='5'>5</option>" & VbCrLf
Response.Write " <option value='6'>6</option>" & VbCrLf
Response.Write " <option value='7'>7</option>" & VbCrLf
Response.Write " <option value='8'>8</option>" & VbCrLf
Response.Write " <option value='10'>10</option>" & VbCrLf
Response.Write " <option value='12'>12</option>" & VbCrLf
Response.Write " <option value='14'>14</option>" & VbCrLf
Response.Write " </select> " & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('bold', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Bolds the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "bold.gif' alt='Bold'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('italic', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Italicizes the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "italic.gif' alt='Italic'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('underline', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Underlines the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "under.gif' alt='Underline'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('justifyleft', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Left aligns the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "left.gif' alt='Justify Left'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('justifycenter', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Centers the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "center.gif' alt='Center'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""editbox.document.execCommand('justifyright', false, null); editbox.focus();"" onmouseover=""eButton(this, 'over'); eStat('Right aligns the current selection.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "right.gif' alt='Justify Right'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td width='23'>" & VbCrLf
Response.Write " <div class='btnCtrl' onClick=""modeSelect();"" onmouseover=""eButton(this, 'over'); eStat('Switches the editor to HTML Mode.');"" onmouseout=""eButton(this, 'out'); eStat(' ');"" onmousedown=""eButton(this, 'down');"" onmouseup=""eButton(this, 'up');"">" & VbCrLf
Response.Write " <img width='23' height='22' hspace='1' vspace='1' align='absmiddle' src='" & HostURL & ImagesDir & "mode.gif' alt='Show HTML Editor'>" & VbCrLf
Response.Write " </div>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <hr noshade size='17' width='1'>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " </table>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <iframe width='100%' id='editbox' height='350'></iframe>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write " <tr>" & VbCrLf
Response.Write " <td width ='571'>" & VbCrLf
Response.Write " <b><font color='#000000' face='verdana' size='1'><div id='editorStatus'> </div></font></b>" & VbCrLf
Response.Write " </td>" & VbCrLf
Response.Write " </tr>" & VbCrLf
Response.Write "</table>" & VbCrLf
Response.Write "<form action='" & PostURL & "' method='post' name='editor' onsubmit=""submitForm();"">" & VbCrLf
Response.Write " <input id='submitData' type='hidden' name='form_submission'>" & VbCrLf
Response.Write "</form>" & VbCrLf
Response.Write "</body>" & VbCrLf
Response.Write "</html>" & VbCrLf
End If
Else
Response.Write "<html>" & VbCrLf
Response.Write "<head>" & VbCrLf
Response.Write "<title>Non WYSIWYG Editor</title>" & VbCrLf
Response.Write "</head>" & VbCrLf
Response.Write "<body bgcolor='#ffffff'>" & VbCrLf
Response.Write "<p align='center'>" & VbCrLf
Response.Write "<form method='POST' action='" & PostURL & "'>" & VbCrLf
Response.Write " <textarea rows='10' name='form_submission' cols='60'></textarea><br>" & VbCrLf
Response.Write " <input type='submit' value='Submit' name='Submit'>" & VbCrLf
Response.Write " <input type='reset' value='Reset' name='Reset'>" & VbCrLf
Response.Write "</form>" & VbCrLf
Response.Write "</p>" & VbCrLf
Response.Write "</body>" & VbCrLf
Response.Write "</html>" & VbCrLf
End If
Set bdRegExp = Nothing
%>
