<% @language="vbscript" %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Program: MSIPayII.ASP
' Author: Municipal Software Inc
' Copywrite 2004
'
' This web page was created in conjunction with the Village of Grayslake
' to process credit card payments for the villages water bills through
' the world wide web.
'
' This ASP code will verify that the user has entered an account number
' and a dollar amount. If both have been entered, the dollar amount
' will be multiplied by 100 to convert it to total cents as required
' by Lynk Systems. After the conversion to cents all requried data
' is sent to the Lynk System site to process a payment.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim int_ErrFound
dim cur_EntAmountNum
dim str_EntAcct, str_EntAmount, str_connect_URL
dim C_LYNKURL, C_STOREID, C_COMPNAME, C_APPRVURL, C_DECLURL
dim C_ERRURL, C_VALIDCARDS
int_ErrFound = 0
cur_EntAmountNum = 0.01
C_LYNKURL = "https://ss02.lynk-systems.com/cgi-bin/municipalsoftware.cgi"
C_STOREID = "storeid=301796"
C_COMPNAME = "comp_name=Village+of+Grayslake"
C_APPRVURL = "approveurl=http%3A%2F%2Fwww.villageofgrayslake.com%2Futility%2Fmsiaccept.htm"
C_DECLURL = "declineurl=http%3A%2F%2Fwww.villageofgrayslake.com%2Futility%2Fmsidecline.htm"
C_ERRURL = "errorurl=http%3A%2F%2Fwww.villageofgrayslake.com%2Futility%2Fmsierror.htm"
C_VALIDCARDS = "visa=1&mc=1"
if Request.QueryString("IsSubmit") = "yes" then
if Request.QueryString("submit") = "Submit" OR Request.QueryString("submit") = "" then
str_EntAmount = Request.QueryString("amount")
cur_EntAmountNum = CCur(str_EntAmount)
str_EntAcct = Request.QueryString("ref")
' Insure account number entered
if str_EntAcct = spaces then
int_ErrFound = 1
end if
' Insure amount entered. Convert to cents if it has been.
if cur_EntAmountNum <= 0 then
int_ErrFound = 1
else
cur_EntAmountNum = cur_EntAmountNum * 100
end if
' Build string to call Lynk system payment page.
if int_ErrFound = 0 then
str_EntAmount = CStr(cur_EntAmountNum)
str_connect_URL = C_LYNKURL & "?" & _
C_STOREID & "&" & _
C_COMPNAME & "&" & _
C_APPRVURL & "&" & _
C_DECLURL & "&" & _
C_ERRURL & "&" & _
C_VALIDCARDS & "&" & _
"ref=" & str_EntAcct & "&" & _
"amount=" & str_EntAmount
Response.Redirect str_connect_URL
end if
end if
end if
%>
Utility Billing
