<% Option Explicit Response.Buffer = TRUE Dim conn, rs, strSQL, objCommand ' Database connection variables Dim TheString ' SQLRemoveBadCharactersInc SetVars Function Dim adjustingtext ' SQLRemoveBadCharactersInc RemoveCharacters Function Dim arysplit, i, j, strOutput ' SQLRemoveBadCharactersInc stripHTML2 Function Dim strCurrentCommunity ' CommunityID from Querystring Dim intCountNumber, strRedirectURL Dim strPendingJoinRequestsLink Dim strRoot ' Current domain name strRoot = "http://" & Request.ServerVariables("SERVER_NAME") Session("CurrentCommunity") = "" Session("Location") = "Homepage" %> GroupInterVisual - My Homepage
GroupInterVisual Help

  
<% If Session("CustomerID") <> "" Then ' Logged In %>

<% 'CHECK whether to display link to Community Pending Approvals Page Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr ' Open database connection strSQL = "SELECT Count(*) AS Count" strSQL = strSQL & " FROM CommunityRequests" strSQL = strSQL & " INNER JOIN Communities" strSQL = strSQL & " ON Communities.CommunityID = CommunityRequests.CommunityID" strSQL = strSQL & " WHERE Communities.CustomerID = '" & Session("CustomerID") & "'" Set rs = conn.Execute(strSQL) If rs.Fields ("Count") < 1 OR rs.EOF Then ' No Pending Member Requests strPendingJoinRequestsLink = "../../asp/ApproveDenyCommunity.asp" Response.Write "My Communities Approvals Waiting:" Response.Write "  0" rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.close ' Close open connection Else ' Pending Requests strPendingJoinRequestsLink = "../../asp/ApproveDenyCommunity.asp" Response.Write "My Communities Approvals Waiting:" Response.Write "  " & rs.Fields ("Count") & "" rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.close ' Close open connection End If %>



 
   
<% conn.Open connstr ' Open database connection strSQL = "SELECT Top 10 Communities.CommunityID, Communities.CommName, Communities.Filename, Communities.Name, Communities.CommunityHomeURL" strSQL = strSQL & " FROM Communities" strSQL = strSQL & " WHERE Communities.CustomerID = '" & Session("CustomerID") & "'" strSQL = strSQL & " AND Communities.CommunityStatus = 1" strSQL = strSQL & " ORDER BY Communities.Name ASC" Set rs = conn.Execute(strSQL) ' Communities I Own Header Response.Write "
links to communities I own
(click 'edit' to change your community settings)

" If rs.EOF Then ' Not a member of any communities rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.Close ' Close open connection Response.Write "You do not own a community. Why not buy one?" Else ' Display owner communities Response.Write "" Do While NOT rs.EOF ' At least 1 Community Membership If UCase(rs.Fields ("CommunityHomeURL")) <> "" Then Response.Write "" Response.Write "" Else If UCase(rs.Fields ("Filename")) <> "NA" Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If End If rs.MoveNext Loop rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.Close ' Close open connection Response.Write "
" Response.Write "" Response.Write "·" & rs.Fields ("Name") & "" Response.Write "" Response.Write "" Response.Write "  [ Edit ]
" Response.Write "
" Response.Write "" Response.Write "·" & rs.Fields ("Name") & "" Response.Write "" Response.Write "" Response.Write "  [ Edit ]
" Response.Write "
" Response.Write "" Response.Write "·" & rs.Fields ("Name") & "
" Response.Write "		" Response.Write "  [ Edit ]
" 'Response.Write "  [ Edit ]
" Response.Write "
" End If Response.Write "
more..." Response.Write "" Response.Write "" %>
<% 'Communities I've Joined conn.Open connstr ' Open database connection strSQL = "SELECT Top 10 Communities.CommName, Communities.Filename, Communities.Name, Communities.CommunityHomeURL" strSQL = strSQL & " FROM Communities" strSQL = strSQL & " INNER JOIN CommunityMembers" strSQL = strSQL & " ON Communities.CommunityID = CommunityMembers.CommunityID" strSQL = strSQL & " WHERE CommunityMembers.CustomerID = '" & Session("CustomerID") & "'" strSQL = strSQL & " AND Communities.CustomerID <> '" & Session("CustomerID") & "'" strSQL = strSQL & " AND Communities.CommunityStatus = 1" strSQL = strSQL & " ORDER BY Communities.Name ASC" Set rs = conn.Execute(strSQL) ' Communities I've Joined Header Response.Write "
links to communities I've joined:

" If rs.EOF Then ' Not a member of any communities rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.Close ' Close open connection Response.Write "You have no community memberships. Why not join a community?" Else Do While NOT rs.EOF ' At least 1 Community Membership If UCase(rs.Fields ("CommunityHomeURL")) <> "" Then Response.Write "·" & rs.Fields ("Name") & "
" Else If UCase(rs.Fields ("Filename")) <> "NA" Then Response.Write "·" & rs.Fields ("Name") & "
" Else Response.Write "·" & rs.Fields ("Name") & "
" End If End If rs.MoveNext Loop rs.Close ' Close recordset Set rs = nothing ' Remove recordset conn.Close ' Close open connection Response.Write "
more..." Response.Write "
" Response.Write "
" End If %>
 

Community Search

Enter keywords to search for a
community to suit your interests:

or click the link below for a full listing
<%'%>
<% Set conn = nothing ' Remove database object %>
<% Else ' Not Logged In %>

You are not logged in.

Sorry, but you have to be logged in and registered to access your personal homepage.

<% End If %>
Terms and Conditions | Privacy Policy
Copyright 1999-2001 GroupInterVisual Ltd. All rights reserved