<%
Function base64_img(byval s,byval f)
        If InStr(s,"base64,") > 0 Then
          s = Mid(s,InStr(s,"base64,")+7)
        End If
        Set b64 = Server.CreateObject("Msxml2.DOMDocument").createElement("a")
        Set Stream = Server.CreateObject("ADODB.Stream")
        b64.dataType = "bin.base64"
        b64.Text = s
        With Stream
			.Type     = 1
			.Open                    
			.Write b64.nodeTypedValue
			.SaveToFile Server.MapPath(f),2
			.Close 
        End With
        Set Stream = Nothing  
        Set b64 = Nothing 
End Function
%>