If Var<>"" Ou Var<>0

[Milena]

Estou fazendo um sitema de busca, que usa dois COMBO BOX ( ou select) que possuem os valores que poderam serem pesquisados no banco ....

tenho dois selects um para MÉDICOS CLINICOS

E outro para : SERVIÇO DE DIAGNÓSTICO

de acordo com o que for selecionado será exibido um resultado... e para saber qual foi selecionada estou usando IF E ELSEIF´s mas não estou sabendo fazer a condição ... ?!

Vou tentar colocar um pedaço do código porque não queria colocar inteiro já que é meio grande...

<%
	clinico= request.form("clinico")
	diagnostico= request.form("diagnostico")
	nome= request.form("nome")
	'response.write(clinico)
	'response.write(diagnostico)
%>

Abaixo o código do meu formulário:

<form name="form1" method="post" action="clinico_medico1.asp">
     <table width="100%"  border="0" cellspacing="0" cellpadding="0">
             <tr bgcolor="#F0F0F0">
             <td><img src="../../img/gif/ponto_azul.gif" width="12" height="20"></td>
              <td width="96%"><div align="left"><span class="style3">CORPO CL&Iacute;NICO M&Eacute;DICO </span></div></td>
               </tr>
                  <tr>
                     <td width="4%">&nbsp;</td>
                    <td><select name="clinico" id="clinico" onChange="submit()">
<% 
            	Set Conn = Server.CreateObject("AdoDb.Connection") 
            	Conn.provider="Microsoft.Jet.OLEDB.4.0" 
            	Conn.connectionstring=Server.Mappath("climepe.mdb") 
            	Conn.open 
            	Set  rs2 = Server.CreateObject("ADODB.RECORDSET")
            	rs2.ActiveConnection = Conn
            	strsql2 = "SELECT * FROM clinico"
            	rs2.Open strsql2
 %>
                            <option value=0>Corpo Clínico</option>
                           <%While NOT rs2.EOF%>
                            <option value="<%=rs2("Nome")%>"><%=rs2("Nome")%></option>
                                                	<% rs2.MoveNext %>
                                                	<% Wend %>
                                            </select>
                                          </td>
                                        </tr>
                                        <tr bgcolor="#F0F0F0">
                                          <td><img src="../../img/gif/ponto_azul.gif" width="12" height="20"></td>
                                          <td><div align="left" class="style3"> SERVI&Ccedil;OS DE DIAGN&Oacute;STICO </div></td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td> 
      	<select name="diagnostico" id="diagnostico" onChange="submit()">
                                                <% 
          Set  rs3 = Server.CreateObject("ADODB.RECORDSET")
            	rs3.ActiveConnection = Conn
            	strsql3 = "SELECT * FROM clinico"
            	rs3.Open strsql3
            %>
                                                	<option value=0>Serviço de diagnóstico</option>
                                                  <%While NOT rs3.EOF%>
                                                	<option value="<%=rs3("Nome")%>"><%=rs3("Nome")%></option>
                                                	<% rs3.MoveNext %>
                                                	<% Wend %>
                                            </select></td>
                                        </tr>
                                        <tr bgcolor="#F0F0F0">
                                          <td><img src="../../img/gif/ponto_azul.gif" width="12" height="20"></td>
                                          <td><div align="left" class="style3"> DIGITE O NOME</div></td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td><input name="nome" type="text" id="nome"></td>
                                        </tr>
                                      </table>
                                    </form>

Aqui é onde faço a primeira comparação, ou seja, quando não estiver nada selecionada ainda quero que essa tabela seja exibida :

<% if clinico ="" and diagnostico="" and nome="" then%>
        	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
                                        <tr>
                                          <td width="3%"><img src="../../img/gif/ponto_azul.gif" width="12" height="20"></td>
                                          <td width="97%"><div align="left" class="style3">  Anestesiologia </div></td>
                                        </tr>
                                        <tr>
                                          <td colspan="2"><ul>
                                            <li class="style2"><strong>Dr. Ailton Soares Rocha </strong><br>
  Rua Arassua&iacute;, 81 <br>
                                                Fone: 3722-2555 <br>
