Pb ecriture DB

 Bonjour à tous et toutes, je demande votre aide car je suis confronté à un problème que je ne comprends pas. j'ai récupéré un script pour uploader un fichier sur ce site. cela fonctionne tres bien. je cherche ensuite à enregistrer le nom de fichier dans une base de donnée et c'est la que ca se corse. voici le script :

 <form method=post ENCTYPE="multipart/form-data">
    File : <input type="file" name="File1"><br>
    <input type="submit" Name="Action" value="Upload the file">
  </form>

<!--#INCLUDE FILE="upload.inc" --->
<!--#INCLUDE FILE="connect.asp" --->
<%
version=request.querystring("version")
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  Set Fields = GetUpload()
  FilePath = Server.MapPath(".") & "\doc\" & Fields("File1").FileName
  Fields("File1").Value.SaveAs FilePath

fichier=Fields("File1").FileName
sql="insert into scan (pj) values ('"&fichier&"') where version='"&version&"' ;"
response.write(sql)
set rs=conn.Execute(sql)

End If
%>


l'erreur retournée :

Microsoft JET Database Engine error '80040e14'

Point-virgule absent à la fin de l'instruction SQL.

/scan/upload.asp , line 25

A votre bon coeur m'sieur dame...

Petite précision, lorsque j'enlève le where dans la requete sql, le nom de fichier s'ecrit bien dans la base sur l'enregistrement suivant.

il ne faut simplement pas mettre de where ... et en + ton truc est sensible l'injection !!
voici le même code en amélioré ...

<!--#INCLUDE FILE="upload.inc" --->
<!--#INCLUDE FILE="connect.asp" --->
<%

Function Pure(S) Pure = Replace(S, "'", "''") End Function Dim version, Fields, FilePath, fichier, sql version = Request.querystring("version") If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Fields = GetUpload() FilePath = Server.MapPath(".") & "\doc\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath fichier = Fields("File1").FileName sql = "insert into scan (pj,version) values ('" & Pure(fichier) & "','" & Pure(version) & "');" response.write (sql) Set rs = conn.Execute(sql) End If

By Renfield

%>
<form method=post ENCTYPE="multipart/form-data">
File : <input type="file" name="File1"><br>
<input type="submit" Name="Action" value="Upload the file">
</form>

_______________________________________________________________________
VB.NETis good ...VB6is better

Merci d'avoir répondu. cette version ne correspond pas tout a fait a mon besoin. en effet les "version" existent deja dans ma base et je dois inserer "pj" dans l'enregistrement qui correspond (je recupere  le numero de version avec le querystring) il est donc primordial de pouvoir mettre le where dans ma requete.

Evidemment pas possible !!! quel idiot je suis j'utilise INSERT a la place d'UPDATE ca fait trois jours que je me demande d'ou vient l'erreur du script !!!

En tout cas merci pour ton aide

Je me disais bien ...

_______________________________________________________________________
VB.NETis good ...VB6is better