"" then
set fs=server.CreateObject("scripting.filesystemobject")
set thisfile=fs.CreateTextFile(testfile,True)
thisfile.Write(""&msg& "")
if err =0 Then
response.write "ok"
else
response.write "no"
end if
err.clear
thisfile.close
set fs = nothing
End if
%>