Front Page - Re: Problem with form validation

Author

Re: Problem with form validation

mosow

2004-06-29, 12:14 pm

I can not give you a URL as this is part of an internal site. The
code is below, generated by FrontPage:

<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>Release Date Comparison</title>
</head>

<body>

<a
href="rms_reports.htm">Return
to Report Menu</a>               
Date: <script language="VBScript">
document.write(FormatDateTime(Date(),0))</script>
           
Time: <script language="VBScript">
document.write(FormatDateTime(Time(),0))</script>

Release
Date Comparison

<script Language="JavaScript">
function FrontPage_Form1_Validator(theForm)
{

var checkOK = "0123456789-.,";
var checkStr = theForm.DB1.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch == ".")
{
allNum += ".";
decPoints++;
}
else if (ch != ",")
allNum += ch;
}
if (!allValid)
{
alert("Please enter only digit characters in the \"DB1\" field.");
theForm.DB1.focus();
return (false);
}

if (decPoints > 1)
{
alert("Please enter a valid number in the \"DB1\" field.");
theForm.DB1.focus();
return (false);
}
return (true);
}
//--></script>

<form BOTID="0" METHOD="POST" ACTION="DateComparison1.asp"
onsubmit="return FrontPage_Form1_Validator(this)"
name="FrontPage_Form1">
<table BORDER="0">
<tr>
<td>Prior Database:</td>
<td><input NAME="DB1"
VALUE="<%=Request("DB1")%>" size="20"></td>
</tr>
<tr>
<td>Prior Release:</td>
<td><input NAME="PV1" VALUE="<%=Request("PV1")%>"
size="20"></td>
</tr>
<tr>
<td>Current Database:</td>
<td><input NAME="DB2" VALUE="<%=Request("DB2")%>"
size="20"></td>
</tr>
<tr>
<td>Current Release:</td>
<td><input NAME="PV2" VALUE="<%=Request("PV2")%>"
size="20"></td>
</tr>
</table>
 
<input TYPE="Submit"><input TYPE="Reset">
</form>
<table width="815" border="1">
<thead>
<tr>
<td width="155">Object Family</td>
<td width="58" align="left">Object</td>
<td width="71" align="center">Prior 
Database</td>
<td width="62" align="center">Prior 
Version</td>
<td width="102" align="center">Prior Date 
Compiled</td>
<td width="71" align="center">Current 
Database</td>
<td width="62" align="center">Current 
Version</td>
<td width="102" align="center">Current  Date 
 Compiled</td>
<td width="104" align="center">Host 
System</td>
</tr>
</thead>
<tbody>

<%
fp_sQry="SELECT * FROM Date_Compare_Single WHERE (""Database Release
1"" = ::DB1:: AND ""Product Version 1"" = ::PV1:: AND ""Database
Release 2"" = ::DB2:: AND ""Product Version 2"" = ::PV2::)"
fp_sDefault="DB1=0&PV1=0&DB2=0&PV2=0"
fp_sNoRecords="<tr><td colspan=9 align=left width=""100%"">No records
returned.</td></tr>"
fp_sDataConn="RMS97"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Object Family Name"
fp_sMenuValue="Object Family Name"
fp_iDisplayCols=9
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>


<tr>
<td width="155"><%=FP_FieldVal(fp_rs,"Object Family Name")%>
</td>
<td width="58" align="left"><%=FP_FieldVal(fp_rs,"Object Name")%>
</td>
<td width="71" align="center"><%=FP_FieldVal(fp_rs,"Database Release 1")%>
</td>
<td width="62" align="center"><%=FP_FieldVal(fp_rs,"Product Version 1")%>
</td>
<td width="102" align="center"><%=FP_FieldVal(fp_rs,"Enterprise Date Compiled 1")%>
</td>
<td width="71" align="center"><%=FP_FieldVal(fp_rs,"Database Release 2")%>
</td>
<td width="62" align="center"><%=FP_FieldVal(fp_rs,"Product Version 2")%>
</td>
<td width="102" align="center"><%=FP_FieldVal(fp_rs,"Enterprise Date Compiled 2")%>
</td>
<td width="104" align="center"><%=FP_FieldVal(fp_rs,"HostSystem")%>
</td>
</tr>


</tbody>
</table>

</body>

</html>

"Jim Buyens" <news@interlacken.com> wrote in message news:<2267201c45d59$86b248c0$a301280a@phx.gbl>...[color=darkred]
> Can you provide a URL?
>
> Jim Buyens
> Microsoft FrontPage MVP
> http://www.interlacken.com
> Author of:
> *----------------------------------------------------
> |\---------------------------------------------------
> || Microsoft Office FrontPage 2003 Inside Out
> ||---------------------------------------------------
> || Web Database Development Step by Step .NET Edition
> || Microsoft FrontPage Version 2002 Inside Out
> || Faster Smarter Beginning Programming
> || (All from Microsoft Press)
> |/---------------------------------------------------
> *----------------------------------------------------
>
>
> change the text
> my browser

