|
|
Vous êtes ici : Forums > Langage ASP > Erreur de compilation '800a0401' sous IIS windows Xp
Erreur de compilation '800a0401' sous IIS windows Xp
Bonjour
Le script de creation d'un nouvel enregistrement et de modification de ma base acces ne fonctionne plus sous IIS sous xp alors qu'il fonctionnait sous windows 98 à l'epoque de sa creation.
code d'erreur
-------------
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 OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour.
/gestion_intervention/marque/update_marque.asp, line 28
script ajoute un enregistrement
-------------------------------
<%Response.Buffer="true"%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim conn
Dim Connstring
Dim enre
'--------- Ouverture de la connection
Set conn=Server.createObject("ADODB.connection")
Set enre=Server.createObject("ADODB.recordset")
conn.open "gestion_intervention"
cmarque_libelle=Request.Form("marque_libelle")
cmarque_libelle=UCASE(TRIM(cmarque_libelle))
cmarque_libelle=replace(cmarque_libelle,"'","''")
sql_doublon="SELECT COUNT(marque_libelle) AS compte_marque FROM marque where marque_libelle='"&cmarque_libelle&"'"
SET enre=conn.Execute(sql_doublon)
compte_marque=enre.Fields("compte_marque")
if (cmarque_libelle="") then
saisie_erreur="true"
Response.Redirect "form_ajout_marque.asp?saisie_erreur="&server.URLEncode(saisie_erreur)
else
if (compte_marque=0) then
sql="insert into marque (marque_libelle) values ('"&cmarque_libelle&"')"
Set enre=conn.Execute(sql)
saisie_erreur=""
session("marque_libelle") = ""
Response.Redirect "form_ajout_marque.asp?saisie_erreur="&server.URLEncode(saisie_erreur)
else
saisie_erreur="doublon"
session("marque_libelle") = "cmarque_libelle"
Response.Redirect "form_ajout_marque.asp?saisie_erreur="&server.URLEncode(saisie_erreur)
end if
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
Modification d'un enregistrement
--------------------------------
<%Response.Buffer="true"%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim conn
Dim Connstring
Dim enre
Dim saisie_erreur
'--------- Ouverture de la connection
Set conn=Server.createObject("ADODB.connection")
Set enre=Server.createObject("ADODB.recordset")
conn.open "gestion_intervention"
selection_marque=Request.Form("imarque")
cmarque_libelle=replace(Request.Form("materiel_libelle"),"'","''")
existe il une solution de modification, merci de votre aide
if (cmarque_libelle="") then
saisie_erreur="true"
Response.Redirect "formmodifma.asp?selection_marque="&server.URLEncode(imarque) & "&saisie_erreur="&server.URLEncode(saisie_erreur)
else
sql="UPDATE marque "&"SET marque_libelle='"&cmarque_libelle&"' where marque="&selection_marque&" "
Set enre=conn.Execute(sql)
saisie_erreur="false"
Response.Redirect "formmodifma.asp?saisie_erreur="&server.URLEncode(saisie_erreur)
End if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
Message posté le 06/10/2006
par casse.gueule
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
16/07/2008 -
Windows Server 2008 : Network Access Protection
Le nouveau système d’exploitation serveur de Microsoft, Windows Server 2008, apporte avec lui de nou ...
|
16/07/2008 -
Webcasts - Développement parallèle, à l'aube d'une nouvelle ère
Avec l'avénement des multi-coeurs, le développement parallèle devient une necéssité. Dans cette séri ...
|
16/07/2008 -
J'en ai rien à coder - Votre devoir de vacances sur Silverlight !
Qu'est-ce que Silverlight ? Une nouvelle technologie Web permettant d'exécuter des RIA sur un large ...
|
16/07/2008 -
Quelques petits tests sur les bases embarquées
Dans ce billet, Ayende réalise un benchmarking de plusieurs "petites" bases de données embarquées. S ...
|
15/07/2008 -
Présentation d'ASP.NET Dynamic Data
Dynamic Data est une nouvelle technologie inclue dans l' "Asp.net 3.5 Extension CTP ".
Elle fournit ...
|
15/07/2008 -
Silverlight 2 - Les webcasts de l'événement sont en ligne
L’objectif de cette journée était de comprendre les limitations de Silverlight 1, et d’appréhender l ...
|
15/07/2008 -
Cache transparent et Entity Framework
La gestion du cache (1er et second niveau) est une fonctionnalité très importante d'un outil de mapp ...
|
|
|
