Combo Box

[SparKyk3 0]

Tipo eu to fasendo uma pagina web que cadastra, deleta e atualiza contatos.

na hora de cadastrar existe uma combo, ela ja esta salvando no banco de dados normalmente

mais na hora de da o update a combo nao fica selecionada gostaria de saber como vai ficar.

 

Ai ta oque eu fiz até agora

 

<tr>
					<td>Cargo: </td><td>
					<select name="Cod_Cargo" style="width:200px">
						<option value="0">Selecione...</option>
						<%
								set rs=Server.CreateObject("ADODB.recordset")
								sql= "SELECT Cod_Cargo, Nom_Cargo, Ind_Ativo FROM tb_Cargo WHERE Ind_Ativo =1"
								rs.Open sql, conn
								dim func
								while not rs.EOF
									if Cint(rs("Cod_Cargo")) =(Cod_Cargo) then
									%><script>alert("<%=Cod_Cargo%>")</script><%
									func = "selected"
								end if %>
						<option <%=func %>  value='<%= trim(rs("Cod_Cargo")) %>'><%= trim(rs("Nom_Cargo")) %></option>
								<% rs.movenext
								wend %>
					</select>
					</td>
				</tr>
				<tr>
					<td>Perfil:</td><td>
					<select name="Cod_Perfil" style="width:200px">
						<option value="0">Selecione...</option>
						<%
								set rs=Server.CreateObject("ADODB.recordset")
								sql= "SELECT Cod_Perfil, Nom_Perfil, Ind_Ativo FROM tb_Perfil WHERE Ind_Ativo =1"
								rs.Open sql, conn
								while not rs.EOF
									if Cint(rs("Cod_Perfil")) =(Cod_Perfil) then
									func = "selected"
								end if %>
						<option <%=func %>  value='<%= trim(rs("Cod_Perfil")) %>'><%= trim(rs("Nom_Perfil")) %></option>
								<% rs.movenext
								wend %>
					</select>
					</td>
				</tr>

[saloeric 1]

não entendi bem a sua dúvida mas olhando ai para o código, a sua variável func convem ir vazia no inicio, depois tem uma comparação a (cod_perfil), isto é alguma variavel? ou vem do request?

 

<select name="Cod_Perfil" style="width:200px">
 <option value="0">Selecione...</option>
 <%
 set rs=Server.CreateObject("ADODB.recordset")
 sql= "SELECT Cod_Perfil, Nom_Perfil, Ind_Ativo FROM tb_Perfil WHERE Ind_Ativo =1"
 rs.Open sql, conn
 while not rs.EOF
 func = ""
 if Cdbl(rs("Cod_Perfil")) = (Cod_Perfil) then
 func = "selected"
 end if %>
 <option <%=func %> value='<%= trim(rs("Cod_Perfil")) %>'><%= trim(rs("Nom_Perfil")) %></option>
 <% rs.movenext
 wend %>
 </select>

[SparKyk3 0]

é uma variavel

vlw ai deu tudo certo estava faltando só colocar a func vazia mesmo brigadao pela ajuda

[xanburzum 169]

olha este exemplo

 

<form action="inserirend_action.asp" method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 

<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<% if varpais=rs("pais") then 
response.write("Selecionado") 
end if%> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%>

se o recordset for igual a variavel ele escreve na sempre selecionado