%
Server.ScriptTimeout = 22000
%>
<%
Dim action
Dim ReturnCode
Dim ErrorText
Dim eMessage
action = Request("action")
Select Case action
Case "choosemethod"
If Request("Recurring") = "on" Then
Session("Recurring") = True
Else
Session("Recurring") = False
End If
Select Case Request("billmethod")
Case "CREDIT"
ShowCreditForm
Case Else
ShowStart
End Select
Case "paybill"
'check for required fields
If Trim(Request("Cust")) = "" Then
ErrorText = "You forgot to enter your customer number."
End If
If Trim(Request("Invoice")) = "" Then
ErrorText = "You forgot to enter your invoice number."
End If
If Trim(Request("ccAmount")) = "" Then
ErrorText = "You forgot to enter the amount of the invoice."
End If
If Trim(Request("FullName")) = "" Then
ErrorText = "You forgot to enter your full name."
End If
If Trim(Request("Address")) = "" Then
ErrorText = "You forgot to enter your address."
End If
If Trim(Request("City")) = "" Then
ErrorText = "You forgot to enter your city."
End If
If Trim(Request("State")) = "" Then
ErrorText = "You forgot to enter your state."
End If
If Trim(Request("ZipCode")) = "" Then
ErrorText = "You forgot to enter your zip code."
End If
If Trim(Request("ccNumber")) = "" Then
ErrorText = "You forgot to enter your credit card number."
End If
'ErrorText = ErrorText & "No Error
"
If ErrorText <> "" Then
ShowCreditForm
Response.End
End If
ReturnCode = ProcessSale()
If ReturnCode <> "APPROVED" Then
ErrorText = "The credit card you entered could not be authorized, please try another card. "
ShowCreditForm
Response.End
End If
'log transaction to sql
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT TOP 1 * FROM Trans"
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs("Invoice") = Int(Trim(Replace(Request("Invoice"),chr(34),"")))
rs("InvDate") = FormatDateTime(Date(),vbShortDate)
rs("Cust") = Trim(Replace(Request("Cust"),chr(34),""))
rs("FullName") = Trim(Replace(Request("FullName"),chr(34),""))
rs("FirstName") = ""
rs("LastName") = ""
rs("Address") = Trim(Replace(Request("Address"),chr(34),""))
rs("Address2") = Trim(Replace(Request("Address2"),chr(34),""))
rs("City") = Trim(Replace(Request("City"),chr(34),""))
rs("State") = Trim(Replace(Request("State"),chr(34),""))
rs("ZipCode") = Trim(Replace(Request("ZipCode"),chr(34),""))
rs("Country") = "USA"
rs("Phone") = Trim(Replace(Request("Phone"),chr(34),""))
rs("Fax") = ""
rs("ccNumber") = Trim(Replace(Request("ccNumber"),chr(34),""))
rs("ccMonth") = Trim(Replace(Request("ccMonth"),chr(34),""))
rs("ccYear") = Trim(Replace(Request("ccYear"),chr(34),""))
rs("ccAmount") = Abs(Trim(Replace(Request("ccAmount"),chr(34),"")))
rs("Salesman") = "BP"
rs("ccResult") = ReturnCode
rs("ccType") = Mid(Trim(Replace(Request("ccNumber"),chr(34),"")),1,1)
rs("RunDate") = FormatDateTime(Date(),vbShortDate)
rs.Update
Set rs = Nothing
If Session("Recurring") Then
eMessage = ""
eMessage = eMessage & "Invoice #: " & Int(Trim(Replace(Request("Invoice"),chr(34),""))) & vbcrlf
eMessage = eMessage & "Date: " & FormatDateTime(Date(),vbShortDate) & vbcrlf
eMessage = eMessage & "Customer #: " & Trim(Replace(Request("Cust"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Full Name: " & Trim(Replace(Request("FullName"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Address: " & Trim(Replace(Request("Address"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Address2: " & Trim(Replace(Request("Address2"),chr(34),"")) & vbcrlf
eMessage = eMessage & "City: " & Trim(Replace(Request("City"),chr(34),"")) & vbcrlf
eMessage = eMessage & "State: " & Trim(Replace(Request("State"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Zip Code: " & Trim(Replace(Request("ZipCode"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Phone: " & Trim(Replace(Request("Phone"),chr(34),"")) & vbcrlf
'eMessage = eMessage & "Check #: " & Trim(Replace(Request("checkno"),chr(34),""))
'eMessage = eMessage & "Routing #: " & Trim(Replace(Request("route"),chr(34),""))
'eMessage = eMessage & "MICR: " & Trim(Replace(Request("acctnum"),chr(34),""))
eMessage = eMessage & "ccNumber: " & Trim(Replace(Request("ccNumber"),chr(34),"")) & vbcrlf
eMessage = eMessage & "ccMonth: " & Trim(Replace(Request("ccMonth"),chr(34),"")) & vbcrlf
eMessage = eMessage & "ccYear: " & Trim(Replace(Request("ccYear"),chr(34),"")) & vbcrlf
eMessage = eMessage & "Amount: " & Abs(Trim(Replace(Request("ccAmount"),chr(34),""))) & vbcrlf
eMessage = eMessage & "Salesman: " & "BP" & vbcrlf
eMessage = eMessage & "Return Code: " & ReturnCode & vbcrlf
'SendEmail(eMessage)
myMail(eMessage)
End If
ShowThankYou
Response.End
Case "paycheck"
'check for required fields
If Trim(Request("Cust")) = "" Then
ErrorText = "You forgot to enter your customer number."
End If
If Trim(Request("Invoice")) = "" Then
ErrorText = "You forgot to enter your invoice number."
End If
If Trim(Request("ccAmount")) = "" Then
ErrorText = "You forgot to enter the amount of the invoice."
End If
If Trim(Request("FullName")) = "" Then
ErrorText = "You forgot to enter your full name."
End If
If Trim(Request("Address")) = "" Then
ErrorText = "You forgot to enter your address."
End If
If Trim(Request("City")) = "" Then
ErrorText = "You forgot to enter your city."
End If
If Trim(Request("State")) = "" Then
ErrorText = "You forgot to enter your state."
End If
If Trim(Request("ZipCode")) = "" Then
ErrorText = "You forgot to enter your zip code."
End If
If Trim(Request("checkno")) = "" Then
ErrorText = "You forgot to enter a check number."
End If
If Trim(Request("route")) = "" Then
ErrorText = "You forgot to enter a routing number."
End If
If Trim(Request("acctnum")) = "" Then
ErrorText = "You forgot to enter your account number."
End If
'ErrorText = ErrorText & "No Error
"
If ErrorText <> "" Then
ShowCheckForm
Response.End
End If
ReturnCode = ProcessCheckSale()
Response.Write "
" & ErrorText & "
" If ReturnCode <> "APPROVED" Then ErrorText = "The checking account you entered could not be authorized, please try another account." 'ErrorText = ReturnCode ShowCheckForm Response.End End If 'log transaction to sql Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT TOP 1 * FROM Trans" rs.Open SQL, Conn, 1, 3 rs.AddNew rs("Invoice") = Int(Trim(Replace(Request("Invoice"),chr(34),""))) rs("InvDate") = FormatDateTime(Date(),vbShortDate) rs("Cust") = Trim(Replace(Request("Cust"),chr(34),"")) rs("FullName") = Trim(Replace(Request("FullName"),chr(34),"")) rs("FirstName") = "" rs("LastName") = "" rs("Address") = Trim(Replace(Request("Address"),chr(34),"")) rs("Address2") = Trim(Replace(Request("Address2"),chr(34),"")) rs("City") = Trim(Replace(Request("City"),chr(34),"")) rs("State") = Trim(Replace(Request("State"),chr(34),"")) rs("ZipCode") = Trim(Replace(Request("ZipCode"),chr(34),"")) rs("Country") = "USA" rs("Phone") = Trim(Replace(Request("Phone"),chr(34),"")) rs("Fax") = "" rs("checkno") = Trim(Replace(Request("checkno"),chr(34),"")) rs("route") = Trim(Replace(Request("route"),chr(34),"")) rs("acctnum") = Trim(Replace(Request("acctnum"),chr(34),"")) 'rs("ccNumber") = Trim(Replace(Request("ccNumber"),chr(34),"")) 'rs("ccMonth") = Trim(Replace(Request("ccMonth"),chr(34),"")) 'rs("ccYear") = Trim(Replace(Request("ccYear"),chr(34),"")) rs("ccAmount") = Abs(Trim(Replace(Request("ccAmount"),chr(34),""))) rs("Salesman") = "BP" rs("ccResult") = ReturnCode rs("ccType") = 0 rs("RunDate") = FormatDateTime(Date(),vbShortDate) rs.Update Set rs = Nothing If Session("Recurring") Then eMessage = "" eMessage = eMessage & "Invoice #: " & Int(Trim(Replace(Request("Invoice"),chr(34),""))) & vbcrlf eMessage = eMessage & "Date: " & FormatDateTime(Date(),vbShortDate) & vbcrlf eMessage = eMessage & "Customer #: " & Trim(Replace(Request("Cust"),chr(34),"")) & vbcrlf eMessage = eMessage & "Full Name: " & Trim(Replace(Request("FullName"),chr(34),"")) & vbcrlf eMessage = eMessage & "Address: " & Trim(Replace(Request("Address"),chr(34),"")) & vbcrlf eMessage = eMessage & "Address2: " & Trim(Replace(Request("Address2"),chr(34),"")) & vbcrlf eMessage = eMessage & "City: " & Trim(Replace(Request("City"),chr(34),"")) & vbcrlf eMessage = eMessage & "State: " & Trim(Replace(Request("State"),chr(34),"")) & vbcrlf eMessage = eMessage & "Zip Code: " & Trim(Replace(Request("ZipCode"),chr(34),"")) & vbcrlf eMessage = eMessage & "Phone: " & Trim(Replace(Request("Phone"),chr(34),"")) & vbcrlf eMessage = eMessage & "Check #: " & Trim(Replace(Request("checkno"),chr(34),"")) & vbcrlf eMessage = eMessage & "Routing #: " & Trim(Replace(Request("route"),chr(34),"")) & vbcrlf eMessage = eMessage & "MICR: " & Trim(Replace(Request("acctnum"),chr(34),"")) & vbcrlf 'eMessage = eMessage & "ccNumber: " & Trim(Replace(Request("ccNumber"),chr(34),"")) 'eMessage = eMessage & "ccMonth: " & Trim(Replace(Request("ccMonth"),chr(34),"")) 'eMessage = eMessage & "ccYear: " & Trim(Replace(Request("ccYear"),chr(34),"")) eMessage = eMessage & "Amount: " & Abs(Trim(Replace(Request("ccAmount"),chr(34),""))) & vbcrlf eMessage = eMessage & "Salesman: " & "BP" & vbcrlf eMessage = eMessage & "Return Code: " & ReturnCode & vbcrlf 'SendEmail(eMessage) myMail(eMessage) End If ShowThankYou Response.End Case Else ShowStart End Select Sub ShowStart %>
Welcome to EZ2 Network's Online BillPay. You can pay your EZ2 Network invoice using your credit card or checking account.
|
||
|
||||||||||||||||||
<% If ErrorText <> "" Then %>
<% = ErrorText %>
<% End If %>
|
||||||||||||||||||
Your request has been processed, please allow up to 24 hours for your account to be credited. Thank you for using Online BillPay. |
||