'Response.Redirect("index_temp.asp")
' the following bit of code checks the cookie first
sourceid = Request.Cookies("DCEG_BMS_SourceID")
If sourceid = "" Then
sourceid = trim(Request.QueryString("sourceid")) : FilterInput sourceid, 6
If sourceid = "" Then
sourceid = trim(Request("sourceid")) : FilterInput sourceid, 6
If sourceid = "" Then
sourceid = "0"
End If
End If
End If
' If error occured during registration, retval will exist in the Request object
retval = ucase(Request("retval")) : FilterInput retval, 5
' Only look for Buddy if not being returned from error
If retval <> "NOBU" Then
' Check for Referral Account ID ("buddy") in QueryString
If Request.QueryString("buddy") <> "" Then
buddy = trim(Request.QueryString("buddy")) : FilterInput buddy, 9
Response.Cookies("DCEG_Referral_ID").Expires = DateAdd("d", 7, Now)
Response.Cookies("DCEG_Referral_ID") = buddy
Else
' Check in cookie
buddy = Request.Cookies("DCEG_Referral_ID")
If buddy = "" Then
buddy = trim(Request("buddy"))
If buddy = "" Then
buddy = ""
End If
End If
FilterInput buddy, 9
End If
End If
password = Request("password") : FilterInput3 password, 16
first = Request("first") : FilterInput2 first, 50
last = Request("last") : FilterInput2 last, 50
address = Request("address") : FilterInput2 address, 50
city = Request("city") : FilterInput2 city, 50
state = Request("state") : FilterInput state, 50
zip = Request("zip") : FilterInput2 zip, 25
country = Request("country") : FilterInput country, 50
phone = Request("phone") : FilterInput2 phone, 25
alias = Request("alias") : FilterInput3 alias, 15
email = Request("email") : FilterInput4 email, 50
broadcast = Request("broadcast") : FilterInput broadcast, 1
buddy = Request("buddy") : FilterInput buddy, 9
