HTML Form processing script
- Thread starter John Reynolds
- Start date
Adding margin-left: 200px to my watermark section worked great. . .exactly what I wanted.
http://www.d.umn.edu/itss/support/Training/Online/webdesign/css.html
http://www.stunicholls.myby.co.uk/index.html
http://www.alistapart.com/
http://www.w3.org/TR/CSS21/
http://www.webmaster-toolkit.com/css-menu-generator.shtml
http://cssvault.com/
http://www.cssbeauty.com/
here are some links... hope it helps....
http://www.stunicholls.myby.co.uk/index.html
http://www.alistapart.com/
http://www.w3.org/TR/CSS21/
http://www.webmaster-toolkit.com/css-menu-generator.shtml
http://cssvault.com/
http://www.cssbeauty.com/
here are some links... hope it helps....
OK, page is finished. My only issue is when I hit the submit button I now get error on page message on the status bar. Everything works fine, but I'm not sure what's generating an error.
Code:
<html>
<head>
<title>SMSG Feedback Form</title>
<style>
html, body {background-color: #f0f0f0;
margin: 0px 0px 0px 0px;}
p {font-family: "times new roman";
font-size: 11pt;
color: #0000ff;
text-align: center;}
p.1 {font-family: garamond;
font-size: 20pt;
text-align: center;
color: #0000ff;
font-weight: bolder;
margin: 30px;
text-align: center;}
p.2 {font-family: "times new roman";
font-size: 11pt;
color: #0000ff;
font-style: oblique;}
p.3 {font-family: "times new roman";
font-size: 11pt;
color: #0000ff;
text-align: center;
margin: 55px 0px 5px 10px;}
#menu {float: left;
height: 100%;
width: 200px;
background-color: #0000ff;
font-family: verdana;
font-size: 10pt;
text-align: center;
color: #ffffff;
padding: 100px 5px 5px 5px;
border-right: 1px solid black;}
textarea {background-color: transparent;}
#watermark {background-image: url(logo.png);
background-repeat: no-repeat;
background-position: center 15px;
margin-left: 200px;}
</style>
</head>
<body>
<script language="VBScript">
Function myForm_OnSubmit
Dim item, strFilePath
Dim objFSO, myFile
Dim TheForm
Dim retVal
Const ForAppending = 8
Const MaxCharacters = 500
Set TheForm = Document.forms("myform")
retVal = False
If Len(TheForm.feedback.value) > MaxCharacters Then
MsgBox "Your feedback is too long. Please enter a maximum of 500 characters."
Else
strFilePath = "[url="file://server/Feedback.txt"]\\server\Feedback.txt[/url]"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If NOT objFSO.FileExists(strFilePath) Then
objFSO.CreateTextFile(strFilePath)
End If
Set myFile = objFSO.OpenTextFile (strFilePath, ForAppending, True)
myFile.WriteLine("Form submitted at " & now())
For Each item In TheForm
If item.name <> "submitter" Then
myFile.WriteLine(item.name & " : " & item.value)
End If
Next
myFile.WriteLine(vbNewLine)
myFile.Close
Set myFile = Nothing
Set objFSO = Nothing
MsgBox "Thank you for submitting feedback."
retVal = True
End If
myForm_OnSubmit = retVal
End Function
</script>
<div id="menu">Welcome to the SMSG Anonymous Feedback Form! You can use this form to ask questions, suggest new processes, recommend divesting activities, recognize good things that happen in the SMSG, or identify things that are not so good. Col Franz and I will be the only ones to see your inputs, and we have no way to find out who made the submission -- that's what 'anonymous' is all about. Once we have your inputs, we will take the necessary actions and report their status and closeout during following Director's Calls. Thank you for taking time to make the SMSG the best place to spend your workdays.</div>
<div id="watermark">
<p class="1">Simulator Systems Group's<br>Anonymous Feedback Form</p>
<form id="myform" method="post" onsubmit="SubmitForm()">
<p><center><textarea rows="9" cols="50" name="Feedback"></textarea><br>
<p class="2">- Feedback is limited to 500 characters in length. -</p>
<p><input name="submitter" type="submit" value="Submit Feedback"></p>
<p><input name="submitter" type="reset" value="Reset the Form"></p>
</form>
<p class="3">After clicking on the "Submit Feedback" button,<br>you will see this window:</p>
<center><img src="error.jpg"></center>
<p>Choose "Yes" to finish submitting your feedback.</p>
</div>
</body>
</html>DarN said:
It's not a pop-up window, it's just text on the status bar. No additional info and looking back over the code I'm lost as to what's causing it.
DarN said:
LOL I thought of that, but the damn ActiveX window that pops up prevents that. I hit yes or no in that window and the error goes away.
Like I said, the form works but I've made some change to cause this error since it wasn't there previously.
Edit: Disregard, I'm now convinced that it's the ActiveX window itself that's the error, but I have no choice in this since IE settings are mandated from the Powers Above me.
DarN said:
Cool.
Error reads line 106, Char 1, error type mismatch: 'submitform'.
Diplo said:
That fixed it. Thanks yet again, Diplo.
You would think so, wouldn't you? But you didn't count on the weird vagaries of VBScriptDarN said:
Basically, client-side VB will automatically call a function if it's named in the manner formName_OnSubmit. So the function was already getting called when the form was submitted so there was no need for the function remaining (which didn't exist, anyway).