Jim Buyens

2004-06-29, 7:15 pm

I can't reproduce your entire setup because I don't have the
databases and other required files. However, when I copied
and pasted your code for the 'DB1' element, it worked fine.

Do you have script debugging turned on in IE? If not, turn it
on, then reproduce the error situation, then choose that Yes,
you want to enter the debugger. When prompted, choose Break,
and then the debugger will show you exactly which statement
is failing.

To turn on script debugging in IE, choose Tools, Internet Options,
Advanced. Then, under Browsing, clear Disable Script Debugging.

Jim Buyens
Microsoft FrontPage MVP
http://www.interlacken.com
Author of:
*----------------------------------------------------
|\---------------------------------------------------
|| Microsoft Office FrontPage 2003 Inside Out
||---------------------------------------------------
|| Web Database Development Step by Step .NET Edition
|| Microsoft FrontPage Version 2002 Inside Out
|| Faster Smarter Beginning Programming
|| (All from Microsoft Press)
|/---------------------------------------------------
*----------------------------------------------------

jmosow@yahoo.com (mosow) wrote in message news:<d599a62.0406290436.2e88e59a@posting.google.com>...[color=darkred]
> I can not give you a URL as this is part of an internal site. The
> code is below, generated by FrontPage:
>
> <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>Release Date Comparison</title>
> </head>
>
> <body>
>
> <a
> href="rms_reports.htm">Return
> to Report Menu</a>         size="2">       
> Date: <script language="VBScript">
> document.write(FormatDateTime(Date(),0))</script>
>            
> Time: <script language="VBScript">
> document.write(FormatDateTime(Time(),0))</script>
> 
> color="#FF0066">Release
> Date Comparison
>
> <script Language="JavaScript">
> function FrontPage_Form1_Validator(theForm)
> {
>
> var checkOK = "0123456789-.,";
> var checkStr = theForm.DB1.value;
> var allValid = true;
> var decPoints = 0;
> var allNum = "";
> for (i = 0; i < checkStr.length; i++)
> {
> ch = checkStr.charAt(i);
> for (j = 0; j < checkOK.length; j++)
> if (ch == checkOK.charAt(j))
> break;
> if (j == checkOK.length)
> {
> allValid = false;
> break;
> }
> if (ch == ".")
> {
> allNum += ".";
> decPoints++;
> }
> else if (ch != ",")
> allNum += ch;
> }
> if (!allValid)
> {
> alert("Please enter only digit characters in the \"DB1\" field.");
> theForm.DB1.focus();
> return (false);
> }
>
> if (decPoints > 1)
> {
> alert("Please enter a valid number in the \"DB1\" field.");
> theForm.DB1.focus();
> return (false);
> }
> return (true);
> }
> //--></script>
>
> <form BOTID="0" METHOD="POST" ACTION="DateComparison1.asp"
> onsubmit="return FrontPage_Form1_Validator(this)"
> name="FrontPage_Form1">
> <table BORDER="0">
> <tr>
> <td>Prior Database:</td>
> <td><input NAME="DB1"
> VALUE="<%=Request("DB1")%>" size="20"></td>
> </tr>
> <tr>
> <td>Prior Release:</td>
> <td><input NAME="PV1" VALUE="<%=Request("PV1")%>"
> size="20"></td>
> </tr>
> <tr>
> <td>Current Database:</td>
> <td><input NAME="DB2" VALUE="<%=Request("DB2")%>"
> size="20"></td>
> </tr>
> <tr>
> <td>Current Release:</td>
> <td><input NAME="PV2" VALUE="<%=Request("PV2")%>"
> size="20"></td>
> </tr>
> </table>
> 
> <input TYPE="Submit"><input TYPE="Reset">
> </form>
> <table width="815" border="1">
> <thead>
> <tr>
> <td width="155">Object Family</td>
> <td width="58" align="left">Object</td>
> <td width="71" align="center">Prior 
> Database</td>
> <td width="62" align="center">Prior 
> Version</td>
> <td width="102" align="center">Prior Date 
> Compiled</td>
> <td width="71" align="center">Current 
> Database</td>
> <td width="62" align="center">Current 
> Version</td>
> <td width="102" align="center">Current  Date 
>  Compiled</td>
> <td width="104" align="center">Host 
> System</td>
> </tr>
> </thead>
> <tbody>
> 
> <%
> fp_sQry="SELECT * FROM Date_Compare_Single WHERE (""Database Release
> 1"" = ::DB1:: AND ""Product Version 1"" = ::PV1:: AND ""Database
> Release 2"" = ::DB2:: AND ""Product Version 2"" = ::PV2::)"
> fp_sDefault="DB1=0&PV1=0&DB2=0&PV2=0"
> fp_sNoRecords="<tr><td colspan=9 align=left width=""100%"">No records
> returned.</td></tr>"
> fp_sDataConn="RMS97"
> fp_iMaxRecords=0
> fp_iCommandType=1
> fp_iPageSize=0
> fp_fTableFormat=True
> fp_fMenuFormat=False
> fp_sMenuChoice="Object Family Name"
> fp_sMenuValue="Object Family Name"
> fp_iDisplayCols=9
> fp_fCustomQuery=False
> BOTID=0
> fp_iRegion=BOTID
> %>
> 
> 
> <tr>
> <td width="155"><%=FP_FieldVal(fp_rs,"Object Family Name")%>
> </td>
> <td width="58" align="left"><%=FP_FieldVal(fp_rs,"Object Name")%>
> </td>
> <td width="71" align="center"><%=FP_FieldVal(fp_rs,"Database Release 1")%>
> </td>
> <td width="62" align="center"><%=FP_FieldVal(fp_rs,"Product Version 1")%>
> </td>
> <td width="102" align="center"><%=FP_FieldVal(fp_rs,"Enterprise Date Compiled 1")%>
> </td>
> <td width="71" align="center"><%=FP_FieldVal(fp_rs,"Database Release 2")%>
> </td>
> <td width="62" align="center"><%=FP_FieldVal(fp_rs,"Product Version 2")%>
> </td>
> <td width="102" align="center"><%=FP_FieldVal(fp_rs,"Enterprise Date Compiled 2")%>
> </td>
> <td width="104" align="center"><%=FP_FieldVal(fp_rs,"HostSystem")%>
> </td>
> </tr>
> 
> 
> </tbody>
> </table>
>
> </body>
>
> </html>
>
>
> "Jim Buyens" <news@interlacken.com> wrote in message news:<2267201c45d59$86b248c0$a301280a@phx.gbl>...
> change the text
> my browser

mosow

2004-06-30, 7:15 pm

I appreciate your looking at this for me. The line that I get the
error on is:

var checkStr = theForm.DB1.value;

I am not a javascript person. So I am relying on FrontPage to be
smart enough to generate all the code I need to make this work.

news@interlacken.com (Jim Buyens) wrote in message news:<36a7e008.0406291252.52335fa8@posting.google.com>...[color=darkred]
> I can't reproduce your entire setup because I don't have the
> databases and other required files. However, when I copied
> and pasted your code for the 'DB1' element, it worked fine.
>
> Do you have script debugging turned on in IE? If not, turn it
> on, then reproduce the error situation, then choose that Yes,
> you want to enter the debugger. When prompted, choose Break,
> and then the debugger will show you exactly which statement
> is failing.
>
> To turn on script debugging in IE, choose Tools, Internet Options,
> Advanced. Then, under Browsing, clear Disable Script Debugging.
>
> Jim Buyens
> Microsoft FrontPage MVP
> http://www.interlacken.com
> Author of:
> *----------------------------------------------------
> |\---------------------------------------------------
> || Microsoft Office FrontPage 2003 Inside Out
> ||---------------------------------------------------
> || Web Database Development Step by Step .NET Edition
> || Microsoft FrontPage Version 2002 Inside Out
> || Faster Smarter Beginning Programming
> || (All from Microsoft Press)
> |/---------------------------------------------------
> *----------------------------------------------------
>
>
>
> jmosow@yahoo.com (mosow) wrote in message news:<d599a62.0406290436.2e88e59a@posting.google.com>...
> return (true);
> change the text
> my browser

mosow

2004-06-30, 7:15 pm

Thanks for looking at this. The line that it fails on is:

var checkStr = theForm.DB1.value;

news@interlacken.com (Jim Buyens) wrote in message news:<36a7e008.0406291252.52335fa8@posting.google.com>...[color=darkred]
> I can't reproduce your entire setup because I don't have the
> databases and other required files. However, when I copied
> and pasted your code for the 'DB1' element, it worked fine.
>
> Do you have script debugging turned on in IE? If not, turn it
> on, then reproduce the error situation, then choose that Yes,
> you want to enter the debugger. When prompted, choose Break,
> and then the debugger will show you exactly which statement
> is failing.
>
> To turn on script debugging in IE, choose Tools, Internet Options,
> Advanced. Then, under Browsing, clear Disable Script Debugging.
>
> Jim Buyens
> Microsoft FrontPage MVP
> http://www.interlacken.com
> Author of:
> *----------------------------------------------------
> |\---------------------------------------------------
> || Microsoft Office FrontPage 2003 Inside Out
> ||---------------------------------------------------
> || Web Database Development Step by Step .NET Edition
> || Microsoft FrontPage Version 2002 Inside Out
> || Faster Smarter Beginning Programming
> || (All from Microsoft Press)
> |/---------------------------------------------------
> *----------------------------------------------------
>
>
>
> jmosow@yahoo.com (mosow) wrote in message news:<d599a62.0406290436.2e88e59a@posting.google.com>...
> return (true);
> change the text
> my browser