| |
<%
dim fname(10),sname(10),semail(10),uid(10)
if request("Submit") = "Submit" then
num = request("tickets")
'Final = ucase(left(request("firstname"),4))
'response.write Final&"
"
disp = split(now(),"/")
disp1 = disp(0)&disp(1)&disp(2)
disp2 = split(disp1," ")
m = month(now())
dd = day(now())
yy = right(year(now()),2)
disp3 = disp2(0)&disp2(1)
disp4 = split(disp3,":")
FinalID = disp4(0)&disp4(1)&disp4(2)
FinalID1 = m&dd&yy
'response.Write(disp4(0))
'FinalID1 = Final&FinalID
'response.write Finalid&"
"&FinalID1
for i = 1 to num
fname(i) = request("firstname"&i)
sname(i) = request("surname"&i)
semail(i) = request("email"&i)
'uid(i) = ucase(left(fname(i),4))&FinalID&i
randomize()
seq = int(rnd * 99)
if len(seq) < 2 then seq = 0&seq
uid(i) = ucase(left(fname(i),1))&FinalID1&seq&i
'response.Write(uid(i)&"
")
'response.write uid(i)&" , "
'response.write fname(i)&"@"
response.write uid(i)&"
"
next
lposition = request("lpos")
lfname = request("firstname")
lsname = request("surname")
lemail = request("email")
ladd1 = request("address1")
ladd2 = request("address2")
lcity = request("city")
lstate = request("state")
lzip = request("zipcode")
lcountry = request("country")
lphone = request("phone")
lmobile = request("mobile")
lfax = request("fax")
twoday = request("C1")
if twoday = "" then
twoday = "False"
else
twoday = "True"
end if
'GroupID = ucase(left(fname(lposition),4))&FinalID&lposition
GroupID = ucase(left(fname(lposition),4))&FinalID
'LeadID = ucase(left(fname(lposition),4))&FinalID&lposition
LeadID = uid(lposition)
amt = request("total")
'response.write "@"&" "&GroupID&" "&ladd1&" "&ladd2&" "&lcity&" "&lstate&" "&lzip&" "&lcountry&" "&lphone&" "&lmobile&" "&lfax
'response.End()
'response.write "
"&GroupID
'response.End()
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open "Select * from form",connobj,2,3,1
for i =1 to num
objrs.addnew
objrs("Uid") = uid(i)
objrs("Gid") = GroupID
objrs("event") = "butterfly Ball"
objrs("fname") = fname(i)
objrs("sname") = sname(i)
objrs("email") = semail(i)
objrs("tickets") = num
objrs("totalamt") = amt
objrs.update
next
objrs.close
set objrs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from group1 where Gid='"&GroupID&"' "
'response.write sql
objrs.open sql,connobj,2,3,1
if objrs.eof then
objrs.addnew
objrs("Gid") = GroupID
objrs("leadid") = LeadID
objrs("Add1") = ladd1
objrs("Add2") = ladd2
objrs("City") = lcity
objrs("State1") = lstate
objrs("Zip") = lzip
objrs("Country") = lcountry
objrs("Phone") = lphone
objrs("Mobile") = lmobile
objrs("Fax") = lfax
objrs("twoday") = twoday
objrs.update
end if
objrs.close
response.redirect "butterflyball.asp?num="&num&"&lead="&LeadID&"&Gid="&GroupID
end if
if request("Gid") <> "" then
lead = request("lead")
Gid = request("Gid")
'response.write Gid
response.write "| Group ID | "&Gid&" | "
response.write "| Number of Tickets | "&request("num")&" | "
set objrs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from form where Gid = '"&Gid&"' "
'response.write sql
objrs.open sql,connobj,2,3,1
i =1
while not objrs.eof
uid(i) = objrs("Uid")
GroupID = objrs("Gid")
event1 = objrs("event")
fname(i) = objrs("fname")
sname(i) = objrs("sname")
semail(i) = objrs("email")
amt = objrs("totalamt")
'response.write objrs("fname")
objrs.movenext
i = i + 1
wend
objrs.close
response.write "| Event | "&event1&" |
"
response.write "| Member Details | "
response.write "| ID | Name | Email | "
for i = 1 to request("num")
' to highlight the lead person details
if uid(i) = lead then
response.write " | "&uid(i)&" | "&fname(i)&" "&sname(i)&" | "&semail(i)&" | "
else
response.write "| "&uid(i)&" | "&fname(i)&" "&sname(i)&" | "&semail(i)&" | "
end if
next
response.write "
"
end if
%>
<%
if request("ticket") <> "" then
tickets = request("ticket")
else
tickets = 1
end if
total = tickets * 80
%>
<% if request("Gid") = "" then %>
We will confirm your booking by email once payment has been received.
Please post cheque (one cheque only per booking) made payable to Surya Foundation to Priti Patel,
20 Woodcrest Avenue,
Purley,
Surrey,
CR8 4JB. Please add your booking reference, name and address at the back + number of tickets ordered.
Terms & Conditions
i) In the event of non-availability of tickets, Surya Foundation will not be able to accept your booking and will return your cheque within 7 days of receipt.
ii) Once issued, the tickets are non- refundable. You may be able to transfer the tickets or resell them at the same face value of £80. Surya Foundation must be notified of a change of guest name to ensure access to the event.
iii) Entry to the event will only be granted to ticket holders.
<%end if%> |
|
|
|
