<% Dim cnDB ' As ADODB.Connection CheckSecurity Set cnDB = OpenDB() Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim strTitle ' As String Dim i DIM lngAccountID lngAccountID = Request.Cookies("mynetwork")("AID") strSQL = "SELECT tblContacts.*, tblOpportunities.* FROM tblContacts " _ & "INNER JOIN tblOpportunities ON tblContacts.pkContactID = tblOpportunities.pkContactID " _ & "WHERE ((tblContacts.pkAccountID)=" & lngAccountID & ") " _ & "ORDER BY ClientName" Set rsData = cnDB.Execute(strSQL) WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" Do Until rsData.EOF '''''''''''''''''''''''''''''''''''''''''''''' ' Alternates row colors. In the future use ' Mod 2 for this task. ' ''''''''''''''''''''''''''''''''''''''''''''''' i = i + 1 If Round((i / 2),0) = (i / 2) Then WL "" Else WL "" End If WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" rsData.MoveNext Loop rsData.Close Set rsData = Nothing CloseDB cnDB ' close database connections PrintFooter %>

Opportunities " WL "New Opportunity
Status	Client Name	Position	Res.	Rate	Location	Notes
" & rsData("Status") & "	" & rsData("ClientName") & "	" & rsData("Position") & "	" & rsData("ResumeSent") & "	" & rsData("Rate") & "	" & rsData("Location") & "	" & rsData("Notes") & "	" _ & "" WL "