Discussion :

[insane_80]

Bonjour à tous,

J'ai un probleme au niveau d'une page web (en ASP) publié chez un hebergeur:

Un message d'erreur s'affiche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
 
More information about this error may be available in the server error log.

Voilà une partie de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<%'=================================================
	dim objconn
	Set objconn = Server.CreateObject("ADODB.Connection")
	objconn.open "DSN=xxx"
'=================================================
 
 
nom=Replace(Request.Form("nom"),"'","''")
prenom=Replace(Request.Form("prenom"),"'","''")
 
dim SQLString
 
SQLString =" INSERT INTO TABLE_TEST (NOM, PRENOM) VALUES ('"&nom&"','"&prenom&"')"
 
objconn.execute(SQLString)

Le probleme c'est au niveau de la ligne d'execution de la requete:
objconn.execute(SQLString)

Est-ce vous pouvez m'aider svp.
Et merci d'avance

[Immobilis]

Salut,

Si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

prenom=Replace(Request.Form("prenom"),"'","''")

Au final tu obtiens des triples cotes, non?
Pour t'en assurer fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

response.write(SQLString)

A+

[roro06]

Bonjour

Il vaut mieux utiliser un objet adodb.command :

<%'=================================================
dim objconn
Set objconn = Server.CreateObject("ADODB.Command")
objconn.ActiveConnection="DSN=xxx"
'=================================================


nom=Replace(Request.Form("nom"),"'","''")
prenom=Replace(Request.Form("prenom"),"'","''")

dim SQLString

SQLString =" INSERT INTO TABLE_TEST (NOM, PRENOM) VALUES ('"&nom&"','"&prenom&"')"

objconn.commandText=SQLString

objconn.execute()
@immobilis : oui, les triple côtes sont valides en vbscript, la syntaxe :
INSERT INTO TABLE_TEST (NOM, PRENOM) VALUES ('d''amato', 'l''aurent') est valide et permet d'insérer une quote. (dans cet exemple, le type s'appelle l'aurent d'amato)

cordialement

[insane_80]

J'ai fait tout ce que vous avez proposé @roro06, mais même erreur s'affiche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
 
More information about this error may be available in the server error log.

Je veux signaler que je travaille avec ACCESS.

[roro06]

Pas de problème avec Access.

Un test en local génèret-il la même erreur ?

[insane_80]

En local, ça marche trés bien.

[Immobilis]

Pour afficher le detail des erreurs
Menu outils > option internet > onglet avancé > décocher l'equivalent de "show friendly http error messages"

A+