|
<% Dim strUID, strPass %>
<% strUID = "" %>
<% strPass = "c5c4" %>
<% Set connCW = Server.CreateObject("ADODB.Connection") %>
<% connCW.Open ="Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & Server.Mappath("/orep/pfc/epsupport/epsupport.mdb") & ";UID=" & strUID &";PWD=" & strPass %>
<% Dim partner, todayDate %>
<% Dim strQuery, rsEA, rsPartner %>
<% Dim intEmailName, intEmailDomain %>
<% todayDate = month(date) & "/" & day(date) & "/" & year(date)%>
<% strQuery = "SELECT * FROM EcosysAdmins ORDER BY EcosysAdmins.lastName ASC" %>
<% SET rsEA = connCW.Execute(strQuery) %>
Ecosystem Administrators
<% DO WHILE NOT rsEA.EOF %>
|
<%=rsEA("firstName") %> <%=rsEA("lastName") %>
|
| Email:
<% IF Instr(rsEA("email"), "@") > 0 THEN
intEmailName = Left(rsEA("email"), Instr(rsEA("email"), "@") - 1)
intEmailDomain = Mid(rsEA("email"), Instr(rsEA("email"), "@") + 1)
%>
<% END IF %> |
<% IF (NOT (rsEA("Office") = "")) AND (NOT (isNull(rsEA("Office")))) THEN %>
|
<% =rsEA("Office") %>
|
<% END IF %>
<% IF (NOT (rsEA("Address1") = "")) AND (NOT (isNull(rsEA("Address1")))) THEN %>
|
<% =rsEA("Address1") %>
|
<% END IF %>
|
<% =rsEA("Address2") %>
|
|
<% =rsEA("CityStateZip") %>
|
|
Phone: <% =rsEA("telephone") %> |
<% If (NOT (rsEA("Fax") = "")) AND (NOT (isNull(rsEA("Fax")))) THEN %>
| Fax: <% =rsEA("Fax") %> |
<% END IF %>
<% IF (NOT (rsEA("Pager") = "")) AND (NOT (isNull(rsEA("Pager")))) THEN %>
| Pager: <% =rsEA("Pager") %> |
<% END IF %>
<% strQuery = "SELECT PartnershipName FROM Partnerships " &_
"WHERE Partnerships.EAnum = " & rsEA("eaNum") & " " &_
"ORDER BY Partnerships.PartnershipName ASC"
SET rsPartner = connCW.Execute(strQuery)
%>
| Partnerships represented: |
<% DO WHILE NOT rsPartner.EOF %>
| <%=rsPartner("PartnershipName")%> |
<% rsPartner.MoveNext
LOOP
rsPartner.Close
SET rsPartner = Nothing %>
<% rsEA.MoveNext
LOOP
%>
<% rsEA.close
SET rsEA = Nothing %> |
<% Dim strUser, strPWD %>
<% strUser = "" %>
<% strPWD = "daffy" %>
<% Set connSL = Server.CreateObject("ADODB.Connection") %>
<% connSL.Open ="Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & Server.Mappath("/orep/lists/orepstaff.mdb") & ";UID=" & strUser &";PWD=" & strPWD %>
<% Dim strQuery2, rsStaff %>
<% strQuery2 = "SELECT * FROM tblStaffProgramsJoin INNER JOIN tblStaff ON tblStaffProgramsJoin.recordID = tblStaff.recordID WHERE (((tblStaffProgramsJoin.programID)=1)) AND tblStaff.recordID NOT IN (SELECT tblStaff.recordID FROM tblStaffProgramsJoin INNER JOIN tblStaff ON tblStaffProgramsJoin.recordID = tblStaff.recordID WHERE tblStaffProgramsJoin.programID=10) ORDER BY tblStaff.listOrder, tblStaff.lastName" %>
<% 'strQuery2 = "SELECT * FROM tblStaff WHERE officeSection = 3 AND city = 'Springfield' And left(positionTitle,24) <> 'Ecosystems Administrator' ORDER BY listOrder, lastName ASC" %>
<% Set rsStaff = connSL.Execute(strQuery2) %>
Springfield Staff
<% Do While Not rsStaff.EOF %>
| <%=rsStaff("firstName") %> <%=rsStaff("lastName") %> |
| <%=rsStaff("caption") %> |
| Email: |
<% If (Not (rsStaff("addressLine1") = "")) And (Not (isNull(rsStaff("addressLine1")))) Then %>
| <%=rsStaff("addressLine1")%> |
<% End If %>
<% If (Not (rsStaff("addressLine2") = "")) And (Not (isNull(rsStaff("addressLine2")))) Then %>
| <%=rsStaff("addressLine2")%> |
<% End If %>
| <%=rsStaff("City")%> <%=rsStaff("state")%> <%=rsStaff("zipCode")%> |
| Phone: <%=rsStaff("mainPhone")%> |
<% If (Not (rsStaff("faxNumber") = "")) And (Not (isNull(rsStaff("faxNumber")))) Then %>
| Fax: <%=rsStaff("faxNumber")%> |
<% End If %>
<% rsStaff.MoveNext
Loop
%>
<% rsStaff.close
Set rsStaff = Nothing %> |
