doubt regarding select box....urgent

[meenu_susi]

doubt regarding select box....urgent
in the below code i am getting data from database..accor ding to the condition..
i want the available data in database to get displayed in selectbox..

for ex...
in the code i am getting color=rs("color ")according to the condtion if(shirt=name)
if i get red, blue as result the i want these two colors to be in selectbox..
if its three colors means i want those three colors to get displayed in selectbox..

how to do this

regards
meenu


<%
set con=server.crea teobject("adodb .connection")
set rs=server.creat eobject("adodb. recordset")

Con.Open "dsn=tshirt "

set rs=con.execute( "select * from table1")
while not rs.eof
name=rs("name")

if(shirt=name)t hen
color1=rs("colo r")

%>
<select name="color">
<option value="<%=color 1%>"><%=color1% ></option>
<%
end if
rs.movenext
wend
%>

[cbrao]

Put your <Select ..> Tag out side while loop. It should be like this..

<%
set con=server.crea teobject("adodb .connection")
set rs=server.creat eobject("adodb. recordset")

Con.Open "dsn=tshirt "

set rs=con.execute( "select * from table1")
if Not(rs.eof and rs.bof) Then
response.write "<select name="color">"
while not rs.eof
name=rs("name")
if(shirt=name)t hen
color1=rs("colo r")
%>
<option value="<%=color 1%>"><%=color1% ></option>
<%
end if
rs.movenext
wend
response.write "</select>"
else
''''Do something that have no values
End if
%>

[meenu_susi]

thanks for ur reply...
i tried that but the following error occurs...
in response.write

Microsoft VBScript compilation (0x800A0401)
Expected end of statement

response.write "<select name="color">"
-----------------------------^

[meenu_susi]

hi cbaro..

i got it worked...
i have made a small change in the code...and it worked..
i have placed the select statement outside the while loop...thats what the change..
anyway thanks for ur suggection...
<%
set con=server.crea teobject("adodb .connection")
set rs=server.creat eobject("adodb. recordset")

Con.Open "dsn=tshirt "

set rs=con.execute( "select * from table1")
%>
<select name="color">
<%
while not rs.eof
name=rs("name")

if(shirt=name)t hen
color1=rs("colo r")

%>

<option value="<%=color 1%>"><%=color1% ></option>
<%
end if
rs.movenext
wend
%>


with regards
meenu

[iam_clint]

Put your <Select ..> Tag out side while loop. It should be like this..

<%
set con=server.crea teobject("adodb .connection")
set rs=server.creat eobject("adodb. recordset")

Con.Open "dsn=tshirt "

set rs=con.execute( "select * from table1")
if Not(rs.eof and rs.bof) Then
response.write "<select name="color">"
while not rs.eof
name=rs("name")
if(shirt=name)t hen
color1=rs("colo r")
%>
<option value="<%=color 1%>"><%=color1% ></option>
<%
end if
rs.movenext
wend
response.write "</select>"
else
''''Do something that have no values
End if
%>

response.write "<select name="color">"
this would never work :) take a look at it

quote<select name=quote color quote>quote
your ending your response.write after the second quote so color">" would still be there thats the unexpected end of statement problem..

[meenu_susi]

ya i got it...
thanks for ur reply..
and i got it worked also..
see the above code posted my me...