Camp Shamrock Guestbook
<% dim strFileName dim file dim fso dim varName dim varEmail dim varMessage dim varSecurity dim objMyDate dim varCountry dim varPrintLine dim objNameDate strFileName = server.mappath("gbook.txt") Const ForReading = 1, ForWriting = 2, ForAppending = 8 set fso = server.CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(strFileName,ForAppending ,true) varName=Trim(request.form("Name")) varCountry=Trim(request.form("Country")) varEmail=Trim(request.form("Email")) varMessage=Trim(request.form("Message")) varSecurity=Trim(request.form("Security")) if varSecurity = "spurn" then if DatePart("m",Date())=1 then NameDate="January" end if if DatePart("m",Date())=2 then NameDate="February" end if if DatePart("m",Date())=3 then NameDate="March" end if if DatePart("m",Date())=4 then NameDate="April" end if if DatePart("m",Date())=5 then NameDate="May" end if if DatePart("m",Date())=6 then NameDate="June" end if if DatePart("m",Date())=7 then NameDate="July" end if if DatePart("m",Date())=8 then NameDate="August" end if if DatePart("m",Date())=9 then NameDate="September" end if if DatePart("m",Date())=10 then NameDate="October" end if if DatePart("m",Date())=11 then NameDate="November" end if if DatePart("m",Date())=12 then NameDate="December" end if objMyDate = DatePart("d",Date())&" "&NameDate&", "&DatePart("yyyy",Date()) varPrintLine = 0 IF varName<>""THEN file.write "Name: " & varName & vbCrlf varPrintLine=1 End IF IF varCountry<>""THEN file.write "Country: " & varCountry & vbCrlf varPrintLine=1 END IF IF varEmail<>""THEN file.write "Email: " & varEmail & vbCrlf varPrintLine=1 END IF IF varMessage<>""THEN file.write "Message:" & varMessage & vbCrlf varPrintLine=1 END IF If varPrintLine = 1 then file.write "Date Entered: " & objMyDate & vbCrlf & "...................................................." & vbCrlf varPrintLine = 0 End if End if file.close set file = nothing set fso = nothing %>