473,322 Members | 1,526 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

Help needed : error in "INSERT INTO"

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 OLEDB:Database 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,Motd ePasseBdd)
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
Jul 22 '05 #1
9 2395
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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


Jul 22 '05 #2
Article #2400 Why do I get 80040E14 errors?
http://aspfaq.com/show.asp?id=2400

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"



"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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





Jul 22 '05 #3
Thanks,
But now i've the following error: (sorry, it' in french)
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 16

If Response.Buffer Then Response.Clear Response.Status = "500 Erreur interne
du serveur" Response.ContentType = "text/html" Response.Expires = 0 End If
-----------------------------------------------------------------------------------------^Microsoft
JET Database Engine error '80004005'

L'opération doit utiliser une requête qui peut être mise à jour.

/cytiserw/Include/commun.asp, line 49

************************************************** *********************

"Steven Burn" <so*******@in-time.invalid> a écrit dans le message de news:
OL**************@TK2MSFTNGP12.phx.gbl...
Article #2400 Why do I get 80040E14 errors?
http://aspfaq.com/show.asp?id=2400

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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


Jul 22 '05 #4
For the first one;

http://aspfaq.com/show.asp?id=2363
http://aspfaq.com/show.asp?id=2414

........ and for the second (a very common but mis-interpreted error)

http://aspfaq.com/search.asp?q=80004...Days=0&order=1

Apologies for not being more helpful (my French is somewhat lacking... hopefully if the above does not help, one of the experts will come along and help (Bob, Aaron... where the heck are ya!))

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message news:d0**********@ail.sri.ucl.ac.be...
Thanks,
But now i've the following error: (sorry, it' in french)


Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 16

If Response.Buffer Then Response.Clear Response.Status = "500 Erreur interne
du serveur" Response.ContentType = "text/html" Response.Expires = 0 End If
-----------------------------------------------------------------------------------------^Microsoft
JET Database Engine error '80004005'

L'opération doit utiliser une requête qui peut être mise à jour.

/cytiserw/Include/commun.asp, line 49



************************************************** *********************

"Steven Burn" <so*******@in-time.invalid> a écrit dans le message de news:
OL**************@TK2MSFTNGP12.phx.gbl...
Article #2400 Why do I get 80040E14 errors?
http://aspfaq.com/show.asp?id=2400

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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





Jul 22 '05 #5
sql="insert into visites (numIP) Values('"&ip&"')"
response.write sql
response.end

do you get what you expected?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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


Jul 22 '05 #6
Yes but what I want it to execute the lines :

sql="insert into visites([numIP]) Values('"&cstr(ip)&"')"
conn.execute(sql)

And i get always the same reply (in french, sorry)
L'opération doit utiliser une requête qui peut être mise à jour.

I don't understand why (it worked well before the sp2)

Luc
"Mark Schupp" <no******@email.net> a écrit dans le message de news:
ul**************@TK2MSFTNGP12.phx.gbl...
sql="insert into visites (numIP) Values('"&ip&"')"
response.write sql
response.end

do you get what you expected?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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



Jul 22 '05 #7
Thanks for your assistance, but unfortunaltely, it does'nt help me ...:)

Luc
"Steven Burn" <so*******@in-time.invalid> a écrit dans le message de news:
eN**************@TK2MSFTNGP15.phx.gbl...
For the first one;

http://aspfaq.com/show.asp?id=2363
http://aspfaq.com/show.asp?id=2414

........ and for the second (a very common but mis-interpreted error)

http://aspfaq.com/search.asp?q=80004...Days=0&order=1

Apologies for not being more helpful (my French is somewhat lacking...
hopefully if the above does not help, one of the experts will come along and
help (Bob, Aaron... where the heck are ya!))

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Thanks,
But now i've the following error: (sorry, it' in french)
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 16

If Response.Buffer Then Response.Clear Response.Status = "500 Erreur
interne
du serveur" Response.ContentType = "text/html" Response.Expires = 0 End If
-----------------------------------------------------------------------------------------^Microsoft
JET Database Engine error '80004005'

L'opération doit utiliser une requête qui peut être mise à jour.

/cytiserw/Include/commun.asp, line 49

************************************************** *********************

