<%
dim fields
dim data
dim i
fields = "FirstName, LastName, Address, City, State, Notes, ZipCode"
Response.write "Saving
"
SaveFormFieldsToTemp fields, Request.form
Response.write "Retrieve
"
set data = RetrieveFormFieldsFromTemp(fields)
fields = split(fields, ", ")
if Not data Is Nothing then
Response.write "[data.count = " & data.count & "]
"
for i = 0 to ubound(fields)
Response.write fields(i) & " = " & data(fields(i)) & "
"
next
set data = Nothing
end if
response.write "" & Session.sessionID & "
"
session.abandon
%>
Untitled Document
<%
RESPONSE.END
dim lowerbound, upperbound, ID
lowerbound = 100000
upperbound = 999999
randomize
for i = 0 to 100
ID = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Response.write "ID = [" & ID & "]
"
next
RESPONSE.END
Response.cookies("x") = "hey"
'Response.cookies("x") = Request.cookies("x") & "&1007"
'Response.cookies("x") = Request.cookies("x") & "&1008"
'Response.cookies("x") = Request.cookies("x") & "&1009"
'Response.cookies("x") = Request.cookies("x") & "&1010"
response.cookies("abc") = ""
response.cookies("x").expires = date() + 10
response.cookies("abc").expires = date()
Response.write "[" & Request.cookies("x") & "]"
%>