<% Language = "VBScript"
Response.Buffer = true
'path = Server.MapPath("/_private")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim seqnum,seq_num
fname = "temp"
seq_file = "seqnum"
rootpath = Server.MapPath("/")
path = Server.MapPath("/_private") & "\"
path1 = Server.MapPath("/data") & "\"
seq_num = 0
%>
First Name
<%
Call ReadFile
req = Request.Form("Submit")
Select Case req
Case("Submit Request")
FirstName = Request.Form("First_name")
LastName = Request.Form("Last_name")
ServerAdd = Request.ServerVariables("LOCAL_ADDR")
ClientSer = Request.ServerVariables("REMOTE_ADDR")
'Call ReadFile
'Response.write "Original seqnumber = " & seq_num & "
"
'Response.write "Creating text file in root directory" & "
"
'Response.write "Root Path = " & rootpath & "
"
'Response.write "Path = " & path & "
"
'Response.write "Path1 = " & path1 & "
"
Response.write "First Name " & FirstName & "
"
Response.write "Last Name " & LastName & "
"
'Response.write "Server Address = " & ServerAdd & "
"
'Response.write "Client Address = " & ClientSer & "
"
seq_num = seqnum + 1
Response.write "Sequence Number = " & seq_num & "
"
Call CreatingFile
Call CreateSeqFile
Server.Execute("deletefile.asp")
Response.End
End select
Sub ReadFile
Set fso = CreateObject("Scripting.FilesystemObject")
If fso.FileExists(path1 & seq_file) then
Set seqfile = fso.OpenTextFile(path1 & seq_file, ForReading)
seqnum = seqfile.ReadLine
seqfile.Close
set seqfile = nothing
Else
set f2 = fso.CreateTextFile(path1 & seq_file,True)
f2.WriteLine(seq_num)
f2.close
set f2 = Nothing
Set seqfile = fso.OpenTextFile(path1 & seq_file, ForReading)
seqnum = seqfile.ReadLine
seqfile.Close
set seqfile = nothing
End if
set fso = Nothing
End sub
Sub CreatingFile
Set fso = CreateObject("Scripting.FilesystemObject")
Response.write ("Creating text file in data directory " & fname & seq_num & ".txt") & "
"
set fl = fso.CreateTextFile(path1 & fname & seq_num & ".txt",True)
fl.Writeline()
fl.Writeline()
fl.Writeline()
fl.Writeline("First Name " & FirstName)
fl.Writeline("Last Name " & LastName)
fl.close
Set f1 = Nothing
Set fso = Nothing
End sub
Sub CreateSeqFile
Set fso = CreateObject("Scripting.FilesystemObject")
set f3 = fso.OpenTextFile(path1 & seq_file, ForWriting)
f3.WriteLine(seq_num)
f3.close
Set f3 = Nothing
Set fso = Nothing
End sub
%>