 |
Sign
our Guest book...
<%
'FIRST WE DEFINE ALL THE VARIABLES WE ARE GOING TO USE
dim strFileName
dim file
dim fso
dim varName
dim varEmail
dim varMessage
'THEN WE DEFINE THE NAME OF THE TEXT FILE WE WANT TO CREATE
'AND USE SERVER.MAPPATH TO SAY WHERE IT MUST GO
'WE THEN SET UP THE STANDARD CONSTANTS FOR READING WRITING ETC.
strFileName = server.mappath("gbook.txt")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
'NOW WE CREATE OUR FSO AND CREATE THE TEXT FILE
'IF IT DOES NOT ALREADY EXIST.
set fso = server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(strFileName,ForAppending ,true)
'NEXT WE GET THE INPUT FROM THE FORM USING REQUEST.FORM
'AND APPLY THAT INFO TO THE VARIABLES WE DEFINED EARLIER.
varName=Trim(request.form("name"))
varEmail=Trim(request.form("email"))
varMessage=Trim(request.form("message"))
'IF SOME DOZY IDIOT JUST HITS THE SUBMIT BUTTON WITHOUT ENTERING
'A MESSAGE WE ARE GOING TO GET LOADS OF WHITE SPACE ON THE MESSAGE PAGE.
'TO STOP THIS WE WILL USE A SIMPLE IF - THEN ROUTINE TO CHECK THAT THE
'VARIABLES ACTUALLY HOLD SOME INFO.
IF varName<>""THEN
file.write "Name: " & varName & vbCrlf
IF varEmail<>""THEN
file.write "Email: " & varEmail & vbCrlf
IF varMessage<>""THEN
file.write "Message:" & vbCrlf & varMessage & vbCrlf & "................" & vbCrlf
'CLOSE THE FILE AND FSO THEN END ALL THE IFS
file.close
set file = nothing
set fso = nothing
END IF
END IF
END IF
%> |
