<% Dim dirfind Dim stritem Dim sql Dim cn Dim rs Dim db Dim MvFac Dim MvEd Dim fs Dim biopdf, bioasp, teapdf, teaasp, respdf, resasp, citpdf, citasp, prapdf, praasp, vitpdf, vitasp dirfind=request.querystring("dirfind") Set cn = Server.CreateObject("ADODB.Connection") cn.open = "Provider=SQLOLEDB;Server=ss2.nycc.edu;database=HumanRes;network=DBMSSOCN;uid=nyccweb_datareader;pwd=W3bR3@d;" sql = "SELECT * FROM View_WebFacList WHERE dirfind LIKE '"& StripString(dirfind) &"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, adopenstatic if not rs.eof then biopdf = "webdocs/faculty/" & rs("dirfind") & "/bio.pdf" bioasp = "webdocs/faculty/" & rs("dirfind") & "/bio.asp" teapdf = "webdocs/faculty/" & rs("dirfind") & "/teaching.pdf" teaasp = "webdocs/faculty/" & rs("dirfind") & "/teaching.asp" respdf = "webdocs/faculty/" & rs("dirfind") & "/research.pdf" resasp = "webdocs/faculty/" & rs("dirfind") & "/research.asp" citpdf = "webdocs/faculty/" & rs("dirfind") & "/citizenship.pdf" citasp = "webdocs/faculty/" & rs("dirfind") & "/citizenship.asp" prapdf = "webdocs/faculty/" & rs("dirfind") & "/practice.pdf" praasp = "webdocs/faculty/" & rs("dirfind") & "/practice.asp" vitpdf = "webdocs/AcademicAffairs/FacultyCVs/" & rs("dirfind") & ".pdf" vitasp = "webdocs/faculty/" & rs("dirfind") & "/vitae.asp" user = rs("dirfind") MvFac = "" MvEd = "" else response.redirect("/AcademicPrograms_faclist.asp") end if %> Academic Program-Faculty
      Home Finger Lakes School of Acupuncture and Oriental Medicine School of Applied Clinical Nutrition
 
 
Academic Programs

Doctor of Chiropractic

Acupuncture and Oriental Medicine

Applied Clinical Nutrition

Human Anatomy and Physiology Instruction

Clinical Anatomy

Diagnostic Imaging

Bachelor of Professional Studies

Fellowship Program

Research

Library

Faculty


Faculty Directory

 

 



 
NYCC Home :: Academic Programs :: Faculty
Faculty Information

<% Do While Not rs.EOF If rs("FacName") <> MvFac then If rs("WebPic") = "True" Then Response.Write "
" End If %>
 
<% Response.Write "" Response.Write rs("FacName") & "
" Response.Write "
" Response.Write rs("FacTitle") & "

Department: " Response.Write rs("dept") Response.Write "
" Response.Write "
Phone: " Response.Write rs("Phone") Response.Write "
E-mail: " Response.Write "" & rs("email") & "

" Else End If If rs("Ed") <> MvEd then Response.Write "- " & rs("Ed") & "
" Else End If MvFac = rs("Facname") MvEd = rs("Ed") rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>

<% ' ------ Begin Display Faculty Files Where Applicable --------------- Set fs = CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath(vitpdf)))=true Then %> Biosketch
<% elseIf (fs.FileExists(Server.MapPath(bioasp)))=true Then %> - Biosketch

<% end if If (fs.FileExists(Server.MapPath(teapdf)))=true Then %> Teaching
<% elseIf (fs.FileExists(Server.MapPath(teaasp)))=true Then %> - Teaching

<% end if If (fs.FileExists(Server.MapPath(respdf)))=true Then %> Research/Scholarly Activities

<% elseIf (fs.FileExists(Server.MapPath(resasp)))=true Then %> - Research/Scholarly Activities

<% end if If (fs.FileExists(Server.MapPath(citpdf)))=true Then %> Citizenship

<% elseIf (fs.FileExists(Server.MapPath(citasp)))=true Then %> - Citizenship

<% end if If (fs.FileExists(Server.MapPath(prapdf)))=true Then %> Practice/Professional Activities

<% elseIf (fs.FileExists(Server.MapPath(praasp)))=true Then %> - Practice/Professional Activities

<% end if set fs = nothing ' ------ End Display Faculty Files Where Applicable --------------- %>