<%
' Contact your provider for support, NOT flicks software
' http://www.flicks.com/support/
' http://www.flicks.com/authentix/intro.htm
' You may use this program freely so long as it is in conjuction with a
' product from Flicks Software
' BEGIN RIGHT CONNECTION CONFIGURATION
' Change This Line To Match Your Website Font Colors
BGCOLOR = "FFFFFF"
TEXT = "000000"
LINK = "FF0000"
ALINK = "00FFFF"
VLINK = "00FFFF"
' Change This Line To The Name of Your Website
WEBSITE = "Right Connection Demo"
MEMBERS_AREA = "http://www.RightConnection.com/members/"
' Change This Line To Match Your Merchant Account Name
MERCHANT = "YOUR_ACCOUNT_NICKNAME"
' Chage this line ONLY if your AuthentiX group name is differnt than you Right Connection Account
groupname = MERCHANT
' Change This Line To Match You Website URL (including "http://")
SERV_ADDR = Request.ServerVariables("LOCAL_ADDR")
URL = "http://" & SERV_ADDR
' Change This Line To The Amount of You Membership
OPTION1_AMOUNT = "9.95"
OPTION1_LENGTH = "30"
OPTION1_REBILL = "YES"
OPTION1_REBILL_START = "30"
OPTION1_REBILL_CYCLE = "30"
OPTION1_REBILL_AMOUNT = "9.95"
' OPTION2_AMOUNT = "24.95"
' OPTION2_LENGTH = "90"
' OPTION2_REBILL = "YES"
' OPTION2_REBILL_START = "90"
' OPTION2_REBILL_CYCLE = "90"
' OPTION2_REBILL_AMOUNT = "24.95"
' OPTION3_AMOUNT = "39.95"
' OPTION3_LENGTH = "180"
' OPTION3_REBILL = "YES"
' OPTION3_REBILL_START = "180"
' OPTION3_REBILL_CYCLE = "180"
' OPTION3_REBILL_AMOUNT = "39.95"
' OPTION4_AMOUNT = "74.95"
' OPTION4_LENGTH = "365"
' OPTION4_REBILL = "YES"
' OPTION4_REBILL_START = "365"
' OPTION4_REBILL_CYCLE = "365"
' OPTION4_REBILL_AMOUNT = "74.95"
' END CONFIGURATION
version = "IPPS AuthentiX Interface 1.00"
method = Request.ServerVariables("REQUEST_METHOD")
remoteaddr = Request.ServerVariables("REMOTE_ADDR")
referer = Request.ServerVariables("HTTP_REFERER")
script = Request.ServerVariables("SCRIPT_NAME")
username = Request.Form("username")
password = Request.Form("password")
mode = Request.Form("mode")
if (isnull(mode) or mode = "") then
mode = "add"
End If
expire = Request.Form("expdate")
email = Request.Form("email")
userpairs = Request.Form("userpairs")
nextURL = URL & script
exp_stamp = "11:59:59 PM"
if (isnull(notes) or notes = "") then
notes = email
End If
' change this value if you are using AuthentiX ISP
usingAuthentiXStandard = false
if (usingAuthentiXStandard) then
Set auth = Server.CreateObject("AUTHXOCX.AuthXOCXCtrl.1")
else
Set auth = Server.CreateObject("AUTHXISP.AuthXOCXCtrl.1")
' use this line to automatically set the domain to be the requesting IP
protectedDomain = Request.ServerVariables("LOCAL_ADDR")
' use this alternative if you are protecting by host header,
' set protectedDomain to be -your- host header
' protectedDomain = "hostheader.com"
auth.SetVirtualDomain protectedDomain, Request.ServerVariables("SCRIPT_NAME")
' check with your isp for your password, initially it is empty
' auth.SetVirtualDomainPassword("")
end if
if ("POST" <> method) then
Call JoinPage
Else
' Now we start with handeling the POST type requests that are used to add and/or update a user
message = "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
if ("update" = mode) then
x = 0
for i = 0 to (auth.UserGetCount - 1)
auth.UserDelete(auth.UserGetAt(i))
next
userdata = Split(userpairs, ":")
MAX = Ubound(userdata)
index = 0
Do While index <= MAX
username = userdata(index)
password = userdata(index + 1)
exp_month = userdata(index + 2)
exp_day = userdata(index + 3)
exp_year = userdata(index + 4)
exp_date = exp_month & chr(47) & exp_day & chr(47) & exp_year & " 23:59 PM"
index = index + 5
Call UpdateUsers
Loop
message = message & "" & vbCRLF
message = message & "[*OK" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
response.Write(message)
response.End
End If
if ("delete" = mode) then
result = auth.UserDelete(username)
if (result <> 0) then
message = "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "
" & vbCRLF
message = message & "" & vbCRLF
message = message & "Error Deleting user " & username & vbCRLF
message = message & "
" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
response.Write(message)
response.End
Else
message = "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "[*OK" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
response.Write(message)
response.End
End If
End If
if ("add" = mode) then
valid1 = "http://secure.rightconnect.com/pos/nph-cauth"
valid2 = "https://secure.rightconnect.com/pos/nph-cauth"
valid3 = "http://secure.rightconnect.com/pos/nph-ccharge"
valid4 = "https://secure.rightconnect.com/pos/nph-ccharge"
valid5 = "http://secure.rightconnect.com/"
if (valid1 = referer) then goodref = 1
if (valid2 = referer) then goodref = 1
if (valid3 = referer) then goodref = 1
if (valid4 = referer) then goodref = 1
if (valid5 = referer) then goodref = 1
if (goodref <> 1) then
errorMessage = "Invalid Refering URL " & referer
Call errorPage(errorMessage)
Else
exp_month = Mid(expire,5,2)
exp_day = Right(expire,2)
exp_year = Left(expire,4)
exp_date = exp_month & chr(47) & exp_day & chr(47) & exp_year & " 23:59 PM"
Call AddUser
message = "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "
" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "Your Membership sign-up is complete." & vbCRLF
message = message & "" & vbCRLF
message = message & "
" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "You may enter the MEMBERS AREA" & vbCRLF
message = message & "using your User ID of " & username & " " & vbCRLF
message = message & "and Password of " & password & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "
" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
message = message & "" & vbCRLF
response.Write(message)
response.End
End If
End If
if ("display" = mode) then
i = 0
response.Write(""&vbCRLF)
response.Write(""&vbCRLF)
response.Write("<![CDATA["&chr(13)&chr(10))
for i = 0 to (auth.UserGetCount - 1)
this_user = auth.UserGetAt(i)
response.Write(this_user)
response.Write(chr(9))
response.Write(auth.UserExpiration(this_user))
response.Write(vbCRLF)
next
response.End
End If
End If
Sub JoinPage
message = "<HTML>" & vbCRLF
message = message & "<!-- Right Connection, Inc. -->" & vbCRLF
message = message & "<!-- http://www.RightConnect.com/ -->" & vbCRLF
message = message & "<!-- Email: Support@RightConnect.com-->" & vbCRLF
message = message & "<!-- Version: " & version & " -->" & vbCRLF
message = message & "<BODY BGCOLOR=" & chr(34) & BGCOLOR & chr(34) & " TEXT=" & chr(34) & TEXT & chr(34) & " LINK=" & chr(34) & LINK & chr(34) & " VLINK=" & chr(34) & VLINK & chr(34) & " ALINK=" & chr(34) & ALINK & chr(34) & ">" & vbCRLF
message = message & "<P ALIGN=center>" & vbCRLF
message = message & "<FONT SIZE=" & chr(34) & "+3" & chr(34) & ">" & WEBSITE & "</FONT>" & vbCRLF
message = message & "</P>" & vbCRLF
message = message & "<DIV ALIGN=center>" & vbCRLF
message = message & "<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 WIDTH=80" & chr(37) & ">" & vbCRLF
message = message & "<TR>" & vbCRLF
message = message & chr(9) & "<TD ALIGN=left>" & vbCRLF
message = message & chr(9) & chr(9) & "<P ALIGN=justify>" & vbCRLF
message = message & chr(9) & chr(9) & "We are excited you have decided to join " & WEBSITE & ". " & vbCRLF
message = message & chr(9) & chr(9) & "Please select from the membership options listed below. " & vbCRLF
message = message & chr(9) & chr(9) & "You will be taken to our SECURE PAYMENT PROCESSING screen and then returned to " & vbCRLF
message = message & chr(9) & chr(9) & "our Members Area." & vbCRLF
message = message & chr(9) & chr(9) & "</P>" & vbCRLF
message = message & chr(9) & chr(9) & "<DIV ALIGN=center>" & vbCRLF
message = message & chr(9) & chr(9) & "<FORM ACTION=" & chr(34) & "https://secure.rightconnect.com/pos/nph-ccharge" & chr(34) & " METHOD=post>" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME="& chr(34) & "mode" & chr(34) & " VALUE=" & chr(34) & "remote" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "merchant_account" & chr(34) & " VALUE=" & chr(34) & MERCHANT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "ALIAS" & chr(34) & " VALUE=" & chr(34) & WEBSITE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user1" & chr(34) & " VALUE=" & chr(34) & "FORCEPOST" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user3" & chr(34) & " VALUE=" & chr(34) & "CREATE_PASSWORD" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "trans_amount" & chr(34) & " VALUE=" & chr(34) & OPTION1_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "next_url" & chr(34) & " VALUE=" & chr(34) & nextURL & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "expire" & chr(34) & " VALUE=" & chr(34) & OPTION1_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "passthru1" & chr(34) & " VALUE=" & chr(34) & OPTION1_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=submit VALUE=" & chr(34) & "Join Now for $" & OPTION1_AMOUNT & " for " & OPTION1_LENGTH & " days" & chr(34) & ">" & vbCRLF
if ("YES" = OPTION1_REBILL) then
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL" & chr(34) & " VALUE=" & chr(34) & OPTION1_REBILL & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_CYCLE" & chr(34) & " VALUE=" & chr(34) & OPTION1_REBILL_CYCLE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_START" & chr(34) & " VALUE=" & chr(34) & OPTION1_REBILL_START & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_AMOUNT" & chr(34) & " VALUE=" & chr(34) & OPTION1_REBILL_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Automatically renewed every " & OPTION1_REBILL_CYCLE & " days at $" & OPTION1_REBILL_AMOUNT & ".</FONT>" & vbCRLF
Else
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Non-Renewing Membership</FONT>" & vbCRLF
End If
message = message & chr(9) & chr(9) & "</FORM>" & vbCRLF
message = message & chr(9) & chr(9) & "</DIV>" & vbCRLF
if ("" <> OPTION2_AMOUNT) then
message = message & chr(9) & chr(9) & "<DIV ALIGN=center>" & vbCRLF
message = message & chr(9) & chr(9) & "<FORM ACTION=" & chr(34) & "https://secure.rightconnect.com/pos/nph-ccharge" & chr(34) & " METHOD=post>" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "mode" & chr(34) & " VALUE=" & chr(34) & "remote" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "merchant_account" & chr(34) & " VALUE=" & chr(34) & MERCHANT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "ALIAS" & chr(34) & " VALUE=" & chr(34) & WEBSITE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user1" & chr(34) & " VALUE=" & chr(34) & "FORCEPOST" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user3" & chr(34) & " VALUE=" & chr(34) & "USE_PASSWORD" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "trans_amount" & chr(34) & " VALUE=" & chr(34) & OPTION2_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "next_url" & chr(34) & " VALUE=" & chr(34) & nextURL&chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "expire" & chr(34) & " VALUE=" & chr(34) & OPTION2_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "passthru1" & chr(34) & " VALUE=" & chr(34) & OPTION2_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=submit VALUE=" & chr(34) & "Join Now for $" & OPTION2_AMOUNT & " for " & OPTION2_LENGTH & " days" & chr(34) & ">" & vbCRLF
if ("YES" = OPTION2_REBILL) then
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL" & chr(34) & " VALUE=" & chr(34) & OPTION2_REBILL & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_CYCLE" & chr(34) & " VALUE=" & chr(34) & OPTION2_REBILL_CYCLE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_START" & chr(34) & " VALUE=" & chr(34) & OPTION2_REBILL_START & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_AMOUNT" & chr(34) & " VALUE=" & chr(34) & OPTION2_REBILL_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Automatically renewed every " & OPTION2_REBILL_CYCLE & " days at $" & OPTION2_REBILL_AMOUNT & ".</FONT>" & vbCRLF
Else
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Non-Renewing Membership</FONT>" & vbCRLF
End If
message = message & chr(9) & chr(9) & "</FORM>" & vbCRLF
message = message & chr(9) & chr(9) & "</DIV>" & vbCRLF
End If
if ("" <> OPTION3_AMOUNT) then
message = message & chr(9) & chr(9) & "<DIV ALIGN=center>" & vbCRLF
message = message & chr(9) & chr(9) & "<FORM ACTION=" & chr(34) & "https://secure.rightconnect.com/pos/nph-ccharge" & chr(34) & " METHOD=post>" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "mode" & chr(34) & " VALUE=" & chr(34) & "remote" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "merchant_account" & chr(34) & " VALUE=" & chr(34) & MERCHANT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "ALIAS" & chr(34) & " VALUE=" & chr(34) & WEBSITE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user1" & chr(34) & " VALUE=" & chr(34) & "FORCEPOST" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user3" & chr(34) & " VALUE=" & chr(34) & "USE_PASSWORD" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "trans_amount" & chr(34) & " VALUE=" & chr(34) & OPTION3_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "next_url" & chr(34) & " VALUE=" & chr(34) & nextURL&chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "expire" & chr(34) & " VALUE=" & chr(34) & OPTION3_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "passthru1" & chr(34) & " VALUE=" & chr(34) & OPTION3_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=submit VALUE=" & chr(34) & "Join Now for $" & OPTION3_AMOUNT & " for " & OPTION3_LENGTH & " days" & chr(34) & ">" & vbCRLF
if ("YES" = OPTION3_REBILL) then
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL" & chr(34) & " VALUE=" & chr(34) & OPTION3_REBILL & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_CYCLE" & chr(34) & " VALUE=" & chr(34) & OPTION3_REBILL_CYCLE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_START" & chr(34) & " VALUE=" & chr(34) & OPTION3_REBILL_START & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_AMOUNT" & chr(34) & " VALUE=" & chr(34) & OPTION3_REBILL_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Automatically renewed every " & OPTION3_REBILL_CYCLE & " days at $" & OPTION3_REBILL_AMOUNT & ".</FONT>" & vbCRLF
Else
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Non-Renewing Membership</FONT>" & vbCRLF
End If
message = message & chr(9) & chr(9) & "</FORM>" & vbCRLF
message = message & chr(9) & chr(9) & "</DIV>" & vbCRLF
End If
if ("" <> OPTION4_AMOUNT) then
message = message & chr(9) & chr(9) & "<DIV ALIGN=center>" & vbCRLF
message = message & chr(9) & chr(9) & "<FORM ACTION=" & chr(34) & "https://secure.rightconnect.com/pos/nph-ccharge" & chr(34) & " METHOD=post>" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "mode" & chr(34) & " VALUE=" & chr(34) & "remote" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "merchant_account" & chr(34) & " VALUE=" & chr(34) & MERCHANT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "ALIAS" & chr(34) & " VALUE=" & chr(34) & WEBSITE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user1" & chr(34) & " VALUE=" & chr(34) & "FORCEPOST" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "user3" & chr(34) & " VALUE=" & chr(34) & "USE_PASSWORD" & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "trans_amount" & chr(34) & " VALUE=" & chr(34) & OPTION4_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "next_url" & chr(34) & " VALUE=" & chr(34) & nextURL&chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "expire" & chr(34) & " VALUE=" & chr(34) & OPTION4_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "passthru1" & chr(34) & " VALUE=" & chr(34) & OPTION4_LENGTH & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=submit VALUE=" & chr(34) & "Join Now for $" & OPTION4_AMOUNT & " for " & OPTION4_LENGTH & " days" & chr(34) & ">" & vbCRLF
if ("YES" = OPTION4_REBILL) then
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL" & chr(34) & " VALUE=" & chr(34) & OPTION4_REBILL & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_CYCLE" & chr(34) & " VALUE=" & chr(34) & OPTION4_REBILL_CYCLE & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_START" & chr(34) & " VALUE=" & chr(34) & OPTION4_REBILL_START & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<INPUT TYPE=hidden NAME=" & chr(34) & "REBILL_AMOUNT" & chr(34) & " VALUE=" & chr(34) & OPTION4_REBILL_AMOUNT & chr(34) & ">" & vbCRLF
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Automatically renewed every " & OPTION4_REBILL_CYCLE & " days at $" & OPTION4_REBILL_AMOUNT & ".</FONT>" & vbCRLF
Else
message = message & chr(9) & chr(9) & "<BR>" & vbCRLF
message = message & chr(9) & chr(9) & "<FONT SIZE=2>Non-Renewing Membership</FONT>" & vbCRLF
End If
message = message & chr(9) & chr(9) & "</FORM>" & vbCRLF
message = message & chr(9) & chr(9) & "</DIV>" & vbCRLF
End If
message = message & chr(9) & "</TD>" & vbCRLF
message = message & "</TR>" & vbCRLF
message = message & "</TABLE>" & vbCRLF
message = message & "<P ALIGN=center>" & vbCRLF
message = message & "<FONT SIZE=1>Credit Card Transaction and Password Services by <A HREF=" & chr(34) & "http://www.RightConnect.com/" & chr(34) & " TARGET=" & chr(34) & "_new" & chr(34) & ">Right Connection, Inc.</A></FONT>" & vbCRLF
message = message & "</P>" & vbCRLF
message = message & "</DIV>" & vbCRLF
message = message & "</BODY>" & vbCRLF
message = message & "</HTML>" & vbCRLF
response.Write(message)
response.End
End Sub
Sub UpdateUsers
if (auth.UserLookup(username) = 0) then
auth.UserExpiration(username) = exp_date
auth.UserPassword(username) = password
Else
Call AddUser
End if
End Sub
Sub ClearUser
delete = auth.UserDelete(username)
End Sub
Sub AddUser
notes = "IPPS User"
addResult = auth.UserAdd(username, password, notes, exp_date)
if (addResult <> 0) then
if (addResult = 3) then
errorMessage = "User Exists"
Else
errorMessage = "Failed User Add"
End If
Call errorPage(errorMessage)
End If
addGroup = auth.GroupAddUser(groupname, username)
if (addGroup <> 0) then
errorMessage = "Failed Group Add " & addGroup & " " & groupname & " "
Call errorPage(errorMessage)
End If
End Sub
Sub errorPage(errorMessage)
message = "<HTML>" & vbCRLF
message = message & "<!-- Right Connection, Inc. -->" & vbCRLF
message = message & "<!-- http://www.RightConnect.com/ -->" & vbCRLF
message = message & "<!-- Email: Support@RightConnect.com-->" & vbCRLF
message = message & "<!-- Version: " & version & " -->" & vbCRLF
message = message & "<BODY BGCOLOR=" & chr(34) & BGCOLOR & chr(34) & " TEXT=" & chr(34) & TEXT & chr(34) & " LINK=" & chr(34) & LINK & chr(34) & " VLINK=" & chr(34) & VLINK & chr(34) & " ALINK=" & chr(34) & ALINK & chr(34) & ">" & vbCRLF
message = message & "<P ALIGN=center>" & vbCRLF
message = message & "<!--BEGIN-->" & vbCRLF
message = message & "<!-- "&errorMessage&" -->" & vbCRLF
message = message & "If you are recieving this Error Message and are using Internet " & vbCRLF
message = message & "Explorer 4.x and above, your password will automatically be " & vbCRLF
message = message & "activated in approximately 15 minutes." & vbCRLF
message = message & "<!--END-->" & vbCRLF
message = message & "</P>" & vbCRLF
message = message & "</BODY>" & vbCRLF
message = message & "</HTML>" & vbCRLF
response.Write(message)
response.End
End Sub
%>
]]></plaintext></div></div>