<%checkUserLogin()%>
<%
Dim allPreferences
allPreferences = "N/A"
Dim news
Dim offers
Dim post
Set cn = Server.CreateObject("ADODB.connection")
cn.Open connString
set rsPreferences = server.createobject("adodb.recordset")
rsPreferences.open "SELECT a.posttoweb, a.get_Newsletters, a.get_offers FROM gbi2_acct_info_details a WHERE a.acct_id = " & currentID, cn
IF NOT rsPreferences.eof = TRUE THEN
allPreferences = "To change your preference settings click on the appropriate link next to the setting. " & _
" Please send us a short message with the setting you prefer. You can also email us directly at info@thegbi.org.
" & vbCrLf
allPreferences = allPreferences & "" & _
"| Preference | Setting | Change preference |
|---|
" & vbCrLf
DO WHILE NOT rsPreferences.EOF
IF rsPreferences("get_newsletters") THEN
'
ELSE
'
END IF
IF rsPreferences("get_offers") THEN
offers = "Yes"
offersLink = "No"
ELSE
offers = "No"
offersLink = "Yes"
END IF
IF rsPreferences("posttoweb") THEN
post = "Yes"
postLink = "No"
ELSE
post = "No"
postLink = "Yes"
END IF
allPreferences = allPreferences & "| Receive GBI e-mails/newsletters | " & _
" | " & Session("email") & " |
" & vbCrLf
allPreferences = allPreferences & "| Receive offers from other GBI affiliates | " & offers & _
" | Request change to Offers preference setting |
" & vbCrLf
allPreferences = allPreferences & "| Show my contact information in the GBI affiliate directory | " & post & _
" | Request change to Directory preference setting |
" & vbCrLf
rsPreferences.MoveNext
LOOP
allPreferences = allPreferences & "
" & vbCrLf
END IF
rsPreferences.Close
Set rsPreferences = nothing
Set cn = nothing
%>
The GBI: Commercial: Use Green Globes: Account: Manage Preferences
|
SITE MAP /
COPYRIGHT © 2008 THE GREEN BUILDING INITIATIVE. ALL RIGHTS RESERVED |
