<% @ LANGUAGE="VBSCRIPT" %> <% Option Explicit Dim CookieFile, objFS, objTextS, CookieKey %> Feedback <% if ((Request.Form("submit") = "Submit") OR ((Request.Form("submit") = "") and (Request.QueryString("submit") = "y"))) then CookieFile = Request.Form("name") Set objFS=Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists(CookieFile) = True Then Response.Write "Flag File " & "[" & CookieFile & "]" & "Already exists. File not created.
" Else Set objTextS = objFS.CreateTextFile(CookieFile, False, False) objTextS.WriteLine "hello" objTextS.Close Set objTextS = Nothing Response.Write "Flag File created." & "
" Response.Write "File name:" & CookieFile & "
" End If Set objFS = Nothing %> Flag file has been created <% else %> Contact form
Name
<% end if %>

This site was last updated 03/02/12