<%
'Lets server know which security level we need http or https
setServerProtocol(SECURE)
Response.Buffer = True
dim dB
dim myConst
dim oRs
dim months
Dim myPP
Set months = getMonths
Set myPP = Server.CreateObject("NYeCommerce.PaymentProcessor")
Set dB = Server.CreateObject("NYeCommerce.DBAccess")
Set myConst = Server.CreateObject("NYeCommerce.nyConst")
dB.tvi_Open(myConst.NYECOMMERCE_ADMIN_CONNECTION)
Set oRs = dB.tvi_SelectSql("sp_getStates")
If oRs.EOF And oRs.BOF Then
'Error retrieving states from the database
doSingleErrorPage USER_ERROR, "Error retrieving the states for the database."
End If
oRs.MoveFirst
If CBool(Request.Form("reload")) Then
'DO all the processing
Dim singleQTY
Dim tableQTY
Dim firstName
Dim lastName
Dim regCompany
Dim regTitle
Dim regAddress1
Dim regAddress2
Dim city
Dim state
Dim zip
Dim email
Dim phone
Dim creditCardType
Dim expMonth
Dim expYear
Dim cardHolderName
Dim creditCardNumber
Dim creditCardZip
Dim errorList
Dim newOrder
Dim newOrderItem
'Verify the users input
singleQTY = Request.Form("singleQTY")
tableQTY = Request.Form("tableQTY")
If singleQTY = "0" and tableQTY = "0" Then
Error_AddError "singleQTY", "Must select at least 1 ticket or table"
End If
firstName = GetString("firstName", "First Name", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
lastName = GetString("lastName", "Last Name", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
regCompany = GetString("regCompany", "Registrant Company", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
regTitle = GetString("regTitle", "Title", 1, 50,GP_OPTIONAL, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
regAddress1 = GetString("regAddress1", "Address1", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
regAddress2 = GetString("regAddress2", "Address2", 1, 50,GP_OPTIONAL, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
city = GetString("city", "City", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
If Request.Form("state") <> "" Then
state = Request.Form("state")
Else
Error_AddError "state", "State must be selected."
End If
zip = GetString("zip", "Zip Code", 5, 5, GP_REQUIRED, "", GP_FORM,GP_NOENCODE, ERR_LISTED)
If zip <> "" Then
If Not IsNumeric(zip) Then
Error_AddError "Zip Code", "Zip Code must be a number"
End If
End If
email = GetString("email", "Email", 1, 50, GP_REQUIRED, "", GP_FORM,GP_NOENCODE, ERR_LISTED)
If email <> "" Then
If isEmailValid(email) <> 0 Then
Error_AddError "email", "E-mail is not a valid email address"
End If
End If
phone = GetString("phone", "Phone", 1, 50,GP_OPTIONAL, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
If Request.Form("creditCardType") <> "" Then
creditCardType = CInt(Request.Form("creditCardType"))
Else
Error_AddError "creditCardType", "Credit Card Type must be specified."
End If
If Request.Form("expMonth") <> "" Then
expMonth = Request.Form("expMonth")
Else
Error_AddError "expMonth", "Expiration month must be selected."
End If
If Request.Form("expYear") <> "" Then
expYear = Request.Form("expYear")
Else
Error_AddError "expYear", "Expiration year must be selected."
End If
cardHolderName = GetString("cardHolderName", "Card Holder Name", 1, 50,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
creditCardNumber = GetString("creditCardNumber", "Credit Card Number", 1, 20,GP_REQUIRED, "", GP_FORM, GP_NOENCODE, ERR_LISTED)
If creditCardNumber <> "" Then
If Not IsNumeric(creditCardNumber) Then
Error_AddError "creditCardNumber", "All the digits in your credit card number need to be a numeric value"
End If
End If
creditCardZip = GetString("creditCardZip", "Credit Card Zip Code", 5, 5, GP_REQUIRED, "", GP_FORM,GP_NOENCODE, ERR_LISTED)
If creditCardZip <> "" Then
If Not IsNumeric(creditCardZip) Then
Error_AddError "creditCardZip", "Zip Code must be a number"
End If
End If
If Not Error_AreErrors() Then
Dim attendees
Dim registrant
Dim totalCost
Set registrant = Server.CreateObject("NYeCommerce.Registrant")
Set newOrder = Server.CreateObject("NYeCommerce.Order")
Set newOrderItem = Server.CreateObject("NYeCommerce.orderItem")
'set the registrant information
registrant.setFirstName CStr(firstName)
registrant.setLastName CStr(lastName)
registrant.setTitle CStr(regTitle)
registrant.setEmail CStr(email)
registrant.setCompanyName CStr(regCompany)
registrant.setAddress1 CStr(regAddress1)
registrant.setAddress2 CStr(regAddress2)
registrant.setCity CStr(city)
registrant.setState CStr(state)
registrant.setZip CStr(zip)
'phone???
'If attendeeOne <> "" Then
' attendees = attendees + 1
' registrant.setAttendee CInt(attendees), CStr(attendeeOne)
'End If
registrant.setNumberOfAttendees CInt(1)
'Load the order with the information
newOrder.setBillToName CStr(cardHolderName)
newOrder.setBillToEmail CStr(registrant.getEmail())
newOrder.setBillToAddress1 CStr(registrant.getAddress1())
newOrder.setBillToAddress2 CStr(registrant.getAddress2())
newOrder.setBillToCity CStr(registrant.getCity())
newOrder.setBillToState CStr(registrant.getState())
newOrder.setBillToZip CStr(creditCardZip)
newOrder.setPaymentType CInt(myPP.PAYMENT_TYPE_CREDITCARD)
newOrder.setCreditCardType CInt(creditCardType)
newOrder.setCreditCardExpirationMonth CInt(expMonth)
newOrder.setCreditCardExpirationYear CInt(expYear)
newOrder.setCreditCardNumber CStr(creditCardNumber)
'Load the order item
if singleQTY = "" then
singleQTY = "0"
end if
if tableQTY = "" then
tableQTY = "0"
end if
'save the number of tickets in Session for confirm
Session("tenawards_singleQTY") = singleQTY
Session("tenawards_tableQTY") = tableQTY
totalCost = CInt(singleQTY)*250 + CInt(tableQTY)*2500
newOrderItem.setCost CCur(totalCost)
newOrderItem.setDescription CStr("New York eComm Ten Awards")
newOrderItem.setItemType CInt(newOrderItem.ITEM_TYPE_PANEL)
newOrderItem.setQuantity CInt(1)
newOrderItem.setName CStr("Ten Awards")
'Add the order item to the order
newOrder.addItem(newOrderItem)
'Save to session
registrant.saveRegistrant("registerEvent")
newOrder.saveOrder "registerEvent"
'thisEvent.savePanel("registerEvent")
dB.tvi_Close()
Set dB = Nothing
Set oRs = Nothing
Set registrant = Nothing
Set myConst = Nothing
Response.Redirect("/tenawards/confirm.asp")
Else
'Print out errors if any
Set errorList = Error_GetErrorList()
End If
End If
%>
Ten Awards
<%
dB.tvi_Close()
Set dB = Nothing
Set myConst = Nothing
Set oRs = Nothing
%>
