<% @ 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
<%
end if
%>
This site was last updated
03/02/12