L
Luc Dal
Hello,
I've serious problem using ASP under WindowsXP sp2.
I get the following reply (sorry it's in french)
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^Microsoft
JET Database Engine error '80040e14'
Erreur de syntaxe dans l'instruction INSERT INTO.
/cytiserw/Include/commun.asp, line 49
Here are the instructions in vbscript :
'=====================================================
Public sub OuvreConnexion(nomcomplet,strMotdePasse)
Dim Connstr
Set Conn = Server.CreateObject("ADODB.Connection")
Set Comm = Server.CreateObject("ADODB.Command")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & nomcomplet &";" & _
"Jet OLEDBatabase Password=" & strMotdePasse
Response.Write(Connstr)
Conn.Open Connstr
Set Comm.ActiveConnection = Conn
end sub
'=====================================================
Public Sub FermeConnexion()
Set Rec_Set = Nothing
Set Comm = Nothing
Conn.Close
Set Conn = Nothing
End Sub
'=====================================================
Public Sub MAJ_BaseIP()
dim ip,str,sql
str=""
call OuvreConnexion(session("chemin")&Utilisateurs,MotdePasseBdd)
ip=Request.ServerVariables("REMOTE_ADDR")
Response.Write(ip)
sql="insert numIP into visites Values('"&ip&"')"
conn.execute sql
call FermeConnexion
end sub
********************************************************************************
It worked perfectly well before sp2.
Where's the bug (if any) in my lines ?
Thanks for your help.
Lu
I've serious problem using ASP under WindowsXP sp2.
I get the following reply (sorry it's in french)
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^Microsoft
JET Database Engine error '80040e14'
Erreur de syntaxe dans l'instruction INSERT INTO.
/cytiserw/Include/commun.asp, line 49
Here are the instructions in vbscript :
'=====================================================
Public sub OuvreConnexion(nomcomplet,strMotdePasse)
Dim Connstr
Set Conn = Server.CreateObject("ADODB.Connection")
Set Comm = Server.CreateObject("ADODB.Command")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & nomcomplet &";" & _
"Jet OLEDBatabase Password=" & strMotdePasse
Response.Write(Connstr)
Conn.Open Connstr
Set Comm.ActiveConnection = Conn
end sub
'=====================================================
Public Sub FermeConnexion()
Set Rec_Set = Nothing
Set Comm = Nothing
Conn.Close
Set Conn = Nothing
End Sub
'=====================================================
Public Sub MAJ_BaseIP()
dim ip,str,sql
str=""
call OuvreConnexion(session("chemin")&Utilisateurs,MotdePasseBdd)
ip=Request.ServerVariables("REMOTE_ADDR")
Response.Write(ip)
sql="insert numIP into visites Values('"&ip&"')"
conn.execute sql
call FermeConnexion
end sub
********************************************************************************
It worked perfectly well before sp2.
Where's the bug (if any) in my lines ?
Thanks for your help.
Lu