New Page 1

<% sSerialNumber = request.form("SerialNumber") sUpgradeLevel = request.form("upgradeLevel") bValidSerialNumber = ValidateKey(sSerialNumber) sPrice = "$70" sItem = "" sName = "" sLevel = ucase(right(sSerialNumber,3)) if sLevel = "STD" then sUpgradeLevel = "1" end if if bValidSerialNumber then sChecked1 = " checked" sChecked2 = "" if sUpgradeLevel = "1" then if sLevel = "STD" then sName = "mcsSprinklers Professional Upgrade" sItem = "20045" else sName = "mcsSprinklers Standard Upgrade" sItem = "20046" end if end if if sUpgradeLevel = "2" then sChecked1 = "" sChecked2 = " checked" sPrice = "$130" sItem = "20045" sName = "mcsSprinklers Professional Upgrade" end if if sLevel = "BAS" then sHTML = " $70 Upgrade from Basic to Standard      " & _ "
$130 Upgrade from Basic to Professional  " elseif sLevel = "STD" then sHTML = " $70 Upgrade from Standard to Professioinal" else 'if ucase(right(sSerialNumber,3)) = "PRO" then sHTML = "Upgade of Professional license is not available" bValidSerialNumber = false sPrice = "" end if elseif sSerialNumber <> "" then sHTML = "$70  Upgrade from Basic to Standard      " & _ "
$70  Upgrade from Standard to Professional" & _ "
$130 Upgrade from Basic to Professional" & _ "

Serial Number " & sSerialNumber & "
is not a valid serial number for use in upgrade" else sHTML = "$70  Upgrade from Basic to Standard      " & _ "
$70  Upgrade from Standard to Professional" & _ "
$130 Upgrade from Basic to Professional" end if sHTML = "" & _ "" & _ "

Serial Number of current mcsSprinklers license

" & _ "

" & sHTML & "

" sPaypal = "

" sPaypal = sPaypal & "" sPaypal = sPaypal & "" sPaypal = sPaypal & " " sPaypal = sPaypal & "

" sPaypal = sPaypal & "

" sPaypal = sPaypal & "" sPaypal = sPaypal & "" sPaypal = sPaypal & " " sPaypal = sPaypal & "

" sPaypal = sPaypal & " " sPaypal = sPaypal & "

" & sPrice & "

" 'if sLevel = "BAS" then ' sConfigUpdate = "

" & _ ' "" & _ ' "" 'else sConfigUpdate = "" 'end if if not bValidSerialNumber then sPaypal = "" sConfigUpdate = "" end if ''################################################################################### Function ValidateKey(SerialNumber) Dim sLevel Dim DBProvider Dim objConn Dim SQL Dim rst 'Const gRegistrationDatabase = "access_registration.dsn" 'DBProvider = "filedsn=" & Server.MapPath("_dsn") & "/" Const gRegistrationDatabase = "Registration.mdb" DBProvider = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("access_db") & "\" Set objConn = CreateObject("ADODB.Connection") objConn.Open DBProvider & gRegistrationDatabase SQL = "SELECT SerialNumber FROM tblRegistration WHERE ucase(SerialNumber)='" & ucase(SerialNumber) & "'" set rst = objConn.execute (SQL) ValidateKey = not (rst.EOF and rst.BOF) Set rst = Nothing Set objConn = Nothing End Function '################################################################################### %> New Page 1

mcsSprinklers License Upgrade

<%=sHTML%>
<%=sConfigUpdate%>

<%=sPaypal%>