Dropdown dinâmico

[maurohpg 0]

Olá galera, Se alguém puder me ajudar agradeço muito!!Estoy fazendo um menu dropdown com asp+access, eu já fiz o bd e puxei as informações do bd para os dropdown e eu queria fazer o seguinte agora: Qdo a pessoa clicar em algum item do bd a pessoa ir para a página de acordo com o produto que ele escolheu e ai teria a descrição e a foto do produto, só precisava saber como puxar as informações e jogar em outra página. Por exemplo essa página abaixo é a produtos.asp contém 4 dropdowns Tradicionais, Orientais, Codimentos e Brotos.E cada dropdown tem seus respectivos profutos.Ai qdo a pessoa clicassse no produto abriria uma outra página detalhe_prod.asp com a informação do produto de acordo com seu respectivo id.O cod da página produto.asp está abaixo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conn.asp" --><%Dim tradicionais__MMColParamtradicionais__MMColParam = "1"If (Request.QueryString("1") <> "") Then tradicionais__MMColParam = Request.QueryString("1")End If%><%Dim tradicionaisDim tradicionais_numRowsSet tradicionais = Server.CreateObject("ADODB.Recordset")tradicionais.ActiveConnection = MM_conn_STRINGtradicionais.Source = "SELECT * FROM subcategorias WHERE id_categoria = " + Replace(tradicionais__MMColParam, "'", "''") + " ORDER BY produto ASC"tradicionais.CursorType = 0tradicionais.CursorLocation = 2tradicionais.LockType = 1tradicionais.Open()tradicionais_numRows = 0%><%Dim orientais__MMColParamorientais__MMColParam = "2"If (Request.QueryString("2") <> "") Then orientais__MMColParam = Request.QueryString("2")End If%><%Dim orientaisDim orientais_numRowsSet orientais = Server.CreateObject("ADODB.Recordset")orientais.ActiveConnection = MM_conn_STRINGorientais.Source = "SELECT * FROM subcategorias WHERE id_categoria = " + Replace(orientais__MMColParam, "'", "''") + " ORDER BY produto ASC"orientais.CursorType = 0orientais.CursorLocation = 2orientais.LockType = 1orientais.Open()orientais_numRows = 0%><%Dim condimentos__MMColParamcondimentos__MMColParam = "3"If (Request.QueryString("3") <> "") Then condimentos__MMColParam = Request.QueryString("3")End If%><%Dim condimentosDim condimentos_numRowsSet condimentos = Server.CreateObject("ADODB.Recordset")condimentos.ActiveConnection = MM_conn_STRINGcondimentos.Source = "SELECT * FROM subcategorias WHERE id_categoria = " + Replace(condimentos__MMColParam, "'", "''") + " ORDER BY produto ASC"condimentos.CursorType = 0condimentos.CursorLocation = 2condimentos.LockType = 1condimentos.Open()condimentos_numRows = 0%><%Dim brotos__MMColParambrotos__MMColParam = "4"If (Request.QueryString("4") <> "") Then brotos__MMColParam = Request.QueryString("4")End If%><%Dim brotosDim brotos_numRowsSet brotos = Server.CreateObject("ADODB.Recordset")brotos.ActiveConnection = MM_conn_STRINGbrotos.Source = "SELECT * FROM subcategorias WHERE id_categoria = " + Replace(brotos__MMColParam, "'", "''") + " ORDER BY produto ASC"brotos.CursorType = 0brotos.CursorLocation = 2brotos.LockType = 1brotos.Open()brotos_numRows = 0%><%Dim MM_paramName %><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Produtos</title></head><body><form name="form1" method="post" action=""> <A HREF="produtos.asp?"> <select name="tradicionais" size="1" id="tradicionais" style="border-width: 0px; background-color: #ffffff; border-style: solid; font-size: 10; font-family: arial; width: 290"> <option value="">Tradicionais e Diferenciados</option> <%While (NOT tradicionais.EOF)%><option value="<%=(tradicionais.Fields.Item("id").Value)%>"><%=(tradicionais.Fields.Item("produto").Value)%></option> <% tradicionais.MoveNext()WendIf (tradicionais.CursorType > 0) Then tradicionais.MoveFirstElse tradicionais.RequeryEnd If%> </select> </A></form><form action="" method="post" name="orientais" id="orientais"> <select name="orientais" id="orientais" style="border-width: 0px; background-color: #ffffff; border-style: solid; font-size: 10; font-family: arial; width: 290" size="1"> <option value="">Orientais</option> <%While (NOT orientais.EOF)%><option value="<%=(orientais.Fields.Item("id_categoria").Value)%>"><%=(orientais.Fields.Item("produto").Value)%></option> <% orientais.MoveNext()WendIf (orientais.CursorType > 0) Then orientais.MoveFirstElse orientais.RequeryEnd If%> </select></form><form action="" method="post" name="condimentos" id="condimentos"> <select name="condimentos" id="condimentos" style="border-width: 0px; background-color: #ffffff; border-style: solid; font-size: 10; font-family: arial; width: 290" size="1"> <option value="">Condimentos</option> <%While (NOT condimentos.EOF)%><option value="<%=(condimentos.Fields.Item("id_categoria").Value)%>"><%=(condimentos.Fields.Item("produto").Value)%></option> <% condimentos.MoveNext()WendIf (condimentos.CursorType > 0) Then condimentos.MoveFirstElse condimentos.RequeryEnd If%> </select></form><form action="" method="post" name="brotos" id="brotos"> <select name="brotos" id="brotos" style="border-width: 0px; background-color: #ffffff; border-style: solid; font-size: 10; font-family: arial; width: 290" size="1"> <option value="">Brotos</option> <%While (NOT brotos.EOF)%> <option value="<%=(brotos.Fields.Item("id_categoria").Value)%>"><%=(brotos.Fields.Item("produto").Value)%></option> <% brotos.MoveNext()WendIf (brotos.CursorType > 0) Then brotos.MoveFirstElse brotos.RequeryEnd If%> </select></form></body></html><%tradicionais.Close()Set tradicionais = Nothing%><%orientais.Close()Set orientais = Nothing%><%condimentos.Close()Set condimentos = Nothing%><%brotos.Close()Set brotos = Nothing%>

