Thread: retreive DB values into a DD box

Code:

	<fieldset style="padding: 2; width:600px; height:53">
	<legend><font color="#0000FF"><b>Talent Review</b></font></legend>
	<font face="Arial">
	<font size="2">&nbsp; 4</font><font size="2" face="Arial">) High 
	Potential:</font>

	<select name="High_Potential" size="1" style="width: 111; height: 21" >
				<option selected>Choose One...</option>
				<option value="Yes0" >Yes</option>
				<option value="No0" >No</option>
			</select ><font color="#FF0000"><%=response.write(rs("High_Potential"))%></font>
	</font>
	</fieldset></p>

As you can see above i have used response.write to show the user what value is in the DB.. but how do i get the value to automatically show up in the drop down list?

Hi wbva,

you need a select query....also, it appears your response.write is on the outside of the </select> tag. ?

How about something like this...

Code:

<select name="High_Potential" size="1" style="width: 111; height: 21" >
<%
Set Rs=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT HighPotential FROM yourTableName"
strSQL = strSQL & " ORDER BY HighPotential"
Rs.Open strSQL, conn

Do while not Rs.EOF
   if Request.Form("High_Potential") = Rs("High_Potential") then
      Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "' SELECTED>"
      Response.Write Rs("High_Potential") & "</Option>"
      Rs.MoveNext
   else
      Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "'>"
      Response.Write Rs("High_Potential") & "</Option>"
      Rs.MoveNext
   end if
loop

%>
</SELECT>

Originally Posted by Rebelle

Hi wbva,

you need a select query....also, it appears your response.write is on the outside of the </select> tag. ?

How about something like this...

Code:

<select name="High_Potential" size="1" style="width: 111; height: 21" >
<%
Set Rs=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT HighPotential FROM yourTableName"
strSQL = strSQL & " ORDER BY HighPotential"
Rs.Open strSQL, conn

Do while not Rs.EOF
   if Request.Form("High_Potential") = Rs("High_Potential") then
      Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "' SELECTED>"
      Response.Write Rs("High_Potential") & "</Option>"
      Rs.MoveNext
   else
      Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "'>"
      Response.Write Rs("High_Potential") & "</Option>"
      Rs.MoveNext
   end if
loop

%>
</SELECT>

hi, thanks for that.. but i have another query running at the top of the page... so i assume i change Rs to rs1 and it did seem to work.. but basically the page is so the user can update. and it only has Choose One in the box.. as its querying on those values. how would i add other selectable values ?

Code:

<%
'Checking to see what request is being submitted
	IF  Request.Form("submit")="submit" Then
	
	username=request.form("username")    ' Get the unique Ref being searched for
	
	'create a record set
		Set rs=Server.CreateObject("ADODB.RecordSet")
	'Query the database
		sql= "SELECT * FROM [Exec-3] WHERE username = '" & username& "'"
		rs.open sql, conn, 1, 1
		IF NOT rs.eof THEN
		
		response.write sql
		

		

%>

Hi wbva,

Not sure what you mean "other selectable values"...? .. other value other than from database?

Also, if you already had query at the top of page then you don't have to repeat...just start with the do while line.

Originally Posted by Rebelle

Hi wbva,

Not sure what you mean "other selectable values"...? .. other value other than from database?

Also, if you already had query at the top of page then you don't have to repeat...just start with the do while line.

I want to retreive the selected value from the database.. but also i want the option of having static values from the drop down list..

say the drop down retreives 'Yes' but the user wants to change this to 'No'.. they cant seem to do that as all the code does is retreieve.

ok, thought that but wanted to clarify .. .how about line in blue...i may have quotes wrong but give it a try.

Do while not Rs.EOF
if Request.Form("High_Potential") = Rs("High_Potential") then
Response.Write "<OPTION VALUE = 'No' SELECTED>"No</Option>"
Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "' SELECTED>"
Response.Write Rs("High_Potential") & "</Option>"
Rs.MoveNext
else
Response.Write "<OPTION VALUE = 'No' SELECTED>"No</Option>"
Response.Write "<OPTION VALUE = '" & Rs("High_Potential") & "'>"
Response.Write Rs("High_Potential") & "</Option>"
Rs.MoveNext
end if
loop

Originally Posted by BLaaaaaaaaaarche

Rebelle, you can achieve the same thing with much less code, using this logic:

Code:

Do While Not rs.EOF
	strHP = rs("High_Potential")
	response.write "<option value=""" & strHP & """"
	If CStr(Request.Form("High_Potential")) = CStr(strHP) Then
		response.write " selected"
	End If
	response.write ">" & strHP & "</option>" & vbCrLf
rs.MoveNext
Loop

Just thought I would share that with you.

WBVA, I have no clue what you are trying to say. Can you please rephrase your question?

Thanks for the code.. basically what i want to do is:

have a drop down box with the values Yes, No and N/A.

If the user (from another page) has inserted Yes, then my update page should retreive Yes into the drop down box.

As this is an update page it should have a choice of the other values in case the user wants to change the value to No.

got this error :

Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
admin/Form3_Update.asp, line 93