Jump to content

  2. → Viewing Profile: Posts: Brunao

Brunao

Member Since 10/03/2004
Offline Last Active 25/05/2008, 08:14
-----

Posts I've Made

In Topic: Problemas Com If

08/07/2005, 13:36

Com o Len funcionou, mas que zica essa xxxxxx de BD informar que o campo tem informações se está vazio.
Enfim, problema solucionado, obrigado pela força, mas mesmo assim vou tentar descobrir pq essa xxxxxx informa errado.

Obrigado

In Topic: Problemas Com If

08/07/2005, 13:04

Obrigado pela atenção, mas infelizmente não funcionou, ele não tá colhendo a informação no BD eu acho. Esse campo responsavel é um campo texto.
Ele sempre da Falso ou seja ELSE.

teste 1
<%teste=1%>
<%if rs.fields("responsavel") = "" then%>
<%=teste%>
<%else%>
pagina completa
<%end if%>

teste 2
<%teste=1%>
<%if rs("responsavel") = "" then%>
<%=teste%>
<%else%>
pagina completa
<%end if%>

In Topic: Mobilização Para Desenvolvimento

28/10/2004, 16:58

O sistema, já está funcionando perfeitamente?
Você vai disponibilizar para download???
Estou começando a pensar em um algorítimo de um sistema semelhante ao do ORKUT, acho que o seu sistema poderia ajudar muito eu a desenvolve-lo.

Abraços
Bruno

In Topic: Select

18/10/2004, 12:07

Será que tenho que usar xml?

In Topic: Select

18/10/2004, 01:33 



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
-->
</style>
</head>

<body>
<%
Dim DB
set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("..\db\balada.mdb") 
DB.mode = adModeRead
DB.open
Set rso = DB.Execute("SELECT DISTINCT Cidade FROM estabelecimentos WHERE cidade ORDER BY cidade ASC")
%>

<form name="form1" method="post" action="">
  <p><span class="style1">Cidade:</span><br>
    <select name="cidade">
	<%while not rso.eof%>	
	<option><%=Response.Write(rso.fields("cidade"))%></option>
	<%rso.movenext%>
    <%wend%>

        </select>
    <br>
    <span class="style1">Estabelecimento:
    </span><br>
  <select name="select">
<%
Set rs = DB.Execute("SELECT estabelecimento FROM estabelecimentos WHERE cidade='" & rso("cidade") & "' ORDER BY estabelecimento ASC")
%>
	<%rso.Close%>
    <%set rso = nothing%>	
	
	<%while not rs.eof%>
	<option><%=Response.Write(rs.fields("estabelecimento"))%></option>
	<%rs.movenext%>
    <%wend%>
	<%rs.Close%>
    <%set rs = nothing%>
    <%SET DB = NOTHING%> 	 
  </select>
 
</body>
</html>

Fiz desse jeito, mas está dando erro, pq será?

Tipo de erro:
(0x80020009)
Exceção.

E obrigado pelo interesse em ajudar, estou muito grato.

  1. Fórum WMO
  2. → Viewing Profile: Posts: Brunao
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq