Problem with forms 1

DaiDreamer · Dec 3, 2001

Hi!

I'm having a problem with my form. How do you call a vbscript function when the submit button is pressed?

Here's my code:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Document</title>
<style fprolloverstyle>A:hover {color: #000080; text-decoration: underline}
</style>
<%@ Language=VBScript %>
<%'option explicit%>
</head>

<%
Function CheckFields()
dim count, errors, message, fieldcounter, Sectionconn, Sectionrs, Docconn,Docrs,strSQLQuery, strSQLQuery2
Count=0
Errors=0
Message=""
FieldCounter=1
msgbox("tesitngin&quot

' Database Stuff to get Section Name
set Sectionconn = server.createobject("ADODB.Connection&quot

sectionconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn&quot

= sectionconn

strSQLQuery = "SELECT Code FROM Sections"
Set Sectionrs = Server.CreateObject("ADODB.Recordset&quot

sectionrs.Open strSQLQuery, sectionconn, 3, 3
Set sectionrs = Server.CreateObject("ADODB.Recordset&quot

set Docconn = server.createobject("ADODB.Connection&quot

Docconn.Open "DSN=SuretyDNS"
Session.timeout = 15
Set Session("MyDB_conn2&quot

= Docconn

strSQLQuery2 = "SELECT Code FROM DocumentTypes"
Set docrs = Server.CreateObject("ADODB.Recordset&quot

docrs.Open strSQLQuery2, docconn, 3, 3
Set docrs = Server.CreateObject("ADODB.Recordset&quot

For Fieldcounter = 1 to 4
Select Case Fieldcounter
Case 1
section1=request.form("SectionName1&quot

If SectionName1 <>"" then
Count=Count+1
BORDocNum1=request.form("BRDocNum1&quot

If BORDocNum1="" then'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 1. "
Else
do until sectionrs.eof
if SectionName1=sectionrs("Code&quot

then 'valid
testing=1
if testing<>1 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 1. "
end if
end if
sectionrs.next
loop

DocType1=request.form("BRDocType1&quot

If doctype1 <>"" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 1. "
end if
if Errors >0 then
msgbox (message)
else
AddToDatabase()
end if
end if
end if
Case 2
section2=request.form("SectionName2&quot

If SectionName2 <>"" then
Count=Count+1
BORDocNum2=request.form("BRDocNum2&quot

If BORDocNum2="" then 'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 2. "
Else
do until sectionrs.eof
if SectionName2=sectionrs("Code&quot

then'valid
testing=1
if testing<>1 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 2. "
end if
end if
sectionrs.next
loop

DocType2=request.form("BRDocType2&quot

If doctype1 <>"" then 'invalid
errors = errors +1
message=message + "Invaild DocType in Line 2. "
end if
if Errors >0 then
msgbox (message)
else
AddToDatabase()
end if
end if
end if
Case 3
section3=request.form("SectionName3&quot

If SectionName3 <>"" then
Count=Count+1
BORDocNum3=request.form("BRDocNum3&quot

If BORDocNum3="" then'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 3. "
Else
do until sectionrs.eof
if SectionName3=sectionrs("Code&quot

then'valid
testing=1
if testing<>1 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 3. "
end if
end if
sectionrs.next
loop

DocType3=request.form("BRDocType3&quot

If doctype1 <>"" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 3. "
end if
if Errors >0 then
msgbox (message)
else
AddToDatabase()
end if
end if
end if
Case 4
section4=request.form("SectionName4&quot

If SectionName4 <>"" then
Count=Count+1
BORDocNum4=request.form("BRDocNum4&quot

If BORDocNum4="" then 'from form
Errors=Errors+1
message=Message+"Need to have Basis of Requirement Document Number in Line 4. "
Else
do until sectionrs.eof
if SectionName4=sectionrs("Code&quot

then'valid
testing=1
if testing<>1 then
Errors=Errors+1
message=Message+"Invalid Section Name in Line 4. "
end if
end if
sectionrs.next
loop

DocType4=request.form("BRDocType4&quot

If doctype1 <>"" then'invalid
errors = errors +1
message=message + "Invaild DocType in Line 4. "
end if
if Errors >0 then
msgbox (message)
else
AddToDatabase()
end if
end if
end if
end select
next
sectionconn.close
docconn.close
set sectionconn=nothing
set docconn = nothing
end function 'CheckFields()

Function AddtoDatabase()

end function 'AddtoDatabase()
%>
<body stylesrc="Index.html" link="#0066FF" vlink="#0066FF" alink="#0066FF">
<p align="center"><font face="Arial" size="5">
Create New Document Record<br>
</font>

<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME&quot

%>" METHOD="post" NAME="TheForm">

<table border="0" cellpadding="0" cellspacing="3" height="204">
<tr>
<td width="7%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="7%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td border="1" bordercolor="#000000" width="22%" align="center" bgcolor="#000080" colspan="3" height="19"><font face="Arial" size="2" color="#FFFF00">Basis
of Requirement</font></td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
<td width="8%" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" height="19"> </td>
</tr>
<tr>
<td width="7%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Section
Name</font></td>
<td width="7%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Date
of Requirement</font></td>
<td width="7%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Document
Type</font></td>
<td width="7%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Document
Number</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Description
of Reason</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Mine,
Program, or Parcel</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Applicant/
Land Owner</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Document
Number</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Issued
by</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Amount</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Expiration
Date</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Date
Issued</font></td>
<td width="8%" align="center" bgcolor="#000080" height="48"><font face="Arial" size="2" color="#FFFFFF">Returned
Date</font></td>
</tr>
<tr>
<td width="7%" height="26" align="center">
<input type="text" name="SectionName1" size="3">
</td>
<td width="7%" height="26" align="center"><input type="text" name="RequireDate1" size="10" value="mm/dd/yyyy">

</td>
<td width="7%" height="26" align="center"><input type="text" name="BRDocType1" size="3">

</td>
<td width="7%" height="26" align="center"><input type="text" name="BRDocNum1" size="10">

</td>
<td width="8%" height="26" align="center"><input type="text" name="Reason1" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Mine1" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Applicant1" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="DocNum1" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Issued1" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Amount1" size="15" value="$"></td>
<td width="8%" height="26" align="center"><input type="text" name="Expiration1" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="26" align="center"><input type="text" name="DateIssued1" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="26" align="center"><input type="text" name="ReturnDate1" size="10" value="mm/dd/yyyy">

</td>
</tr>
<tr>
<td width="7%" height="26" align="center">
<input type="text" name="SectionName2" size="3">
</td>
<td width="7%" height="26" align="center"><input type="text" name="RequireDate2" size="10" value="mm/dd/yyyy">

</td>
<td width="7%" height="26" align="center"><input type="text" name="BRDocType2" size="3">

</td>
<td width="7%" height="26" align="center"><input type="text" name="BRDocType2" size="10">

</td>
<td width="8%" height="26" align="center"><input type="text" name="Reason2" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Mine2" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Applicant2" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="DocNum2" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Issued2" size="20"></td>
<td width="8%" height="26" align="center"><input type="text" name="Amount2" size="15" value="$"></td>
<td width="8%" height="26" align="center"><input type="text" name="Expiration2" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="26" align="center"><input type="text" name="DateIssued2" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="26" align="center"><input type="text" name="ReturnDate2" size="10" value="mm/dd/yyyy">

</td>
</tr>
<tr>
<td width="7%" height="19" align="center"><input type="text" name="SectionName3" size="3">

</td>
<td width="7%" height="19" align="center"><input type="text" name="RequireDate3" size="10" value="mm/dd/yyyy">

</td>
<td width="7%" height="19" align="center"><input type="text" name="BRDocType3" size="3"></td>
<td width="7%" height="19" align="center"><input type="text" name="BRDocType3" size="10">

</td>
<td width="8%" height="19" align="center"><input type="text" name="Reason3" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Mine3" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Applicant3" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="DocNum3" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Issued3" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Amount3" size="15" value="$"></td>
<td width="8%" height="19" align="center"><input type="text" name="Expiration3" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="19" align="center"><input type="text" name="DateIssued3" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="19" align="center"><input type="text" name="ReturnDate3" size="10" value="mm/dd/yyyy">

</td>
</tr>
<tr>
<td width="7%" height="19" align="center"><input type="text" name="SectionName4" size="3">

</td>
<td width="7%" height="19" align="center"><input type="text" name="RequireDate4" size="10" value="mm/dd/yyyy">

</td>
<td width="7%" height="19" align="center"><input type="text" name="BRDocType4" size="3">

</td>
<td width="7%" height="19" align="center"><input type="text" name="BRDocType4" size="10">

</td>
<td width="8%" height="19" align="center"><input type="text" name="Reason4" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Mine4" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Applicant4" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="DocNum4" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Issued4" size="20"></td>
<td width="8%" height="19" align="center"><input type="text" name="Amount4" size="15" value="$"></td>
<td width="8%" height="19" align="center"><input type="text" name="Expiration4" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="19" align="center"><input type="text" name="DateIssued4" size="10" value="mm/dd/yyyy">

</td>
<td width="8%" height="19" align="center"><input type="text" name="ReturnDate4" size="10" value="mm/dd/yyyy">

</td>
</tr>
</table>

<p align="right"><input type="submit" Onclick= <%msgbox"testing"%> value="Submit"><input type="reset" value="Reset"></p>
</form>
<p align="right"><font face="Arial"><a href="Index.html">Back</a></font> <img border="0" src="images/reeds.gif" width="200" height="198" align="left"></p>
</body>

</html>

Thanks!

DaiDreamer

harmmeijer · Dec 4, 2001

The easyest way is to change your input type submit to input type button like so:
<input type="submit"
should be:
"><input type="button"

And submit the form using your vb sub or function like so:
if isoktosubmit then
TheForm.submit();
else
msgbox "bla bla ..."
end if

The other way is to call a function in the onsubmit event of the form. Return true if the form is ok to be submitted and return false if not (I only know how to do this in Java) like so:
<SCRIPT LANGUAGE=javascript>
function myfunc() {
return true; // the form will be submitted
// return false; //the form wil not be submitted
}
</SCRIPT>
<form name=TheForm action="test.asp" onsubmit="return myfunc()">
<input type=submit id=submit1 name=submit1">
</form>

shaddow · Dec 4, 2001

Here is the vbScript sample

Code:

<HTML> <script language="vbscript"> sub checkFields MsgBox "Form submitted!" end sub </script> <BODY> <input type="submit" Onclick="checkFields()" value="Submit"> </BODY> </HTML>

Hope this helps you... ________
George, M

DaiDreamer · Dec 6, 2001

that's for the help.

but now I'm having a problem with msgboxes. It gives me this error:

Microsoft VBScript runtime error '800a0046'

Permission denied: 'msgbox'

/bureauofminere/frdocinvetory/new.asp, line 482

my code also don't like Option Explict either

Any Ideas???

DaiDreamer

MNClimber · Dec 6, 2001

The only spot I see off-hand where msgbox is being used in on the server side ASP code. msgbox cannot be used server side, it can only be used in the client side scripts.

Also, it looks like all your functions are server side, those also will not be able to be called from the buttons like it sounds like you want to do.

You should put all the stuff you want to do after the page has loaded in the script tags...

<SCRIPT Language="VBScript>
'Scripting code here....
</SCRIPT>

HTH

Mike

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Problem with forms 1

DaiDreamer

Programmer

harmmeijer

Programmer

shaddow

Programmer

DaiDreamer

Programmer

MNClimber

Programmer

Similar threads

Part and Inventory Search

Sponsor