SQL - Select between

Dr. admin · Abril 8, 2008

Bom amigos estou com um problema e quem puder me ajudar eu agradeço.

Tenho uma página que mostra uma agenda de uma igreja.

Bem quando a pessoa acessa a página da agenda, mostra os registros por ordem decrescente,

mas se a pessoa quiser filtrar o que aconteçeu em um determinado mês, tem um formulário na mesma página que a pessoa escolhe

o mês e só mostra a agenda daquele mes, de forma decrescente também

mas estou tendo um problema na hora de filtar o mês, espero que vocês possa me ajudar.

O Erro que da é esse aqui:

Tipo de erro:

Microsoft OLE DB Provider for SQL Server (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

/mmgp/site/agenda.asp, line 60

Agora vou postar o código da página, só lembrando que tem alguns recordsets ai, mas o da agenda é o "rsAgenda"

e "sql_Agenda" a variável que pega nome do mês e filtra se chama "mes", a e quanto a conexão do banco de dados

é com sql sever e está tudo ok com a conexão o pal deve estar nos if else... ok......

Página "agenda.asp"

CODE

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%
Option Explicit
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<!--#Include file="conexao/conexao_sql.asp"-->
<%
DIM conexao 'variavel sa conexao
DIM rsMenu, rsMenuloja, rsMenuUtilidades, rsMenuCampanhas, rsNoticias, rsAgenda 'Recordsets
DIM sql_menu, sql_loja, sql_Utilidades, sql_Campanhas, sql_Noticias, sql_Agenda 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes
PagAtual = Request.QueryString("PagAtual") 'página atual
 
mes = request.querystring("mes")
 
Call AbreConexao
sql_menu = "select * from menu where categoria='menu' order by orden asc "
sql_loja = "select * from menu where categoria='loja virtual' order by nome asc "
sql_Utilidades = "select * from menu where categoria='Utilidades' order by nome asc "
sql_Campanhas = "select * from menu where categoria='Campanhas' order by nome asc "
sql_Noticias = "select top 5 * from noticias order by noticia_id desc "
 
'verifica se foi pedido para filtrar algum mês
'se não foi pedido ele mostra todos os registros da forma decrescente
if ("mes") = "" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "
'se foi pedido para filtrar algum mês, ele mostra aquele mês que ele pega pelo request.querystring
elseif ("mes") = "janeiro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/01/2008 and 31/01/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "fevereiro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/02/2008 and 28/02/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "março" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/03/2008 and 31/03/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "abril" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/04/2008 and 31/04/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "maio" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/05/2008 and 31/05/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "junho" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/06/2008 and 31/06/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "julho" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/07/2008 and 31/07/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "agosto" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/08/2008 and 31/08/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "setembro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/09/2008 and 31/09/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "outubro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/10/2008 and 31/10/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "novembro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/11/2008 and 31/11/2008  ORDER BY data DESC, hora DESC "
elseif ("mes") = "dezembro" Then
sql_Agenda = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN 01/12/2008 and 31/12/2008  ORDER BY data DESC, hora DESC "
end if
 
SET rsMenu = conexao.execute(sql_menu)
SET rsMenuloja = conexao.execute(sql_loja)
SET rsMenuUtilidades = conexao.execute(sql_Utilidades)
SET rsMenuCampanhas = conexao.execute(sql_Campanhas)
SET rsNoticias = conexao.execute(sql_Noticias)
SET rsAgenda = conexao.execute(sql_Agenda)
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
<html>
<head>
<% 
Response.Charset="utf-8"
%>
<title>:: Missão Mundial Graça e Paz :: Igreja que Ama Você!</title>
<link href="css/pg_index.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
 
<style type="text/css">
<!--
.style16 {color: #FFFFFF}
.style18 {color: #5D7294}
a {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 9px;
	color: #000000;
}
a:visited {
	color: #000000;
}
a:hover {
	color: #000000;
	font-weight: bold;
}
a:active {
	color: #000000;
}
.style20 {color: #000000; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<div id="divgeral">
<!--#Include file="inc/topo.asp"-->
<!--#Include file="inc/botoes.asp"-->
<div id="divmeio_um">
<table width="468" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center" class="style9 style10">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0,width,450,height,30,src,swf/texto_bemvindo,quality,high,pluginspage,http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash,wmode,transparent,movie,swf/texto_bemvindo' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="450" height="30">
<param name="movie" value="swf/texto_bemvindo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="swf/texto_bemvindo.swf" width="450" height="30" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript>
</div></td>
</tr>
</table>
<br />
<br />
<form action="agenda.asp" method="get" name="form" id="form">
<table width="480" border="0" align="center" cellpadding="3" cellspacing="0" class="tabelas">
<tr>
<td width="285" bgcolor="#5D7294"><div align="left"><span class="style16"><img src="imagens/botu.jpg" alt="" width="17" height="17" align="absmiddle" /> Agenda!</span></div></td>
<td width="183" bgcolor="#5D7294"><div align="left" class="style16"><strong>Buscar:
</strong>
<select name="mes" class="titulos-boto" id="mes">
<option selected>Mês...</option>
<option value="Janeiro">Janeiro</option>
<option value="Fevereiro">Fevereiro</option>
<option value="Março">Março</option>
<option value="Abril">Abril</option>
<option value="Maio">Maio</option>
<option value="Junho">Junho</option>
<option value="Julho">Julho</option>
<option value="Agosto">Agosto</option>
<option value="Setembro">Setembro</option>
<option value="Outubro">Outubro</option>
<option value="Novembro">Novembro</option>
<option value="Dezembro">Dezembro</option>
</select>
<input name="button2" type="submit" class="bts" id="button2" value="Filtrar">
</div></td>
</tr>
</table>
</form>
<br>
<table width="480px" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#D3DBE7" class="tabelas">
<tr>
<%
DO WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
<td colspan="2" bgcolor="#D6DBE7"><span class="style18">Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
</span></td>
</tr>
<tr>
<td width="17%" bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Igreja:</span></td>
<td width="83%" bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input type="text"  readonly="true"  class="cxmostratxt" value="<% = rsAgenda("igreja") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Evento:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("evento") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Pastor:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt"  readonly="true" value="<% = rsAgenda("pastor") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Endereço:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("endereco") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Cidade:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("cidade") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Estado:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("estado") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bgcolor="#D6DBE7"><span class="style20">País:</span></td>
<td bordercolor="#D3DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("pais") %>" size="45" maxlength="255">
</div></td>
</tr>
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
LOOP 'tb paginacao
%>
<tr>
<td bordercolor="#D3DBE7"> </td>
</tr>
</table>
<table class="tabelas">
<tr>
<td colspan="2">
<%
'################## paginacao 01 #####################
 
 'Coloca o Nº página atual / Nº Total de páginas
 
 Response.Write("<strong>Página</strong> " & PagAtual & " <strong>de</strong> " & TotalPages & " - ")   
 
'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
 
IF PagAtual > 1 THEN 
 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" &  1 & "'>")
      Response.Write("Primeira") 
      Response.Write("</a></font></B>  ")
 
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual - 1 & "'>")
      Response.Write("Anterior") 
      Response.Write("</a></font></B>  ")
  Else
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
 
End If
 
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
   max_n_mostrados = 9
 
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
 
If CInt(inicio) <1 Then 
 inicio = 1
 final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
 
For i = inicio To final
     If CInt(i)=CInt(PagAtual) Then
         Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
     END IF
     If CInt(i) < CInt(PagAtual) Then
      Response.Write "<a href='agenda.asp?PagAtual=" & i & "'>" & i & "</a>  "
     END IF
     If CInt(i) > CInt(PagAtual) Then
         Response.Write "<a href='agenda.asp?PagAtual=" & i & "'>" & i & "</a>  "
  END IF
Next
 
'------------------------------------------------------
 
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
 
'Se estiver na última página, mostra apenas o botão Anterior e Primeira
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual + 1 & "'>")
      Response.Write("Próxima")
      Response.Write("</a></font></B>  ") 
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & TotalPages & "'>")
      Response.Write("Ultima")
      Response.Write("</a></font></B>  ")        
 
 Else
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("Próxima") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("Ultima") 
      Response.Write("</font></B>  ")
End If 
'################## fim paginacao 01 ########################
%></td>
</tr>
</table>
<br />
<br />
<br />
<br />
<!--#Include file="inc/ultimas_noticias.asp"-->
<p><br />
</p>
</div>
<!--#Include file="inc/div_lat_direita.asp"-->
<!--#Include file="inc/barra.asp"-->
</div>
</body>
</html>
<%
rsMenuloja.close
rsMenu.close
rsMenuUtilidades.close
rsMenuCampanhas.close
rsNoticias.close
rsAgenda.close
Call FechaConexao
Set rsMenuloja = nothing
Set rsMenu = nothing
Set rsMenuUtilidades = nothing
Set rsMenuCampanhas = nothing
Set rsNoticias = nothing
Set rsAgenda = nothing
%>

Ted k' · Abril 8, 2008

Evite a postage com titulo e sub titulo com letras maiusculas, isso vai de contra as regras

Dr. admin · Abril 8, 2008

ok............

eu não sabia............

tentei arrumar mas não achei a opção de mudar o tiitulo do tópico nem de excluir o tópico

Balduino · Abril 8, 2008

Então cara se bem entendi seu problema acho q seria melhor declarar todos os recordset's e variáveis de conexão que você utilizar da maneira tradicional

[NOME_DO_RECORDSET] = Server.CreateObject("adodb.recordset")

[NOME_DA_CONEXÃO] =Server.CreateObject("adodb.Connection")

e quanto ao filtro de Datas, apresento esta ideia e espero que te ajude:

* No valor do SELECT coloque o número que representa o mês, por exemplo " JANEIRO " você COLOCA VALUE="01", e passa-las como variável dentro da sua Instrução de Select .... ai então é só usar a estrutura CASE:

Dim mes

mes = request("mes")

mes = CInt(request("mes") // CASO NECESSITE CONVERTA O CONTEÚDO DA VARIÁVE

SELECT CASE mes

CASE 1,3,5,7,8,9,10,12

sql= "Select [os campos] from [tabela] where data between 01/"&request("mes")&"/2008 and 31/"&request("mes")&"/2008 order by [campo] "

CASE 4,6,11

sql= "Select [os campos] from [tabela] where data between 01/"&request("mes")&"/2008 and 30/"&request("mes")&"/2008 order by [campo] "

CASE 2

sql= "Select [os campos] from [tabela] where data between 01/"&request("mes")&"/2008 and 29/"&request("mes")&"/2008 order by [campo] "

END SELECT

essa é minha sugestão para te ajudar cara espero que seja útil ...flw

Dr. admin · Abril 8, 2008

olha eu coloquei do jei to que você falou mas ainda continua dando erro........

Ted k' · Abril 8, 2008

ok............

eu não sabia............

tentei arrumar mas não achei a opção de mudar o tiitulo do tópico nem de excluir o tópico

beleza, tranquilo, o cara tá te ajudando æ!!!!

Dr. admin · Abril 8, 2008

eu estou colocando a página de uma forma mais resumida........

do jeito que ela está ai está dando erro...............

CODE

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%
Option Explicit
%>
 
<%
DIM conexao 'variavel sa conexao
DIM rsAgenda 'Recordsets
DIM sql_Agenda 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes
 
PagAtual = Request.QueryString("PagAtual") 'variável que mostra a página atual da paginação
 
mes = request.QueryString("mes") 'variavel que pega o mes que o usuário pediu para filtrar
 
Call AbreConexao
 
SELECT CASE mes
CASE 1,3,5,7,8,9,10,12
sql_agenda= "Select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco from agenda where data between 01/"&request.querystring("mes")&"/2008 and 31/"&request.querystring("mes")&"/2008 "
case else
sql_agenda= "Select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco from agenda order by data desc "
END SELECT
 
SET rsAgenda = conexao.execute(sql_Agenda)
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
 
 
<% 
Response.Charset="utf-8"
%>
:: Missão Mundial Graça e Paz :: Igreja que Ama Você!
 
 
 
 
 Agenda!
Buscar:
Mês...JaneiroFevereiroMarçoAbrilMaioJunhoJulhoAgostoSetembroOutubroNovembroDezem
bro
 
 
 
 
 
 
 
 
<%
DO WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
 
 
 
Igreja:
" size="45" maxlength="255">
 
 
Evento:
 
" size="45" maxlength="255">
 
 
Pastor:
 
" size="45" maxlength="255">
 
 
Endereço:
 
" size="45" maxlength="255">
 
 
Cidade:
 
" size="45" maxlength="255">
 
 
Estado:
" size="45" maxlength="255">
 
 
País:
" size="45" maxlength="255">
 
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
LOOP 'tb paginacao
%>
 
 
 
 
 
 
 
<%
'################## paginacao 01 #####################
 
 'Coloca o Nº página atual / Nº Total de páginas
 
 Response.Write("Página " & PagAtual & " de " & TotalPages & " - ")   
 
'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
 
IF PagAtual > 1 THEN 
 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("") 
      Response.Write("")
      Response.Write("Primeira") 
      Response.Write("[/color]  ")
 
      Response.Write("") 
      Response.Write("")
      Response.Write("Anterior") 
      Response.Write("[/color]  ")
  Else
 
      Response.Write("") 
      Response.Write("") 
      Response.Write("[/color][/font]  ")
 
      Response.Write("") 
      Response.Write("") 
      Response.Write("[/color][/font]  ")
 
 
End If
 
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
   max_n_mostrados = 9
 
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
 
If CInt(inicio) <1 Then 
inicio = 1
final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "[color=-->")
      Response.Write("")
      Response.Write("Próxima")
      Response.Write("[/color][/font]  ") 
 
      Response.Write("")
      Response.Write("")
      Response.Write("Ultima")
      Response.Write("[/color][/font]  ")        
 
 Else
      Response.Write("")
      Response.Write("Próxima") 
      Response.Write("[/color][/font]  ")
 
      Response.Write("")
      Response.Write("Ultima") 
      Response.Write("[/color][/font]  ")
End If 
'################## fim paginacao 01 ########################
%>[/color][/font]
 
 
 
 
<%
rsAgenda.close
Call FechaConexao
Set rsAgenda = nothing
%>

Balduino · Abril 10, 2008

e ai cara beleza??

então acho q você esta esquecendo de usar o SET

SET [nome_do_recordset] = Server.createObject("adodb.recordset")

SET [nome_da_conexao] = Server.createObject("adodb.connection")

usa ai e ve se da certo beleza http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Mário Monteiro · Abril 12, 2008

Qual e a linha do erro especificamente?

Arquivado

SQL - Select between

Recommended Posts

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Balduino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Balduino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante