Help: Holding values in form after error checking!

tsbarnes

01-07-2003, 03:41 PM

Ok,

I need a little help with keeping the values of my form after I do form validation. If the form returns an error than it wipes out my values in this javascript linked dropdowns I am using.

First of you can see the form @ www.object5.com/test/javascript.asp

Do the following to see the problem:

Fill out the form leaving out the partNumber. Also when you get to ProductType select Pt Items and for brand select other. Once you do this a text box will appear. You can put anything...test,ljjjkj, whatever you like.

Once you have done this click submit. If an error occurs it wipes out all of the value in the drop own menues. So my question is how do I hold those values? I pasted the javascript code below.

Code---------------------------------------------
</head>

<SCRIPT language="javascript">

</SCRIPT>

<body onLoad="createMenus(); document.myForm.PartNumber.focus()">

-----------------------------------------------------------------------------------

Any help will be most appreciated!

Thanks,

Tsbarnes

beetle

01-07-2003, 04:30 PM

I get some type of 404 from that link

tsbarnes

01-07-2003, 04:38 PM

It would help if I verified the right link I guess. Well here is the correct link:

http://www.object5.com/test/javascript/postitem.asp

Sorry about that!

Thanks,

Tsbarnes

Tanker

01-07-2003, 05:00 PM

It looks like your doing server side validation with ASP, in which case you probably need to save the variables then put them back when the page returns.

I usually use client side, add this between your script tags...

function checkFields(){
frm = document.myForm

if(frm.partnumber.value == ""){alert("Part Number Required");frm.partnumber.focus();return false;}
if(frm.Quantity.value == ""){alert("Quantity Required");frm.Quantity.focus();return false;}
return true;
}

then put onSubmit="checkFields()" into the <form> tag.

When they hit the submit button it will check those 2 fields for data, if either is blank it will pop an alert and make them go back, and won't allow the form to go further. The reason I didn't code for the option boxes is that they don't have a choice of leaving it blank, it defaults to the first value in the list.

Hope this helps some.

whammy

01-07-2003, 10:25 PM

This is definitely an ASP question.

The answer is fairly basic, but I made a couple of functions to make this easier:

<%
Function IsChecked(val1,val2)
If val1 = val2 Then IsChecked = " checked=""checked"""
End Function

Function IsSelected(val1,val2)
If val1 = val2 Then IsSelected = " selected=""selected"""
End Function
%>

Now in your form, you can simply do this (as an example):

<%
' Put this somewhere in your ASP...
Dim Unit : Unit = Request.Form("Unit")
%>

<select name="Unit">
<option value="">
<option value="EA - Each"<% = IsSelected("EA - Each",Unit) %>>EA - Each
<option value="PR - Pair"<% = IsSelected("PR - Pair",Unit) %>>PR - Pair
<option value="BX - Box"<% = IsSelected("BX - Box",Unit) %>>BX - Box
<option value="FT - Foot"<% = IsSelected("FT - Foot",Unit) %>>FT - Foot
<option value="AY - Assembly"<% = IsSelected("AY - Assembly",Unit) %>>AY - Assembly
<option value="LK - Link"<% = IsSelected("LK - Link",Unit) %>>LK - Link
<option value="IN - Inches"<% = IsSelected("IN - Inches",Unit) %>>IN - Inches
</select>

You could also say:

<% If Request.Form("Unit") = "LK - Link" Then Response.Write(" selected=""selected""") %>

for each option, but as you can see using the functions I wrote is shorter- especially if you populate the dropdowns dynamically from an array or database, since in the latter case you'd only have to use it once as you loop through. Example...:

<% @Language="VBScript" %>
<% Option Explicit %>
<%
Dim Unit : Unit = Request.Form("Unit")

Function IsSelected(val1,val2)
If val1 = val2 Then IsSelected = " selected=""selected"""
End Function

Sub WriteUnitDropdown()
Dim unitstring, unitarray, i
unitstring = "EA - Each,PR - Pair,BX - Box,FT - Foot,AY - Assembly,LK - Link,IN - Inches"
unitarray = Split(unitstring,",")

Response.Write("<select size=""1"" name=""Unit"">" & vbCrLf)
Response.Write(" <option value=""""></option>" & vbCrLf)

For i = 0 to UBound(unitarray)
Response.Write(" <option value=""" & unitarray(i) & """")
Response.Write(IsSelected(unitarray(i),Unit))
Response.Write(">" & unitarray(i) & "</option>" & vbCrLf)
Next

Response.Write("</select>" & vbCrLf)
End Sub
%>
<form id="myform" action="test.asp" method="post">
<% Call WriteUnitDropDown() %>
<input type="submit" value="Submit" />
</form>

whammy

01-07-2003, 11:26 PM

Taking this a step further, you could even create a subroutine to write dropdowns in general, like so - it does slow it down a little bit, but it makes stuff real easy to maintain... ;)

<% @Language="VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
Dim submitnum ' Number of times form has been submitted
submitnum = Request.Form("submitnum")
submitnum = submitnum + 1

Dim Unit : Unit = Request.Form("Unit")
Dim Whatever : Whatever = Request.Form("Whatever")

Function IsSelected(val1,val2)
If val1 = val2 Then IsSelected = " selected=""selected"""
End Function

Sub WriteDropdown(strName,strValue,strNameValuePair,indent)
Dim ddCounter, ddArray, ddArray2, ddIndent
ddIndent = indent & indent & indent
ddArray = Split(strNameValuePair,",")
Response.Write(ddIndent & "<select name=""" & strName & """>" & vbCrLf)
Response.Write(ddIndent & indent & "<option value=""""></option>" & vbCrLf)
For ddCounter = 0 to UBound(ddArray)
ddArray2 = Split(ddArray(ddCounter),"|")
Response.Write(ddIndent & indent & "<option value=""" & ddArray2(0) & """")
Response.Write(IsSelected(ddArray2(0),strValue))
Response.Write(">" & ddArray2(1) & "</option>" & vbCrLf)
Next
Response.Write(ddIndent & "</select>" & vbCrLf)
End Sub

Sub WriteAllDropdowns()
' Unit
Dim UnitDropdownValues
UnitDropdownValues = "EA|Each,PR|Pair,BX|Box,FT|Foot,AY|Assembly,LK|Link,IN|Inches"
Call WriteDropDown("Unit",Unit,UnitDropDownValues," ")
If submitnum > 1 AND Unit = "" Then Response.Write(" * Required")
Response.Write(" <br />" & vbCrLf)
'Whatever
Dim SomeOtherDropdownValues
SomeOtherDropdownValues = "1|One,2|Two,3|Three,4|Four,5|Five"
Call WriteDropDown("Whatever",Whatever,SomeOtherDropdownValues," ")
If submitnum > 1 AND Whatever = "" Then Response.Write(" * Required")
Response.Write(" <br />" & vbCrLf)
End Sub
%>
<html>
<head>
<title>Example</title>
</head>
<body>
<div>
<form id="myform" action="test.asp" method="post">
<% Call WriteAllDropdowns() %>
<input type="hidden" name="submitnum" value="<% = submitnum %>" />
<input type="submit" value="Submit" />
</form>
</div>
</body>
</html>

P.S. The forum put in a few funky line breaks in the code, and a weird space in "UnitDropDownValues"... FYI