Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
chelfernandes

Problema com combobox

Recommended Posts

Olá, boa tarde!

Sou novo nessa área de programação e não manjo muito de ASP. Estou com um problema em uma combobox, determinados valores estão saindo repetidos em uma mesma linha, como no print abaixo:

print.jpg

Isso acontece em diversas outras linhas da combo. As informações são obtidas de um banco de dados. Seguem os códigos, se alguém puder ajudar, fico grato!

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/planos.asp" -->

<%

Select Case Request.QueryString("planos")

    CASE ""

  busca = "SELECT * FROM viver_vazio"

  busca1 = "SELECT * FROM viver_vazio"

  busca2 = "SELECT * FROM viver_vazio"

  selecao = ""

Case "VB"

  busca = "SELECT distinct especialidade FROM viver_bem"

  busca1 = "SELECT distinct cidade from viver_bem WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM viver_bem WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  

Case "VM"

  busca = "(SELECT distinct especialidade FROM viver_mais)"

  busca1 = "(SELECT distinct cidade FROM viver_mais WHERE especialidade='" + Request.QueryString("especialidade") + "')"

  busca2 = "(SELECT distinct bairro FROM viver_mais WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "')"

  selecao = ""

Case "VS"

  busca = "(SELECT distinct especialidade FROM viver_saude)"

  busca1 = "(SELECT distinct cidade FROM viver_saude WHERE especialidade='" + Request.QueryString("especialidade") + "')"

  busca2 = "(SELECT distinct bairro FROM viver_saude WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "')"

  

Case "SN"

  busca = "SELECT distinct especialidade  FROM saude_nsl"

  busca1 = "SELECT distinct cidade FROM saude_nsl WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM saude_nsl WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  

Case "SP"

  busca = "SELECT distinct especialidade FROM saude_medicol_preferencial"

  busca1 = "SELECT distinct cidade FROM saude_medicol_preferencial WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM saude_medicol_preferencial WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  

    

Case "SM"

  busca = "SELECT distinct especialidade FROM saude_medicol"

  busca1 = "SELECT distinct cidade FROM saude_medicol WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM saude_medicol WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  


Case "M"

  busca = "SELECT distinct especialidade FROM MASTER"

  busca1 = "SELECT distinct cidade FROM MASTER WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM MASTER WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  


Case "P"

  busca = "SELECT distinct especialidade FROM PLENO"

  busca1 = "SELECT distinct cidade FROM PLENO WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM PLENO WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  

Case "C"

  busca = "SELECT distinct especialidade FROM CLASS"

  busca1 = "SELECT distinct cidade FROM CLASS WHERE especialidade='" + Request.QueryString("especialidade") + "'"

  busca2 = "SELECT distinct bairro FROM CLASS WHERE especialidade='" + Request.QueryString("especialidade") + "' and cidade='" + Request.QueryString("cidade") + "'"  



end Select

%>

<%

Dim RsEspecialidade

Dim RsEspecialidade_numRows

Set RsEspecialidade = Server.CreateObject("ADODB.Recordset")

RsEspecialidade.ActiveConnection = MM_planos_STRING

RsEspecialidade.Source = busca + " order by especialidade"

RsEspecialidade.CursorType = 0

RsEspecialidade.CursorLocation = 2

RsEspecialidade.LockType = 1

RsEspecialidade.Open()

RsEspecialidade_numRows = 0

%>

<%

Dim RsCidade

Dim RsCidade_numRows

Set RsCidade = Server.CreateObject("ADODB.Recordset")

RsCidade.ActiveConnection = MM_planos_STRING

RsCidade.Source = busca1 + "  order by cidade"

RsCidade.CursorType = 0

RsCidade.CursorLocation = 2

RsCidade.LockType = 1

RsCidade.Open()

RsEspecialidade_numRows = 0

%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_planos_STRING

RsBairro.Source = busca2 + " order by bairro"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Busca Plano</title>

<link href="style.css" rel="stylesheet" type="text/css" />

<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>
E mais esses aqui:
<option value="busca_planos.asp" selected="selected" >- PRODUTOS -</option>

              <option value="busca_planos.asp" class="green"class="text" >-- Linha Nova --</option>

     <option value="busca_planos.asp?planos=P" <%If (Request.QueryString("planos") = "P") Then Response.Write("SELECTED") : Response.Write("")%>>Pleno</option>

     <option value="busca_planos.asp?planos=M" <%If (Request.QueryString("planos") = "M") Then Response.Write("SELECTED") : Response.Write("")%>>Master</option>

     <option value="busca_planos.asp?planos=C" <%If (Request.QueryString("planos") = "C") Then Response.Write("SELECTED") : Response.Write("")%>>Class</option>

             <option value="busca_planos.asp" class="green"class="text" >-- Linha Tradicional --</option>

              <option value="busca_planos.asp?trad=SN" <%If (Request.QueryString("trad") = "SN" or Request.QueryString("planos") = "SN") Then Response.Write("SELECTED") : Response.Write("")%>>Sa&#250;de NSL</option>

              <option value="busca_planos.asp?trad=SP" <%If (Request.QueryString("trad") = "SP" or Request.QueryString("planos") = "SP") Then Response.Write("SELECTED") : Response.Write("")%>>Medicol Medicina Coletiva</option>

     <option value="busca_planos.asp" class="green"class="text" >-- Linha Viver --</option>

              <option value="busca_planos.asp?planos=VB" <%If (Request.QueryString("planos") = "VB") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Bem</option>

              <option value="busca_planos.asp?planos=VM" <%If (Request.QueryString("planos") = "VM") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Mais</option>

              <option value="busca_planos.asp?planos=VS" <%If (Request.QueryString("planos") = "VS") Then Response.Write("SELECTED") : Response.Write("")%>>Viver Sa&#250;de</option>

   </select>

<select name="especialidade" class="textarea" id="especialidade" style="width:165px;height:18px;font-size:9px;" onChange="MM_jumpMenu('self',this,0)">

              <option selected="selected" value="" <%If (Request.QueryString("especialidade") = "") Then Response.Write("SELECTED") : Response.Write("")%>>-

              ESPECIALIDADE -</option>

              <%

While (NOT RsEspecialidade.EOF)

%>

              <option value="busca_planos.asp?seq=<%=Request.QueryString("seq") + "&planos=" + Request.QueryString("planos") + "&especialidade=" + RsEspecialidade.Fields.Item("especialidade").Value%>" <%If (Not isNull((RsEspecialidade.Fields.Item("especialidade").Value))) Then If (Request.QueryString("especialidade") = CStr((RsEspecialidade.Fields.Item("especialidade").Value))) Then Response.Write("SELECTED") : Response.Write("")%>><%=(RsEspecialidade.Fields.Item("especialidade").Value)%></option>

              <%

  RsEspecialidade.MoveNext()

Wend

If (RsEspecialidade.CursorType > 0) Then

  RsEspecialidade.MoveFirst

Else

  RsEspecialidade.Requery

End If

%>

            </select>

Esse erro só acontece nas primeiras opções do combo, qndo seleciono entre PLENO, MASTER ou CLASS. Mais uma vez, se alguém puder ajudar será muito bem vindo! :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...