|
 |
asp_databases thread: Dropdown list validation
Message #1 by "charles denequolo" <charles.denequolo@p...> on Mon, 11 Nov 2002 15:04:07
|
|
is there anyway to check a dropdown box to make sure it is '
not left blank. here is the code im using for the dropdowns.
<%
Option Explicit
Dim strConnect
%>
<!-- #INCLUDE FILE="datastore.asp" -->
<HTML>
<HEAD>
<TITLE>ADO Recordset Object</TITLE>
</HEAD>
<BODY>
<% Const adOpenForwardOnly = 0
Const adLockreadonly = 1
Const adCmdTable = 2
Dim objRS ' recordset
object
Set objRS = Server.CreateObject
("ADODB.Recordset") '
recordset object
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "at_rep", strConnect, _
adOpenForwardOnly, adLockreadonly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="Form1" >
<BR><BR>AT Reps<BR><select name="ATrep">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write
objRS.Fields("ATrep")%>"><%Response.Write objRS.Fields("Atrep")%> </option>
<%
objRS.MoveNext
wend
%>
</Select>
<%
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "Category", strConnect, _
adOpenForwardOnly, adLockReadOnly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="FrontPage_Form2">
<BR><BR>Category<BR><select name="Category">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write objRS.Fields("CategoryName")%>"><%
Response.Write objRS.Fields("CategoryName")%> </option>
<%
objRS.MoveNext
wend
%>
</Select>
<%
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "CSRS_Supervisors", strConnect, _
adOpenForwardOnly, adLockReadOnly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="FrontPage_Form3">
<BR><BR>Employees<BR><select name="Employees">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write objRS.Fields("Employees")%>"><%
Response.Write objRS.Fields("Employees")%> </option>
<%
objRS.MoveNext
wend
%>
</Select><BR><BR>
Account Number<br>
<input type="text" name="acctnum" size="15"
</Input><br><br>
CSR Notes<br>
<textarea name="csrnotes" rows="3" cols="75">
</textarea><br><br>
<Input type="Submit" value="Send"/>
<Input type="Reset" value="Clear Form"></P>
<%
objRS.Close ' now close it
Set objRS = Nothing ' ...and clean up
%>
</form>
</HTML>
Message #2 by Bhupendra_Sharma@r... on Thu, 14 Nov 2002 17:31:17 +0530
|
|
I think you can do the required by defaulting some value in the dropdown
list. You can use the SELECTED parameter in the Option tag for the same.
Default some value in the list and that would take care of no blanks left
in the lists
regards
"charles denequolo"
<charles.denequolo@p... To: "ASP Databases" <asp_databases@p...>
ta-crm.com> cc:
Subject: [asp_databases] Dropdown list validation
11/11/2002 08:34 PM
Please respond to "ASP
Databases"
is there anyway to check a dropdown box to make sure it is '
not left blank. here is the code im using for the dropdowns.
<%
Option Explicit
Dim strConnect
%>
<!-- #INCLUDE FILE="datastore.asp" -->
<HTML>
<HEAD>
<TITLE>ADO Recordset Object</TITLE>
</HEAD>
<BODY>
<% Const adOpenForwardOnly = 0
Const adLockreadonly = 1
Const adCmdTable = 2
Dim objRS ' recordset
object
Set objRS = Server.CreateObject
("ADODB.Recordset") '
recordset object
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "at_rep", strConnect, _
adOpenForwardOnly, adLockreadonly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="Form1" >
<BR><BR>AT Reps<BR><select name="ATrep">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write
objRS.Fields("ATrep")%>"><%Response.Write objRS.Fields("Atrep")%> </option>
<%
objRS.MoveNext
wend
%>
</Select>
<%
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "Category", strConnect, _
adOpenForwardOnly, adLockReadOnly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="FrontPage_Form2">
<BR><BR>Category<BR><select name="Category">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write objRS.Fields("CategoryName")%>"><%
Response.Write objRS.Fields("CategoryName")%> </option>
<%
objRS.MoveNext
wend
%>
</Select>
<%
Set objRS = Server.CreateObject ("ADODB.Recordset") ' create
recordset object
objRS.Open "CSRS_Supervisors", strConnect, _
adOpenForwardOnly, adLockReadOnly, adCmdTable ' now open it
%>
<form action="AddNew.asp" method=post name="FrontPage_Form3">
<BR><BR>Employees<BR><select name="Employees">
<option value=" "></option>
<%
While Not objRS.EOF
%>
<option value= "<%Response.Write objRS.Fields("Employees")%>"><%
Response.Write objRS.Fields("Employees")%> </option>
<%
objRS.MoveNext
wend
%>
</Select><BR><BR>
Account Number<br>
<input type="text" name="acctnum" size="15"
</Input><br><br>
CSR Notes<br>
<textarea name="csrnotes" rows="3" cols="75">
</textarea><br><br>
<Input type="Submit" value="Send"/>
<Input type="Reset" value="Clear Form"></P>
<%
objRS.Close ' now close it
Set objRS = Nothing ' ...and clean up
%>
</form>
</HTML>
|
|
|
View Cart
