% @ Language=VBScript %>
<% Response.ExpiresAbsolute = Now() - 1 %>
Registration Page
<%
sQuote=chr(34)
'prod
sProd = Trim(Replace(Request.QueryString("prod"), "'", "''"))
sX = Request.QueryString("E")
sFName = Trim(Replace(Request.QueryString("F"), "'", "''"))
sLName = Trim(Replace(Request.QueryString("L"), "'", "''"))
sAddress1 = Trim(Replace(Request.QueryString("A"), "'", "''"))
sAddress2 = Trim(Replace(Request.QueryString("B"), "'", "''"))
sCity = Trim(Replace(Request.QueryString("C"), "'", "''"))
sState = Trim(Replace(Request.QueryString("S"), "'", "''"))
sPostal = Trim(Replace(Request.QueryString("P"), "'", "''"))
sCountry = Trim(Replace(Request.QueryString("Z"), "'", "''"))
sEndPoint = Trim(Replace(Request.QueryString("EndPoint"), "'", "''"))
sActivationCode = Trim(Replace(Request.QueryString("Y1"), "'", "''"))
Select Case sProd
Case "GAVM1"
sTitle = "SakikoSoft GavelMinder v4.1"
sAmount = "4.20"
sSite="GavelMinder"
Case Else
sProd = "SSQP02"
sTitle = "SakikoSoft QuickPolish v1.3"
sAmount = "6.00"
sSite="QuickPolish"
sLimit ="Once activated, the"
sLimit = sLimit & " Trialware can be used for a week with unlimited uses.
"
End Select
%>
Software Registration
Please complete this quick registration. Unregistered
programs stay in demo mode. This registration request will
enable basic features only. Additional options can be added later.
After Payment verification,
you'll get the Registration
code for the software by e-mail. It takes around 3 minutes to complete the process.
|