Combo Select

[«« mµr¡£ø »» 0]

Olá....Estou usando esse código para buscar dados no banco de dados e trazer no combo, mas na hora em que executo ele não funfa e nem dá erro, só exibe a página de erro...alguém por favor pode conferir o código pra mim?

 

<% 	  Set Menu = conexao.Execute("SELECT * FROM prod_detalhe WHERE Idproduto=" & strIDprod&";")	  %> 	  <select name="teste">	  <option value=""></option>	  <% If not Menu.EOF then 	  While Not Menu.EOF 	   response.write("<option value=" & Menu("Iddetalhe") & ">" & Menu("Cor") & "-" & Menu("Tamanho") &"</option>")	   Menu.movenext	Wend	End IF	Menu.Close	Set Menu = Nothing 	%>	</select>

[Mário Monteiro 179]

verifica se o erro não esta dentro de um option do combo....abre o fonte da page que deu erro e olha...se tiver posta aqui...

[«« mµr¡£ø »» 0]

Não, o option está certo....estranho.... http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[«« mµr¡£ø »» 0]

Eu coloco essa linha de comando e a página não abre, diz que pode ser a conexão, aquele erro do IE padrão quando não encontra a página...mas quando tiro essa linha ele funciona que é uma beleza.... :(

[Alex_ps 0]

Meu Camarada,

 

É o seguinte, eu sou meio Mané ainda, mas o erro não está aqui?

 

<% If not Menu.EOF then

else

While Not Menu.EOF

 

Acho que este "not" está errado, e está faltando o "else" antes do "while".

 

Se não for isto, desculpe a mancada.

 

alex_ps

[«« mµr¡£ø »» 0]

o código é esse mesmo...

If not Menu.EOF then

isso é só para ver se existe algum registro para não dar erro...

 

http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

 

Este é o erro que está dando...

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

--------------------------------------------------------------------------------

 

Tipo de erro:

Active Server Pages, ASP 0113 (0x80004005)

[Mário Monteiro 179]

putzeste erro é genericodesabilita as mensagens de HTTP amigaveis no seu navegador...e posta aqui o erro real

[«« mµr¡£ø »» 0]

Bem, coloquei essa rotina e funfou legal.... http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

ASP

[*] <%

[*]set rs_detalhe = abredb.execute("SELECT * FROM Prod_Detalhe WHERE idproduto="&strIDprod&" ;")

[*]%>

[*]<select name="Combo" size="1">

[*]<% While Not rs_detalhe.EOF

[*] response.write("<option value=" & rs_detalhe("Iddetalhe") & ">" & rs_detalhe("Cor") & " - " & rs_detalhe("Tamanho") &"</option>")

[*] rs_detalhe.movenext

[*]Wend

[*]rs_detalhe.Close

[*]Set rs_detalhe = Nothing

[*]%>

[*]</select>

[*]

[Mário Monteiro 179]

que bom...