<%
Const bDeleteEntries = True
Dim bForce
bForce = Request.QueryString("force")
Dim strFile
strFile = Server.MapPath("comments.txt")
If Request.Form.Count = 0 Then
%>
Comments:
<%
Else
Dim objFSO
Dim objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 8, True)
objFile.Write ""
objFile.Write Server.HTMLEncode(Request.Form("name"))
objFile.Write "-"
objFile.Write Server.HTMLEncode(Request.Form("center"))
objFile.Write ": "
objFile.Write Server.HTMLEncode(Request.Form("comment"))
objFile.Write "
"
objFile.WriteLine ""
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
%>
Your feedback has been submitted to administrator!
Thanks
SAI RAM
<%
End If
If bDeleteEntries Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
If DateDiff("d", objFile.DateLastModified, Date()) <> 0 Or bForce <> "" Then
Set objFile = Nothing
Set objFile = objFSO.CreateTextFile(strFile, True)
objFile.Write "SAI: "
objFile.WriteLine "I hope you like our Streaming!
"
objFile.Close
End If
Set objFile = Nothing
Set objFSO = Nothing
End If
%>