Realmente Não Sei Onde Estou Errando !

[ola]

alguém pode me ajudar ????????????? por favor.

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/sessão/news.asp, line 9

Código:

<%@ Language=VBScript %>

<%

Set cnHo9 = Server.CreateObject("ADODB.Connection")

cnStHo9 = "driver={Microsoft Access Driver (*.mdb)};" & _

"dbq=" & Server.MapPath("ASPBook9.mdb")

cnHo9.Open cnStHo9,"",""

cnHo9.Execute "insert into UTPageViews (RecordID, PageVisited, WhenVisited) values (" _

& Session("RecordID") & ", 'News', '" & Now() & "')"

%>

[Graymalkin]

Você já mandou escrever a instrução SQL na tela (com um Response.Write) para verificar se ela está realmente correta?

Abraços,

Graymalkin

[kuroi]

provavelmente Session("RecordID") está vindo em branco.

[Guest Visitante]

O que eu mandei foi o código da minha página aí vai meu global:

<script LANGUAGE="VBScript" RUNAT="Server">

Sub Session_OnStart

Set cnHo9 = Server.CreateObject("ADODB.Connection")

cnStHo9 = "driver={Microsoft Access Driver (*.mdb)};" & _

"dbq=" & Server.MapPath("ASPBook9.mdb")

cnHo9.Open cnStHo9,"",""

set BC = server.createobject("MSWC.BrowserType")

DateTimeEntrance = Now()

IPAddress = Request.ServerVariables("remote_addr")

UserAgent = Request.Servervariables ("HTTP_USER_AGENT")

Browser = BC.Browser & " " & BC.Version

DHTMLSupport = cstr(BC.dhtml)

FramesSupport = cstr(BC.frames)

TablesSupport = cstr(BC.tables)

CookiesSupport = cstr(BC.cookies)

BackGroundSounds = cstr(BC.backgroundsounds)

JavaScriptSupport = cstr(BC.javascript)

JaveAppletsSupport = cstr(BC.javaapplets)

ActiveXControlsSupport = cstr(BC.activexcontrols)

AOL = cstr(BC.aol)

Platform = cstr(BC.platform)

VBScriptSupport = cstr(BC.vbscript)

SQL = "insert Into UTVisitors (DateTimeEntrance, IPAddress, UserAgent, Browser, "

SQL = SQL & "DHTML, Frames, Tables, Cookies, BackgroundSOunds, JavaScript, "

SQL = SQL & "JavaApplets, ActiveXControls, AOL, Platform, VBScript, "

SQL = SQL & "#" & DateTimeEntrance & "#', "

SQL = SQL & "'" & IPAddress & "', "

SQL = SQL & "'" & UserAgent & "', "

SQL = SQL & "'" & Browser & "', "

SQL = SQL & "'" & DHTMLSupport & "', "

SQL = SQL & "'" & FramesSupport & "', "

SQL = SQL & "'" & TablesSupport & "', "

SQL = SQL & "'" & CookiesSupport & "', "

SQL = SQL & "'" & BackGroundSounds & "', "

SQL = SQL & "'" & JavaScriptSupport & "', "

SQL = SQL & "'" & JaveAppletsSupport & "', "

SQL = SQL & "'" & ActiveXControlsSupport & "', "

SQL = SQL & "'" & AOL & "', "

SQL = SQL & "'" & Platform & "', "

SQL = SQL & "'" & VBScriptSupport & "', "

SQL = SQL & "'" & RefererDomain & "', "

SQL = SQL & "'" & RefererQuery & "', "

SQL = SQL & CookieID & ")"

cnHo9.Execute SQL

Set RSRecordID = CnHo9.Execute("select RecordID from UTVisitors where DateTimeEntrance = #" & DateTimeEntrance & "#")

Session("RecordID") = clng(RSRecordID("RecordID"))

End Sub

Sub Session_OnEnd

Set cnHo9 = Server.CreateObject("ADODB.Connection")

cnStHo9 = "driver={Microsoft Access Driver (*.mdb)};" & _

"dbq=" & Server.MapPath("ASPBook9.mdb")

cnHo9.Open cnStHo9,"",""

cnHo9.execute "update UTVisitors set DateTimeExit = '" & Now() _

& "' where RecordID = " & Session("RecordID")

End Sub

</SCRIPT>

O RecordID e o DateTimeexit estão vazios não sei porque.