Sub BuildUploadRequest(RequestBin)
 PosBeg = 1
 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
 boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
 boundaryPos = InstrB(1,RequestBin,boundary)
 
 Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--" )))
 
  Dim UploadControl
  Set UploadControl = CreateObject("Scripting.Dictionary" )
 
  Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition" ))
  Pos = InstrB(Pos,RequestBin,getByteString("name=" ))
  PosBeg = Pos+6
  PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
 
  Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
  PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename=" ))
  PosBound = InstrB(PosEnd,RequestBin,boundary)
 
  If  PosFile<>0 AND (PosFile<PosBound) Then
 
   PosBeg = PosFile + 10
   PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
   FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
 
   UploadControl.Add "FileName", FileName
   Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:" ))
   PosBeg = Pos+14
   PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
 
   ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
   UploadControl.Add "ContentType",ContentType
 
   PosBeg = PosEnd+4
   PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
   Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
  Else
   Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
   PosBeg = Pos+4
   PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
   Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
  End If
 
  UploadControl.Add "Value" , Value
 
  UploadRequest.Add name, UploadControl  
 
  BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
 Loop
End Sub
 
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
  char = Mid(StringStr,i,1)
  getByteString = getByteString & chrB(AscB(char))
 Next
End Function
 
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
  getString = getString & chr(AscB(MidB(StringBin,intCount,1)))  
 Next
End Function
 
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary" )
 
BuildUploadRequest  RequestBin
 
 
'--- file 1 ---
contentType = UploadRequest.Item("file1" ).Item("ContentType" )
 
filepathname = UploadRequest.Item("file1" ).Item("FileName" )
 
' filename = nom complet du cv du candidat  
 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\" ))
 
' modif du 04/10/2002 par chb
' nom du fichier cv unique grâce à concaténation de la date et l'heure
 
filename = replace(replace(filename,".","_" & date() & "" & time() & "." ),"/","" )
filename = replace(filename,":","-" )
filename = replace(filename,"-","" )
 
 
'|------| chemin complet de l'endroit ou sont stocké les cv des candidats  |------|
' nom_local="D:\Inetpub\wwwdata\www.unionfinancieredefrance.fr\public_html\cv\" & filename
'|--------------------------------------------------------------------------------|
 
'|----| extension en majuscules |----|
 extens=ucase(right(filename,3)) '|
'|-----------------------------------|
 
if ajuimg=1 and extens<>"GIF" then
 pi="&pasdimg=1"
 Response.Redirect redir&pi
else
 
 if not filename="" then  
 
  value = UploadRequest.Item("file1" ).Item("Value" )
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject" )
  Set MyFile = ScriptObject.CreateTextFile(Server.mappath(path_cv)&"\" & filename)
 
  For i = 1 to LenB(value)
   MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close
  set myfile = nothing
 
 
  if not nomdufich="" then
   takefile=nomdufich+filename
   'Response.Redirect redir+takefile
  else
   'Response.Redirect redir
  end if
 end if
 
end if
 
 
DIM cursus(3)
DIM cursannee(3)
DIM exprof(5)
dim anneeprof(5)
 
 
nom =  UploadRequest.Item("nom" ).Item("Value" )
prenom =  UploadRequest.Item("prenom" ).Item("Value" )
adresse =  UploadRequest.Item("adresse" ).Item("Value" )
ville =  UploadRequest.Item("ville" ).Item("Value" )
cp =  UploadRequest.Item("codepostal" ).Item("Value" )
tel =  UploadRequest.Item("tel" ).Item("Value" )
email = UploadRequest.Item("email" ).Item("Value" )
file =  UploadRequest.Item("file1" ).Item("Value" )