 |
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
<%
If Session("UserID") = "" Then
%> <%
Else
response.write "![]() "
End If
%> |
 |
 |
 |
|
 |
 |
|
 |
<%
If Session("UserID") = "" Then
%>
 <%
Else
response.write "![]() "
End If
%> |
 |
 |
 |
 |
 |
 |
 |
 |
|
|
|
Group Details
|
Owner/Supervisor
|
Leadership Structure
|
Expected commitment
|
Size
|
Start Date
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr ' Open database connection
strSQL = "SELECT Groups.GroupID, Groups.OwnerID, Groups.Name, Groups.Description,"
strSQL = strSQL & " Groups.LongDescription, Groups.LeadershipStructure,"
strSQL = strSQL & " Groups.Committment, Groups.Payment, Groups.MinSize,"
strSQL = strSQL & " Groups.MaxSize, Groups.StartDate, Groups.FinishDate,"
strSQL = strSQL & " Customers.Title, Customers.FirstName, Customers.LastName,"
strSQL = strSQL & " RegisterInterest.Profession, RegisterInterest.Orientation"
strSQL = strSQL & " FROM (Customers INNER JOIN RegisterInterest ON Customers.CustomerID"
strSQL = strSQL & "=RegisterInterest.GivCustomerID) INNER JOIN Groups ON"
strSQL = strSQL & " RegisterInterest.UserID =Groups.OwnerID WHERE Groups.GroupStatus = 1"
'response.write strSQL
Set rs = conn.Execute(strSQL)
' 6/ if there's no record corresponding to the username
' supplied, then bounceback to login calling an arror message
' based on data in the QS to reflect that fact
If rs.eof Then
response.write "NO GROUPS | "
End If
strCount = 1
Do While Not rs.eof
%>
|
|
|
|
|
<% response.write rs(5) %>
|
<%= rs(6) %> |
<% response.write rs(8) & " - " & rs(9)%>
|
<%=rs(10)%>
|
|
<%=rs(4)%> |
<%
strCount = strCount + 1
rs.movenext
loop
'
Set rs = nothing ' Close recordset
%>
|
| |
|