"Steven Burn" <so*******@in-time.invalid> a écrit dans le message de news:
OL**************@TK2MSFTNGP12.phx.gbl...
Article #2400 Why do I get 80040E14 errors?
http://aspfaq.com/show.asp?id=2400

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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



Jul 22 '05 #8
http://www.aspfaq.com/show.asp?id=2062

You definitely have a permissions problem. You IUSR account must have Change
(Modify) permissions on the folder containing your database.

Luc Dal wrote:
Yes but what I want it to execute the lines :

sql="insert into visites([numIP]) Values('"&cstr(ip)&"')"
conn.execute(sql)

And i get always the same reply (in french, sorry)
L'opération doit utiliser une requête qui peut être mise à jour.

I don't understand why (it worked well before the sp2)

Luc
"Mark Schupp" <no******@email.net> a écrit dans le message de news:
ul**************@TK2MSFTNGP12.phx.gbl...
sql="insert into visites (numIP) Values('"&ip&"')"
response.write sql
response.end

do you get what you expected?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
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 OLEDB:Database 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,Motd ePasseBdd)
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


--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.
Jul 22 '05 #9
Thanks a lot !
I could solve my problem using the link you gave me !!!!

Luc
"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> a écrit dans le message de
news: OI****************@TK2MSFTNGP12.phx.gbl...
http://www.aspfaq.com/show.asp?id=2062

You definitely have a permissions problem. You IUSR account must have
Change
(Modify) permissions on the folder containing your database.

Luc Dal wrote:
Yes but what I want it to execute the lines :

sql="insert into visites([numIP]) Values('"&cstr(ip)&"')"
conn.execute(sql)

And i get always the same reply (in french, sorry)
L'opération doit utiliser une requête qui peut être mise à jour.

I don't understand why (it worked well before the sp2)

Luc
"Mark Schupp" <no******@email.net> a écrit dans le message de news:
ul**************@TK2MSFTNGP12.phx.gbl...
sql="insert into visites (numIP) Values('"&ip&"')"
response.write sql
response.end

do you get what you expected?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com

"Luc Dal" <da*@sped.ucl.ac.be> wrote in message
news:d0**********@ail.sri.ucl.ac.be...
Sorry

Hre's ethe good line :

sql="insert into visites (numIP) Values('"&ip&"')"

"Luc Dal" <da*@sped.ucl.ac.be> a écrit dans le message de news:
d0**********@ail.sri.ucl.ac.be...
> 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 OLEDB:Database 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,Motd ePasseBdd)
> 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


--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Jul 22 '05 #10

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
by: newbie_mw | last post by:
Hi, I need urgent help with a novice problem. I would appreciate any advice, suggestions... Thanks a lot in advance! Here it is: I created a sign-up sheet (reg.html) where people fill in their...
0
by: newbie_mw | last post by:
Hi Ian, Thanks for help! The columns and variables are exactly matched so it shouldn't be the problem. Actually the original html and php files are pretty long. But I guess a more detailed...
1
by: newbie_mw | last post by:
Seems my post was buried in more cries for help :-) I will try again. It's probably a very novice question so please take a look! Thanks!...
4
by: hao | last post by:
Hi, all When I use ASP to insert an record to a database, I got some errors and can not insert any value with Chinese Char. The only way I can do that is use "rst1.Addnew...rst1.update". Anyone...
20
by: Mark Harrison | last post by:
So I have some data that I want to put into a table. If the row already exists (as defined by the primary key), I would like to update the row. Otherwise, I would like to insert the row. I've...
13
by: shankindc | last post by:
Hi, I have a data entry form which opens default values each time the form is open. Requirement is that users can edit existing data in the form. When the form is closed, it shouldnt update the...
5
by: djsdaddy | last post by:
Good Day All, I have some EEO data in an old dBase4 database that I have converted to an Access table. Since dBase was not a relational database, I didn't create any key fields. I linked all of the...
6
by: ewpatton | last post by:
Good day, I've been trying to work with SQL and an Access database in order to handle custom user profiles. I haven't had any trouble reading from my database, but inserting new entries into...
3
by: Twanne | last post by:
Hi, I've got a table called Aerosol and a table called LinkTabel. Now I do an update to a table from an excell sheet, this table is called ExportAerosol. So far so good, the import works...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.