<%checkUserLogin()%> <% IF request.querystring("id") <> "" THEN currentID = request.querystring("id") ELSE currentID = currentID END IF Dim CurrentSubscriptions Dim addSubscription CurrentSubscriptions = "N/A" accountLevel = "" addSubscription = request("addSubscription") Set cn = Server.CreateObject("ADODB.connection") cn.Open connString 'UPDATE SUBSCRIPTION EXPIRATION DATE IF request("action") = "Save Expiration Date" AND request("subscription_id") <> "" AND request("when_expires") <> "" THEN Dim updateSQL updateSQL = "UPDATE gbi2_subscriptions SET when_expires='" & request("when_expires") & "' WHERE subscription_id=" & request("subscription_id") cn.Execute updateSQL IF (cDate(request("when_expires")) >= date()) THEN updateSQL2 = "UPDATE gbi2_subscriptions SET subscription_status_type_id=" & SUBSCRIPTION_STATUS_ACTIVE & " WHERE subscription_id=" & request("subscription_id") cn.Execute updateSQL2 ELSE updateSQL2 = "UPDATE gbi2_subscriptions SET subscription_status_type_id=3 WHERE subscription_id=" & request("subscription_id") cn.Execute updateSQL2 END IF checkGGnotifyUpdate(cn) Dim myURL myURL = "manage_user_subscription.asp?id=" & currentID & "&admin=1" response.redirect(myURL) END IF ' *** DEPRECATED??? *** 'IF addSubscription = "yes" THEN ' sType = request("subscriptionTypes") ' pType = request("paymentType") ' SccName = replace(request("ccName"), "'", "''") ' SccNumber = request("ccNumber") ' SccExp = request("ccExpMonth") & request("ccExpYear") ' SccCVV = request("ccCVV") ' email = Session("email") ' CALL Subscription_Process(cn, currentID, request("paymentType"), _ ' SccName, SccNumber, SccExp, SccCVV, email, productString) 'END IF set rsSubscriptions = server.createobject("adodb.recordset") Dim subSQL subSQL = "SELECT a.subscription_id, a.subscription_type_id, a.when_starts, a.when_expires, a.project_count, a.subscription_cost, a.subscription_status_type_id, " & _ "b.shortname as 'sub_type', c.shortname, d.short_description " & _ "FROM gbi2_subscriptions a, gbi2_subscription_types b, gbi2_payment_types c, gbi2_subscription_status_types d " & _ "WHERE a.acct_id = " & currentID & _ " AND a.subscription_type_id = b.subscription_type_id " & _ "AND a.payment_type_id = c.payment_type_id " & _ "AND a.subscription_status_type_id = d.subscription_status_type_id " & _ " ORDER BY when_expires DESC" rsSubscriptions.open subSQL, cn hasCIEB = false hasNC = false IF NOT rsSubscriptions.eof = TRUE THEN Dim rowCount, pCount, renew_up, sub_type_id, sub_stat_type_id, sub_id, action rowCount = 1 CurrentSubscriptions = vbCrLf & "" & _ "" & _ "" & vbCrLf DO WHILE NOT rsSubscriptions.EOF sub_id = rsSubscriptions("subscription_id") sub_type_id = rsSubscriptions("subscription_type_id") sub_stat_type_id = cInt(rsSubscriptions("subscription_status_type_id")) IF sub_stat_type_id = SUBSCRIPTION_STATUS_ACTIVE THEN SELECT CASE sub_type_id CASE "-2" renew_up = "" & bullet & action & " 1 Project
" & vbCrLf & _ "" & bullet & action & " 3 Projects
" & vbCrLf & _ "" & bullet & action & " 10 Projects
" & vbCrLf & _ "Please note that your complimentary subscription will expire with this upgraded paid subscription." CASE "-1" renew_up = "" & bullet & action & " 1 Project
" & vbCrLf & _ "" & bullet & action & " 3 Projects
" & vbCrLf & _ "" & bullet & action & " 10 Projects
" & vbCrLf & _ "Please note that your complimentary subscription will expire with this upgraded paid subscription." CASE "1" ' 1 NC Project renew_up = "Upgrade to 3 NC Projects
" & vbCrLf & _ "Upgrade to 10 NC Projects
" & vbCrLf hasNC = true CASE "2" ' 3 NC Projects renew_up = "Upgrade to 10 NC Projects
" & vbCrLf hasNC = true CASE "3" ' 10 NC projects ' no upgrade currently available hasNC = true CASE "4" renew_up = "" & bullet & "Renew
" & vbCrLf & _ "" & bullet & action & " Supporter: Silver
" & vbCrLf & _ "" & bullet & action & " Supporter: Gold
" & vbCrLf CASE "5" renew_up = "" & bullet & "Renew
" & vbCrLf & _ "" & bullet & action & " Supporter: Gold
" & vbCrLf CASE "6" renew_up = "" & bullet & "Renew
" & vbCrLf CASE "7" renew_up = "" & bullet & "Renew
" & vbCrLf & _ "" & bullet & action & " Member: Sponsoring
" & vbCrLf & _ "" & bullet & action & " Member: Sustaining
" & vbCrLf CASE "8" renew_up = "" & bullet & "Renew
" & vbCrLf & _ "" & bullet & action & " Member: Sustaining
" & vbCrLf CASE "9" renew_up = "" & bullet & "Renew
" & vbCrLf CASE "10" ' GBI Newsletter CASE "11" ' 30-day NC trial CASE "12" ' 30-day CIEB trial CASE "13" ' CIEB hasCIEB = true renew_up = "Add to your existing building project count: " & _ "" & _ "" & vbCrLf CASE "14" ' free NC with coupon/code CASE ELSE ' unknown/unhandled renew_up = "" END SELECT ELSE ' ignore, subscription has expired renew_up = "" END IF IF isAdmin <> 1 THEN CurrentSubscriptions = CurrentSubscriptions & " " & vbCrLf ELSE CurrentSubscriptions = CurrentSubscriptions & " " & vbCrLf END IF rsSubscriptions.MoveNext LOOP CurrentSubscriptions = CurrentSubscriptions & "

