<%
dim objFSO
Dim objFile
const forAppending = 8
dim path
path="d:\Awesomehunting\ShopSpree\list\list_"
set objFSO = server.createobject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(path & "data.txt",forAppending,True)
dim LineToWrite
LineToWrite = cstr(date()) & ","
dim cnt
for cnt = 1 to request.form.count
LineToWrite= LineToWrite & request.form(cnt) & ","
next
objFile.writeline left(LineToWrite,len(LineToWrite)-1)
objFile.close
set objFile = nothing
set objFSO = nothing
response.write "Thank you for your interest. Click on the link below to return to Awesome Hunting."
response.write "
Back To Awesome Hunting"
%>