|
<%
dim strFileName
dim file
dim fso
dim varName
dim varEmail
dim varMessage
strFileName = server.mappath("gbook1.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"))
varEmail=Trim(request.form("email"))
varMessage=Trim(request.form("message"))
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
file.close
set file = nothing
set fso = nothing
END IF
END IF
END IF
%>
|
