<%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

HOME ABOUT GBI GREEN GLOBES COMMERCIAL RESIDENTIAL JOIN / AFFILIATES GREEN RESOURCES TRAINING NEWS

	Contact GBI / Login
	COMMERCIAL GREEN BUILDING
Case Studies Certified Buildings List Bethke Elementary School Alberici Corporation Headquarters Allison Hall Fitness Center Blakely Hall Bristol-Myers Squibb Company Research & Development Facility Federal Court Building Home Savings Bank Branch Pfizer Inc Clinical Research Unit RenewAire, LLC Summit County Materials Recovery Facility The Integrated Learning Centre Toronto Military Family Resource Centre William J. Clinton Presidential Center Wisconsin Electrical Employees Benefit Fund Office About Green Globes Learn More about Green Globes Education Rating and Third-Party Assessment Process Recognition Apply to be a Green Globes Professional or Assessor Authorized Green Globes Personnel Federal Buildings FAQ Standards GBI ANSI Approved Procedures Technical Committee Members Subcommittees ANSI FAQ Calendar GBI Proposed ANSI Standard 01-200XP Life Cycle Assessment Use Green Globes Login to New Construction or Existing Building Module 30-day Free Trial of Green Globes Test Drive Green Globes - PDF Test Drive Green Globes - HTML

Account: Manage your Subscription

<%=CurrentSubscriptions%>

COMMERCIAL GREEN BUILDING

Account: Manage your Subscription