DropDown Default Value 1

cruford · Apr 7, 2003

I have a drop down box that is populated from a SQL Query.

Vendor: <SELECT NAME=cboVendor ID=cboVendor>
<%Do While Not rsVendor.EOF%>
<OPTION VALUE="<%=rsVendor.Fields("Vendor&quot

%>"><%=rsVendor.Fields("Vendor&quot

%></OPTION>
<%rsVendor.MoveNext%><%Loop%>
</SELECT>

What I need to do now is specify the default value from another recordset.

rsIndex is a single record in the database. I need rsIndex.Fields("Vendor&quot

to be the value in the dropdown box when the page loads. Then rsVendor recordset populates the other choices like the above code does. Hope this makes since. Thanks

GaryC123 · Apr 7, 2003

If I understand you right
<%
Do While Not rsVendor.EOF
if rsvender("Vendor&quot

=rsnew("field&quot

then %>
<OPTION VALUE="<%=rsVendor("Vendor&quot

%>" Selected>
=rsVendor("Vendor&quot

%></Option>
<% else%>
<OPTION VALUE="<%=rsVendor("Vendor&quot

%>"><%=rsVendor("Vendor&quot

%></OPTION>
<% End If
rsVendor.MoveNext
Loop%>

http://www.intouch-media.co.uk

cruford · Apr 7, 2003

Close, let me see if I can explain better. Say you have a Visual Basic Form or Access Form. You have a drop down box that has a list of choices (in my case choices are populated from the code in my first post). When you move to a record the drop down box shows the value of the record your on, and of course you click the drop down menu to change this. On my ASP page it is showing my fields i loaded in, however it always shows the first value loaded into the drop down box, I need it to show the value of the record I am on.

Here is the entire page (very simple since this is my first working with ASP whats in blue is my drop down boxes)

<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM METHOD=Post NAME=frmSearch ACTION=Workstations.asp>
Please Enter Serial Number: <BR>
<INPUT TYPE=Text NAME=txtSearch ID=txtSearch>
<INPUT TYPE=submit NAME=cmdSubmit VALUE=Search>
</FORM>
<%
If Len(Request.Form("txtSearch&quot

) > 0 Then
dim strDBConn, strHostConn
dim strSQL
dim rsIndex
dim cnIndex
dim rsVendor
dim strVendor
dim cnHostName
dim rsHostName
set cnIndex = Server.CreateObject("ADODB.Connection&quot

set cnHostName = server.CreateObject("ADODB.Connection&quot

Set rsIndex = Server.CreateObject("ADODB.Recordset&quot

Set rsVendor = Server.CreateObject("ADODB.Recordset&quot

set rsHostName = server.CreateObject("ADODB.Recordset&quot

strDBConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path to db"
cnIndex.Open strDBConn
strHostConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path to db"
strVendor = "SELECT DISTINCT Vendor FROM tblComputers ORDER BY Vendor"
strSQL = "SELECT * FROM tblComputers WHERE SerialNumber = '" & Request.Form("txtSearch&quot

& "'"
set rsIndex = cnIndex.Execute(strSQL)
set rsVendor = cnIndex.Execute(strVendor)
cnHostName.Open strHostConn
strSQL = "SELECT HostName FROM phonelist ORDER BY HostName"
set rsHostName = cnHostName.Execute(strSQL)
End If
%>
<FORM METHOD=Get NAME=frmResults ACTION=Workstations.asp>
Asset Number: <%=rsIndex.Fields("AssetNumber&quot

%>
Serial Number: <%=rsIndex.Fields("SerialNumber&quot

%> <BR>
First Name: <INPUT TYPE=Text NAME=txtFirstName ID=txtFirstName VALUE=<%=rsIndex.Fields("FirstName&quot

%>><BR>
Last Name: <INPUT TYPE=Text NAME=txtLastName ID=txtLastName VALUE=<%=rsIndex.Fields("LastName&quot

%>><BR>
Status: <SELECT NAME=cboStatus ID=cboStatus>
<OPTION><%=rsIndex.Fields("Status&quot

%></OPTION>
<OPTION>Active</OPTION>
<OPTION>Storage</OPTION>
<OPTION>Out of Service</OPTION>
<OPTION>Being Repaired</OPTION>
<OPTION>Discarded</OPTION>
</SELECT>
<BR>
CarePak: <INPUT TYPE=Text NAME=txtCarePak ID=txtCarePak VALUE=<%=rsIndex.Fields("CarePak&quot

%>><BR>
Vendor: <%=rsIndex.Fields("Vendor&quot

%> <BR>
Vendor: <SELECT NAME=cboVendor ID=cboVendor>
<%Do While Not rsVendor.EOF%>
<OPTION VALUE="<%=rsVendor.Fields("Vendor&quot

%>"><%=rsVendor.Fields("Vendor&quot

%></OPTION>
<%rsVendor.MoveNext%><%Loop%>
</SELECT>
<%rsVendor.Close%>
<%set rsVendor = nothing%>
<BR>
Model: <INPUT TYPE=Text NAME=txtModel ID=txtModel VALUE=<%=rsIndex.Fields("Model&quot

%>><BR>
Host Name: <SELECT NAME=cboHostName ID=cboHostName>
<%Do While Not rsHostName.EOF%>
<OPTION VALUE="<%=rsHostName.Fields("HostName&quot

%>"><%=rsHostName.Fields("HostName&quot

%></OPTION>
<%rsHostName.MoveNext%><%Loop%>
</SELECT>
<%rsHostName.Close%>
<%set rsHostName = nothing%>
<%cnHostName.Close%>
<%set cnHostName = nothing%>

</FORM>
<%
rsIndex.Close
set rsIndex = nothing
cnIndex.Close
set cnIndex = nothing
%>
<P> </P>

</BODY>
</FORM>
</HTML>

Tarwn · Apr 7, 2003

That is basically what Gary's code is doing. As it outputs the options for the dropdown it checks each one against the record your loading, and if it finds a match it makes that option selected.

-Tarwn _{01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101}
^{29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19}
Get better results for your questions: faq333-2924
Frequently Asked ASP Questions: faq333-3048

cruford · Apr 8, 2003

Your right I was just not seeing it for some reason. This works perfect. Thanks for the quick responses.

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!

DropDown Default Value 1

cruford

Programmer

GaryC123

Programmer

cruford

Programmer

Tarwn

Programmer

cruford

Programmer

Similar threads

Part and Inventory Search

Sponsor