Usando ComboBox

[Rafael Portal 0]

Olá gente,

 

É o seguinte... Eu criei um ComboBox e estou carregando dados para ele dentro de um formulário (até aí tudo bem), só que eu quero passar no meu post o Código desta informação, tipo.. Vou usar como exemplo o que estou tentando fazer:

 

<FORM METHOD="post" ACTION="InsereDefinicoes.asp" NAME="FrmEstado">	  	<TABLE WIDTH="623" HEIGHT="32" ALIGN="center" CLASS="tabela">		<TR> 			<TD WIDTH="67" HEIGHT="30"><STRONG>Estado:</STRONG> 			<TD WIDTH="258"><INPUT TYPE="text" NAME="TxtEstado" SIZE="40" CLASS="texto">			<TD WIDTH="188"> <STRONG>Do país:</STRONG> 				<SELECT NAME="CboPais" SIZE="0" CLASS="texto">				   <% 	   Dim Pais	   Dim CodPais	   SQL = " SELECT * FROM Pais "	   ExeDB(SQL)	   Do Until Rs.EOF			Pais = Rs("Descricao") 			CodPais = Rs("CodPais")  	   %>					<OPTION SELECTED> 					<% =Pais %>					</OPTION>					<%			Rs.movenext	   loop 	   %>				</SELECT> 			<TD WIDTH="90"> <INPUT NAME="BotaoEstado" TYPE="submit" CLASS="botao" VALUE="Cadastrar" ALIGN="left"> 	</TABLE></FORM>

 

Bom eu até atribuí o valor do código para uma variável, mas não adianta.. A minha idéia é dar um POST com o código do País de acordo com o que o usuário escolheu... Espero q tenham entendido. Abraço a todos.

 

Oks,

Rafael Portal

[Rafael Portal 0]

Desculpa AAlves mas eu não entendi a idéia... Abraços..Oks,Rafael Portal

[Rafael Portal 0]

Bom, a princípio não funcionou (não sei se tem alguma coisa errada no código, por isso vou mostrar o request também), aqui vai o código:

 

 

O POST(Na página de cadastro):

 

ASP

[*]<FORM METHOD="post" ACTION="InsereDefinicoes.asp" NAME="FrmEstado">

[*] <TABLE WIDTH="623" HEIGHT="32" ALIGN="center" CLASS="tabela">

[*] <TR>

[*] <TD WIDTH="67" HEIGHT="30"><STRONG>Estado:</STRONG>

[*] <TD WIDTH="258"><INPUT TYPE="text" NAME="TxtEstado" SIZE="40" CLASS="texto">

[*] <TD WIDTH="188"> <STRONG>Do país:</STRONG>

[*] <SELECT NAME="CboPais" SIZE="0" CLASS="texto">

[*] <%

[*] Dim Pais

[*] Dim CodPais

[*] SQL = " SELECT * FROM Pais "

[*] ExeDB(SQL)

[*] Do Until Rs.EOF

[*] Pais = Rs("Descricao")

[*] CodPais = Rs("CodPais")

[*] %>

[*] <OPTION SELECTED value=<% =CodPais %>><% =Pais %></OPTION>

[*] <%

[*] Rs.movenext

[*] loop

[*] %>

[*] </SELECT>

 

 

E o Request (na página InsereDefinicoes.asp):

 

ASP

[*] if Request("BotaoEstado") <> "" then

[*] Descricao = request.form("TxtEstado")

[*] CodPais = Request.Form("CodPais")

[*]

[*] SQL = "SELECT MAX(CodEstado) AS CodEstado FROM Estado"

[*] ExeDB(SQL)

[*]

[*] if IsNull (Rs("CodEstado")) then

[*] Cod = 1

[*] else

[*] Cod = cint(RS("CodEstado")) + 1

[*] end if

[*]

[*] SQL = " INSERT INTO Estado(Descricao, CodEstado, CodPais) "& _

[*] " VALUES ('"& Descricao &"', "& Cod &", "& CodPais &") "

[*] ExeDB(SQL)

[*]

[*] response.write (SQL)

[*] response.redirect("CadDefinicoes.asp")

[*] end if

 

A idéia pelo menos é essa... O que está faltando ? Abraço a todos.

 

Oks,

Rafael Portal

[Rafael Portal 0]

Olá AAlves, agora eu consegui entender a idéia... Mas como eu faço para pegar o valor no request ??????Obs.: Valeu pela calma é que estou iniciando em ASP (Tô perdidinho, heheheh).Abraços.Oks,Rafael Portal

[Rafael Portal 0]

Funcionou !!!!! Valeu mesmo AAlves !!!!!! Abraço.Oks,Rafael Portal