Conexão Com banco de dados

[kioshy 0]

:(

 

Galera o códgio que eu to usando é o seguinte:

 

Dim Evento

Evento = Request.QueryString("Evento")

 

if Request.Cookies("AcessoIT")(Evento) = "" then

 

Dim StrSql

Dim ObjConn

Dim ObjRSCont

Dim Qtd_Acessos

 

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

ObjConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("contador.mdb") &";"

ObjConn.Open

 

StrSql = "Select * from acessos where local= '"& Evento &"'"

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

 

ObjRSCont.Open StrSql,ObjConn

 

if ObjRSCont.EOF = True then

StrSql = "Insert into Acessos(" & Chr(34) & "Qtd_Acessos" & Chr(34) & ", " & Chr(34) & "Local" & Chr(34) & ") Values("& 1 & "," & Chr(34) & Evento & Chr(34) &"')"

else

Qtd_Acessos = ObjRSCont("QTD_acessos") + 1

StrSql = "Update acessos set Qtd_acessos=" & Qtd_Acessos & " where local=" & Evento

end if

 

ObjRSCont StrSql, ObjConn

 

ObjRSCont.Close

Set ObjRSCont = Nothing

 

Response.Cookies("AcessoIT")(Evento) = "Gravado"

end if

 

 

mas ai nesta parte:

 

StrSql = "Select * from acessos where local= '"& Evento &"'"

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

 

ObjRSCont.Open StrSql,ObjConn

 

Acontece um erro

 

error '80004005'

Unspecified error

 

/contAcesso.asp, line 21

 

 

alguém sabe por que desse erro???

 

Pra chamar o página eu uso "contAcesso.asp?evento=Valor"

[Mário Monteiro 179]

local é palavra reservada...tente colocar colchetes...StrSql = "Select * from acessos where [local]= '"& Evento &"'"veja se dá

[kioshy 0]

beleza vlw realmente funcionou mas ai depois deu outro erro

 

Nessa parte

StrSql = "Insert into Acessos(" & Chr(34) & "Qtd_Acessos" & Chr(34) & ", " & Chr(34) & "Local" & Chr(34) & ") Values("& 1 & "," & Chr(34) & Evento & Chr(34) &"')"

 

 

Na hora que eu executo isso presenta o seguinte erro

 

Microsoft VBScript runtime error '800a01c2'

 

Wrong number of arguments or invalid property assignment

 

/contAcesso1.asp, line 35

 

ai eu mudei a strsql q ficou assim

 

StrSql = "Insert into Acessos(Qtd_Acessos, [local]) Values("& 1 & ",'" & Evento & "')"

 

Mas mesmo assim continua dando o erro.

 

PQ???

 

Sendo q utilizei esse insert direto no access e ele funcionou corretamente.

[Mário Monteiro 179]

da uma espaço depois do nome da tabelaStrSql = "Insert into Acessos (Qtd_Acessos, [local]) Values(" & 1 & ",'" & Evento & "')"

[kioshy 0]

Óia eu d novo

 

Seguinte agora to precisando gravar um Cookie na máquina do cliente mas to vez que eu tento gravar esse cookie apresenta o seguinte erro:

 

Response object error 'ASP 0156 : 80004005'

 

Header Error

 

/contaces.asp, line 45

 

The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

 

Já me mandaram verificar se na minha máquina está permitido cookies

Bom eu olhei e tá permitido e pedi pra outra pessoa olha e deu o mesmo erro

 

Eu preciso muito disso pq sem isso o q eu estou fazendo não funciona.

 

VLW

[Mário Monteiro 179]

o que tem na linha 45???

[kioshy 0]

Somente issoResponse.Cookies("AcessoIT")(Evento)="Gravado"

[Marcelo Barcellos 0]

É isso AALVES......