<% SET CONNECTION = Server.CreateObject("ADODB.Connection") Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\websites\ck3a1367\HealthLink.mdb;" SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Physicians' ;" Set RS1 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Nurses' ;" Set RS2 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Dentists' ;" Set RS3 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Dental Hygienists' ;" Set RS4 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Dental Support' ;" Set RS5 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Clinical Support' ;" Set RS6 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Administrative Support' ;" Set RS7 = Connection.Execute(SQLStmt) SQLStmt = "select tblVolunteers.* " SQLStmt = SQLStmt & "FROM tblVolunteers " SQLStmt = SQLStmt & "WHERE category = 'Facilities Support' ;" Set RS8 = Connection.Execute(SQLStmt) %> Current Volunteers ::

In 2006, the following people generously donated their time, skills and expertise to HealthLink. Please consider joining them.

Physicians
<% CurrentRecord = 0 Do While CheckRS(RS1) response.write RS1("firstname") & " " & RS1("lastname") if RS1("title")<>"" then response.write ", " & RS1("title") & "
" else response.write "
" end if RS1.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Nurses
<% CurrentRecord = 0 Do While CheckRS(RS2) response.write RS2("firstname") & " " & RS2("lastname") if RS2("title")<>"" then response.write ", " & RS2("title") & "
" else response.write "
" end if RS2.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Dentists
<% CurrentRecord = 0 Do While CheckRS(RS3) response.write RS3("firstname") & " " & RS3("lastname") if RS3("title")<>"" then response.write ", " & RS3("title") & "
" else response.write "
" end if RS3.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Dental Hygienists
<% CurrentRecord = 0 Do While CheckRS(RS4) response.write RS4("firstname") & " " & RS4("lastname") if RS4("title")<>"" then response.write ", " & RS4("title") & "
" else response.write "
" end if RS4.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Dental Support
<% CurrentRecord = 0 Do While CheckRS(RS5) response.write RS5("firstname") & " " & RS5("lastname") if RS5("title")<>"" then response.write ", " & RS5("title") & "
" else response.write "
" end if RS5.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Clinical Support
<% CurrentRecord = 0 Do While CheckRS(RS6) response.write RS6("firstname") & " " & RS6("lastname") if RS6("title")<>"" then response.write ", " & RS6("title") & "
" else response.write "
" end if RS6.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Administrative Support
<% CurrentRecord = 0 Do While CheckRS(RS7) response.write RS7("firstname") & " " & RS7("lastname") if RS7("title")<>"" then response.write ", " & RS7("title") & "
" else response.write "
" end if RS7.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Facilities Support
<% CurrentRecord = 0 Do While CheckRS(RS8) response.write RS8("firstname") & " " & RS8("lastname") if RS8("title")<>"" then response.write ", " & RS8("title") & "
" else response.write "
" end if RS8.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>

HealthLink Medical Center values all of its donors and volunteers. Any omissions from this list are purely unintentional. Please feel free to contact us if your name was not listed or if it was listed incorrectly. Thank you for your understanding.

<% rs1.Close Set rs1 = Nothing rs2.Close Set rs2 = Nothing rs3.Close Set rs3 = Nothing rs4.Close Set rs4 = Nothing rs5.Close Set rs5 = Nothing rs6.Close Set rs6 = Nothing rs7.Close Set rs7 = Nothing rs8.Close Set rs8 = Nothing Connection.Close set connection = nothing %>