Listbox Dinamica

#1 lone

Turista

Usuários
51 posts

Sexo:Não informado

Posted 30/09/2003, 11:28

Caros tenho uma lista de cidades no bd, e quero montar uma listbox dinamica ou seja quando for selecionado uma cidade ela automaticamente seja enviada para a pagina com o nome da cidade, no bd tenho os campos "nomecidade" e "link", a listbox eu consegui fazer agora como faço para cada cidade estar linkada nos seus respectivos links

<%
Set Conn=server.createobject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("osmelhores.mdb")

Set Usr=server.createobject("ADODB.Recordset")
Usr.Open "Select Distinct(nomecidade) From cidades", Conn, 3, 3

If Usr.eof then
response.write "não existe registro"
else
%>
<BODY>
<select name="select">
<%do While not Usr.eof%>
<option><%=Usr("nomecidade")%></option>
<%USR.MoveNext()
loop%>
</select>
<%end if%>
<%Usr.close%>
</BODY>
</HTML>

O homem sabio compartilha o que sabe, o tolo leva o conhecimento para o esquecimento.

#2 cybermix

andrewsmedina.com.br

Ex-Admins
3586 posts

Sexo:Não informado
Localidade:Não sou desse planeta não!!!!
Interesses:python, fireworks, linux, php, flash...

Posted 01/10/2003, 09:01

para que funcione o su JUMP MENU, será necessario que você utilize, javascript e que coloque no seu OPTION, o valor que sera o link. ficara assim:

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<%
Set Conn=server.createobject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("osmelhores.mdb")

Set Usr=server.createobject("ADODB.Recordset")
Usr.Open "Select Distinct(nomecidade) From cidades", Conn, 3, 3

If Usr.eof then
response.write "não existe registro"
else
%>
<BODY>
<select name="select" onChange="MM_jumpMenu('parent',this,0)">
<%do While not Usr.eof%>
<option value="<%=Usr("link")%>"><%=Usr("nomecidade")%></option>
<%USR.MoveNext()
loop%>
</select>
<%end if%>
<%Usr.close%>
</BODY>
</HTML>

www.andrewsmedina.com.br

#3 Visitante_Lone

Visitantes

Posted 06/10/2003, 21:54

Valeu cybermix, funcionou perfeito, desculpe por demorar em responder. obrigadao

#1 lone

#2 cybermix

#3 Visitante_Lone

1 user(s) are reading this topic

Entrar