</li>
                                            <li class="style2"><strong>Dr. Marco Alexandre Pacheco da Fonseca </strong><br>
  Rua Arassua&iacute;, 81 <br>
                                                  Fone: 3722-2555 <br>
                                            </li>
                                          </ul></td>
                                          </tr>
                                        <tr>
                                          <td><img src="../../img/gif/ponto_azul.gif" width="12" height="20"></td>
                                          <td><div align="left" class="style3"> Cardiologia</div></td>
                                        </tr>
                                        <tr>
                                          <td colspan="2"><ul>
                                            <li class="style2"><strong> Dr. Breno Moreira Neves J&uacute;nior</strong><br>
  Av. Santo Ant&ocirc;nio, 200 - sala 803<br>
                                                    Fone: 3722-1908<br>
                                            </li>
                                            <li class="style2"><strong> Dra. Dayse L&uacute;cia da Silva Vasconcelos</strong><br>
  Rua S&atilde;o Francisco, 446<br>
                                                Fone: 3721-4700 / 3721-5304<br>
                                            </li>
                                            <li class="style2">                                                <strong>Dr. Jorge Lauand Filho</strong><br>
  Pra&ccedil;a Francisco Escobar, 201 - 2&ordm; andar - Sala 25<br>
                                                Fone: 3722-1151 / 3722-1791<br>
                                            </li>
                                            <li class="style2"> <strong>Dr. Vitor Marcos Vieira</strong><br>
                                                  Rua Rio Grande do Sul, 1.402<br>
                                                  Fone: 3712-8567</li>
                                          </ul></td>
                                          </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td>&nbsp;</td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td>&nbsp;</td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td>&nbsp;</td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td>&nbsp;</td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td>&nbsp;</td>
                                        </tr>
                                    </table></td>
                                  </tr>
                                  <tr>
                                    <td valign="bottom"><p><em> </em></p>
                                      <h3>&nbsp; </h3>
                                      </td>
                                  </tr>
                                  <tr>
                                    <td>&nbsp;</td>
                                  </tr>
                                </table>

Caso o primeira COMOBOX seja selecionada quero que mostre isso:

<%
        elseif clinico<>"" then
        	Set  rs4 = Server.CreateObject("ADODB.RECORDSET")
        	rs4.ActiveConnection = Conn
        	strsql4 = "SELECT * FROM clinico where nome = '"&clinico&"'"
        	rs4.Open strsql4%>
        	<br>
        	<div align="left" class="style3"><%=Rs4("funcao")%></div>      	
        	<li class="style2"> <strong><%=Rs4("nome")%><br>
        	<%=Rs4("endereco")%><br>
        	<%=Rs4("telefone")%></li>
          
        <%

Caso seja a segunda quero que mostre isso:

<%
        elseif diagnostico<>"" then
        response.write(diagnostico)
        tipo="Serviço de diagnóstico"
        	Set  rs5 = Server.CreateObject("ADODB.RECORDSET")
        	rs5.ActiveConnection = Conn
        	strsql5 = "SELECT * FROM clinico where nome = '"&diagnostico&"'"
        	rs5.Open strsql5%>
        	<br>
        	<div align="left" class="style3"><%=Rs5("funcao")%></div>      	
        	<li class="style2"> <strong><%=Rs5("nome")%><br>
        	<%=Rs5("endereco")%><br>
        	<%=Rs5("telefone")%></li>
        <p>
        <%end if%>

Qual o problema.... tem hora que a combobox quando vazia retorna 0 -zero, e outras vezes retorna "" -vazio, ai meu if da pau !!!

Sei que está complicadíssimo de explicar ... mas se alguém puder me ajudar ...

PS: O CÓDIGO ESTAVA FORMATADO, MAS PARECE QUE ELE NÃO CABE NA LARGURA DO FÓRUM AI FICA ESSA ZONA

[Milena]

Olá ... mais uma vez eu descobri a resposta... rsrs

foi muita falta de atenção da minha parte....

<select name="clinico" id="clinico" onChange="submit()">
<% Set Conn = Server.CreateObject("AdoDb.Connection") 
    	Conn.provider="Microsoft.Jet.OLEDB.4.0" 
        Conn.connectionstring=Server.Mappath("climepe.mdb") 
        Conn.open              Set  rs2 = Server.CreateObject("ADODB.RECORDSET")
        rs2.ActiveConnection = Conn
        strsql2 = "SELECT * FROM clinico"
        rs2.Open strsql2
%>
                 <option value="clinico">Corpo Clínico</option>
                 <%While NOT rs2.EOF%>
                  <option value="<%=rs2("Nome")%>"><%=rs2("Nome")%</option>
                 <% rs2.MoveNext %>
                 <% Wend %>
                 </select>

->no código orginal tava assim

<option value=0>Corpo Clínico</option>