If com data

[marvazoler 0]

Olá galera beleza?

 

Gostaria de saber o seguinte, fiz um teste com este script mas não deu certo, a página nem rodou

 

if date = "29/07/2008" and date "30/072008" then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\banco.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
end if
if date = "30/07/2008" and date "31/07/2008" then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\banco.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
end if

o que pode está errado?

 

Desde já agradeço

[Programdor2008 0]

Verifica isso:

 

if date = "29/07/2008" and date "30/072008" then

O correto nao seria:

 

if date = "29/07/2008" and date = "30/07/2008" then

[marvazoler 0]

Olá galera beleza?

 

Desculpas eu não fazer o que eu preciso sabr

 

eu na verdade gostaria de verifica um determinado período por exemplo

 

01/07/2007 a 31/07/2008

 

banco1

 

01/08/2007 a 31/08/2008

 

banco2

 

 

entenderam, para haver a troca de conexão

 

desde já agradeço

[Jow Xavier 0]

Cara usa o BETWEEN para intervalo de datas

[marvazoler 0]

Jow Xavier ai que tá,

 

como ficaria, no meu caso?

[Jow Xavier 0]

Cara tenta assim

if date BETWEEN "29/07/2008" and date BETWEEN "30/07/2008" then

[marvazoler 0]

Amigão deu este erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

 

Variável não definida: 'BETWEEN'

 

/lin/_conexaogeral.asp, line 4

 

o que faço?

[Jow Xavier 0]

Dá onde vem esse campo date ???

[marvazoler 0]

date é a data do computador

[Gui 0]

Olá galera beleza?

 

Gostaria de saber o seguinte, fiz um teste com este script mas não deu certo, a página nem rodou

 

if date = "29/07/2008" and date "30/072008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\banco.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

if date = "30/07/2008" and date "31/07/2008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\banco.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

 

o que pode está errado?

 

Desde já agradeço

Amigo, seu código está todo errado.

 

Primeiro pq você postou 2x o mesmo if. Segundo pq você tá declarando uma sub dentro de um if. Isso não existe. Ele nunca vai conectar com o banco desse jeito.

 

você precisa declarar a sub antes do if. Ficaria assim:

 

sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\banco.mdb") 
	set bd=Server.CreateObject("ADODB.Connection")
	bd.open localbd
end sub

'Agora vem o seu if
'Com o comando call você chama a sua sub

if .... then
	call abrir_conexao
end if

Sacou? E o seu if tb está errado amigo. Seu if tá assim:

 

if date = "29/07/2008" and date "30/072008" then

O que isso quer dizer? você tá comparando se date é igual a 29/07 e 30/07. Ele nunca vai entrar nesse if pq você tá comparando um valor se ele é igual a 2 valores distintos.

[Gui 0]

E outra, se você quer somente comparar a data atual com alguma outra data, você nao precisa de conectar com o banco de dados.

[Gui 0]

Cara usa o BETWEEN para intervalo de datas

Não existe between em asp.

[Jow Xavier 0]

Bem se o seu código está todo errado ñ verifiquei ... mas voltando ao seu if vamos lá

if date() BETWEEN "29/7/2008" and date() BETWEEN "30/7/2008" then

Como você está pegando a data do computador deve usar assim, se você mandar imprimir date veja q vai retornar nesse formato dd/m/aa por isso você tem q comprar nesse mesmo formato .... agora caso o formato de data seja outro você deve você deve usar um script para alterar o formato das datas, pois devem ser comparadas no mesmo formato ... Abraçossss

[Jow Xavier 0]

Não existe between em asp.

verdade huahauhuhauhauh

 

Sugiro usar um select e ñ um if

[Jow Xavier 0]

SELECT * FROM tabela  campo BETWEEN "29/7/2008" and BETWEEN "30/7/2008"

[Gui 0]

SELECT * FROM tabela  campo BETWEEN "29/7/2008" and BETWEEN "30/7/2008"

Tá errado.. <_<

[marvazoler 0]

Amigos, é o seguinte:

 

 

Tenho 2 tabelas,

 

Inverno

Verão

 

bom o inverno tem seu período ou seja data e o verão tambem, é neste caso que quero que mude automático.

 

if date = "29/07/2008" and date "30/072008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

if date = "30/07/2008" and date "31/07/2008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

 

Desde já agradeço

[Gui 0]

Amigos, é o seguinte:

 

 

Tenho 2 tabelas,

 

Inverno

Verão

 

bom o inverno tem seu período ou seja data e o verão tambem, é neste caso que quero que mude automático.

 

if date = "29/07/2008" and date "30/072008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

if date = "30/07/2008" and date "31/07/2008" then

sub abrir_conexao

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb")

set bd=Server.CreateObject("ADODB.Connection")

bd.open localbd

end sub

end if

 

o que pode está errado?

 

Desde já agradeço

Posta seu select.

[marvazoler 0]

<% Option Explicit %>

<!--#include file="_conexaogeral.asp"-->

 

 

Lembrando o que estou fazendo include

<%

Dim localbd

Dim bd

Dim oRs1

call abrir_conexao

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

Set oRs1 = bd.Execute("select MAX(CODIGO) AS COD from LINHA")

%>

 

 

call fechar_conexao

[Public2004 79]

Cara, tá meio bagunçado isso.....

Você quer verificar se a data atual está entre os intervalos para montar o Select correspondente??

Esses intervalos de datas são editados direto no código?