Não há respostas para este tópico

[chelfernandes]

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:

http://saudemedicol.com.br/imagem/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!