<%checkUserLogin()%> <% ' variables Dim email Dim password Dim greenGlobesLink ' set variables emailSend = 0 CALL checkgreenGlobesLink() SUB checkgreenGlobesLink() Dim getLoginSql Dim findActiveSubSql Set cn = Server.CreateObject("ADODB.connection") cn.Open connString ' see if they have any active subscriptions set rsSub = server.createobject("adodb.recordset") findActiveSubSql = "SELECT subscription_type_id, project_count FROM gbi2_subscriptions " & _ " WHERE project_count <> 0 " & _ " AND subscription_status_type_id = " & SUBSCRIPTION_STATUS_ACTIVE & _ " AND acct_id = " & currentID rsSub.open findActiveSubSql, cn IF NOT rsSub.eof THEN project_count = rsSub("project_count") If CInt(project_count) > 0 or CInt(project_count) = -1 Then ' get the username and password for the green globes link set rsCheck = server.createobject("adodb.recordset") getLoginSql = "SELECT email, password FROM gbi2_acct_info WHERE acct_id = " & currentID rsCheck.open getLoginSql, cn IF NOT rsCheck.eof THEN email = rsCheck("email") password = rsCheck("password") END IF rsCheck.Close Set rsCheck = nothing ' testing Green globes account 'email = "ustest" 'password = "test" ' add the forum and GG line link, but only if they have a project/GG access greenGlobesLink = "Learn about the Green Globes Changes

" greenGlobesLink = greenGlobesLink & getGreenGlobesLink(email, password) greenGlobesLink = greenGlobesLink & "" 'greenGlobesLink = "Green Globes access is temporarily disabled while the new and improved version in configured." End If END IF rsSub.Close Set rsSub = nothing set cn = nothing END SUB FUNCTION getGreenGlobesLink(user_name, pass_word) ggl = "" If (session("nc") = "yes") Then ggl = "" & vbCrLf End If If (session("cieb") = "yes") Then ggl = ggl & "" & vbCrLf End If getGreenGlobesLink = ggl END FUNCTION %> The GBI: Commercial: Use Green Globes: Account: Account Home

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 Home

Welcome <%=Session("user_name")%> to the New and Improved Green Globes!

Change my Password Modify my Account Information Subscription Information View my Payment History View Preferences Logout	<%=greenGlobesLink%>

COMMERCIAL GREEN BUILDING

Account Home

Welcome <%=Session("user_name")%> to the New and Improved Green Globes!