subir imagen como texto

[mc_quake]

<%
Function PictNew(imagen)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath("_file/"& imagen)) Then
If NOT fso.FileExists(Server.MapPath("_file/mk_"&imagen)) Then
'===========================================

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.mappath("_file") & "\" & imagen
Jpeg.Open Path
width=jpeg.originalwidth
height=jpeg.originalheight
if width > 217 then
height2=(217*height)/width
Jpeg.Width = 217
Jpeg.Height = height2
end if
Jpeg.Interpolation = 2 'Bicubic
Jpeg.save server.mappath("_file") & "\mk_"& imagen
ch_archivo = "mk_" & imagen
'===========================================

End If
End If
End Function