Ho provato a tradurlo MA NON SO SE FUNZIONA 
Salva il nome immagine come file di testo ,quindi non fa proprio la stessa cosa.
codice:
dim immagine
immagine=request.form("img_val")
response.write " <img src= " & chr(34) & immagine & chr(34) & " />"immagine
dim filteredData
filteredData=mid(immagine,instr(immagine,",")) 'prende la stringa a partire dalla prima virgola
filePath = Server.Mappath("img.png")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if not objFileSystem.FileExists(filePath) then
'se non esiste lo creo
objFileSystem.CreateTextFile(filePath)
end if
Set objFile = objFileSystem.OpenTextFile(filePath, 8)
objFile.WriteLine(filteredData)
objFile.Close
Set objFile=Nothing
Set objFileSystem=Nothing