Se alguém puder me ajudar eu agraceço!!!

[maurohpg 0]

Consegui puxar tudo para o dropdown através desse código:

<!--#include file="Connections/conn.asp" --><%Dim tradicionais__MMColParamtradicionais__MMColParam = "1"If (Request.QueryString("1") <> "") Then tradicionais__MMColParam = Request.QueryString("1")End If%><%Dim tradicionaisDim tradicionais_numRowsSet tradicionais = Server.CreateObject("ADODB.Recordset")tradicionais.ActiveConnection = MM_conn_STRINGtradicionais.Source = "SELECT * FROM subcategorias WHERE id_categoria = " + Replace(tradicionais__MMColParam, "'", "''") + " ORDER BY produto ASC"tradicionais.CursorType = 0tradicionais.CursorLocation = 2tradicionais.LockType = 1tradicionais.Open()tradicionais_numRows = 0%><form name="form1" method="post" action=""> <select name="Serie" size="1" class="campo" onChange="if (this.value != '') document.form1.submit();"> <% response.write("<option></option>") do while (tradicionais.eof = false) response.write("<option value=" & tradicionais("id") & ">" & tradicionais("produto") & "</option>") tradicionais.movenext loop tradicionais.close Set tradicionais = Nothing%> </select></form>

O que eu precisava era agora qdo a pessoa clicasse no nome do produto automaticamente fosse para a página detalhe_prod.asp com as informações desse produto.

[bgssilva 0]

Então....faz o seguinte.... usa uma função em javascript que abra uma janela nova.<head>...<script language="JavaScript">function AbrePopUp(link){var opcoes="toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=yes, width=740, height=500";window.open(link,"",opcoes);}// --></script>e ai na combo você coloca a chamada para o função javascript<select name="combo" id="combo" onClick="AbrePopUp('detalhe_prod.asp.asp?id=' + window.document.fom.combo.value)">enfim... é isso...

[maurohpg 0]

Bacana esse esquema de abrir a pop-upMais o que eu num sei é como eu pego a variável do página produtos.asp e levo até a detalhe_prod.asppq assim ele me lista dempre o id=1 que é o primeiro do BD.Valeu desde já!