Subscription Type	Starts	Expires	Project Count	Status	How Purchased	Cost	Renew/Upgrade/Reactivate
" & rsSubscriptions("sub_type") & _ "	" & rsSubscriptions("when_starts") & _ "	" & rsSubscriptions("when_expires") & _ "	" & rsSubscriptions("project_count") & _ "	" & rsSubscriptions("short_description") & _ "	" & rsSubscriptions("shortname") & _ "	" & FormatCurrency(rsSubscriptions("subscription_cost")) & _ "	" & renew_up & _ "
" & rsSubscriptions("sub_type") & _ "	" & rsSubscriptions("when_starts") & _ "	" & _ "	" & rsSubscriptions("project_count") & _ "	" & rsSubscriptions("short_description") & _ "	" & rsSubscriptions("shortname") & _ "	" & FormatCurrency(rsSubscriptions("subscription_cost")) & _ "	" & renew_up & _ "

" END IF If isAdmin <> 1 THEN If Not hasCIEB Then CurrentSubscriptions = CurrentSubscriptions & "" & vbCrLf End IF If Not hasNC Then CurrentSubscriptions = CurrentSubscriptions & "

Add 1 'New Construction' Project
" & vbCrLf & _ "Add 3 'New Construction' Projects
" & vbCrLf & _ "Add 10 'New Construction' Projects

" & vbCrLf End If End If rsSubscriptions.Close Set rsSubscriptions = nothing Set cn = nothing %> The GBI: Commercial: Use Green Globes: Account: Subscription Manage

Account: Manage your Subscription

<%=CurrentSubscriptions%>

COMMERCIAL GREEN BUILDING

Account: Manage your Subscription