if dando pau

[marvazoler 0]

Olá galera beleza?

 

o caso é o seguinte:

 

Tenho uma tela de consulta de horários, no meu caso é o seguinte:

 

Gosta de fazer um if com período de, por exemplo.

 

if date = 04/08/2008 and date = 04/08/2008 then
  Set objConn = Server.CreateObject("ADODB.Connection")
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath(mBaseDir & "banco/normal.mdb")
  objConn.open strConn
 if date = 03/08/2008 and date = 03/08/2008 then
 'conexão com o banco
  Set objConn = Server.CreateObject("ADODB.Connection")
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath(mBaseDir & "banco/verao.mdb")
  objConn.open strConn
 end if
end if

da o erro

 

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

Objeto necessário: 'ActiveConnection'

/hor_col.asp, line 24

o que está errado?

[hargon 64]

O erro acontece porque não está entrando em nenhum dos IF's e você não tem um "Plano B". Crie um ELSE, para quando não entrar em nenhuma das condições acima, cair nele.

 

Utilize a função datediff para calcular datas. datediff("d",date,"4/8/2008") Se ela retornar 0 é porque é o dia atual.

[jrcardozo 4]

a dica do hargon pode resolver seu problema.

 

veja se não seria isso que quer, se a data atual for maior ou igual a data X conecta com um banco, se não conecta em outro

 

Session.LCID = 1046
Set objConn = Server.CreateObject("ADODB.Connection")
If Date() =< cDate("04/08/2008") Then
  strConn = Server.MapPath(mBaseDir & "banco/normal.mdb")
Else
  strConn = Server.MapPath(mBaseDir & "banco/verao.mdb")
End If
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & strConn

[Adelar Tiemann jr 0]

Aew

 

Tira a criação da conexão de dentro do banco

alem de facilitar vai garantir que ela existe

 

vlw ae