By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,544 Members | 2,021 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,544 IT Pros & Developers. It's quick & easy.

Help needed : error in "INSERT INTO"

P: n/a
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
Share this Question
Share on Google+
9 Replies


P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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

P: n/a
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 discussion thread is closed

Replies have been disabled for this discussion.