Physicians Directory

<% clsQuery.strConn = strConn %> Physicians Directory <%=AdminNav()%>

<%If Request("ID") = "" Then%>

Our reputation of quality comes from the skills of the surgeons performing surgery at VASC, the professionalism of our staff, the modern equipment and our commitment to personalized care.

Over 165 area surgeons and doctors are on the VASC Medical Staff. VASC has physicians specializing in many different areas. Please enter your criteria in the space provided below.

<%End If%>

<% If Request("ID") = "" AND Request("Keyword") = "" AND Request("NameSearch") = "" AND Request("SpecialtySearch") = "" Then clsQuery.sql = "SELECT * FROM VASC_SPECIALTIES ORDER BY NAME" clsQuery.runAQuery If IsArray(clsQuery.recordArray) Then %> <% For i = 0 to UBound(clsQuery.recordArray,2) If i mod 3 = 0 Then %> <% End If %> <% Next %>

Search By Specialty:
<%=clsQuery.recordArray(1,i)%><%=EditSpecialties(clsQuery.recordArray(0,i))%>

<% Else %>

No records were found.

<% End If %>

Alphabetical Index:

<% Dim strAlpha strAlpha = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" arrAlpha = Split(strAlpha,",") For i = 0 to UBound(arrAlpha) If Len(Request("NameSearch")) > 0 AND Instr(arrAlpha(i), Request("NameSearch")) Then%> <%=arrAlpha(i)%><% Else%> <%=arrAlpha(i)%> <% End IF Next %>

<% End If If Request("NameSearch") <> "" Then clsQuery.sql = "SELECT VASC_PHYSICIANS.ID, LASTNAME, FIRSTNAME, MIDDLENAME, TITLE, VASC_SPECIALTIES.NAME, LASTNAME FROM VASC_PHYSICIANS, VASC_SPECIALTIES " &_ "WHERE VASC_PHYSICIANS.SPECIALTYID = VASC_SPECIALTIES.ID AND LASTNAME LIKE '" & _ left(Request("NameSearch"),8) & "%'" &_ " ORDER BY LASTNAME" clsQuery.runAQuery If IsArray( clsQuery.recordArray ) Then %>

<% strOutput = clsQuery.recordArray(1,i) & ", " & Trim(clsQuery.recordArray(2,i)) If clsQuery.recordArray(3,i) <> "" Then strOutput = strOutput & " " & clsQuery.recordArray(3,i) End If strOutput = strOutput & ", " & clsQuery.recordArray(4,i) & " -" & clsQuery.recordArray(5,i) %><%=strOutput%> <%=EditPhysician( clsQuery.recordArray(0,i) )%>

<% Else %>

No records were found.

<% End If End If %> <% If Request("SpecialtySearch") <> "" Then clsQuery.sql = "SELECT VASC_PHYSICIANS.ID, LASTNAME, FIRSTNAME, MIDDLENAME, TITLE, VASC_SPECIALTIES.NAME, LASTNAME FROM VASC_PHYSICIANS, VASC_SPECIALTIES " &_ "WHERE VASC_PHYSICIANS.SPECIALTYID = VASC_SPECIALTIES.ID AND VASC_PHYSICIANS.SPECIALTYID=" & int(Request("SpecialtySearch")) &_ " ORDER BY LASTNAME" clsQuery.runAQuery If IsArray( clsQuery.recordArray ) Then %>

<% strOutput = clsQuery.recordArray(1,i) & ", " & Trim(clsQuery.recordArray(2,i)) If clsQuery.recordArray(3,i) <> "" Then strOutput = strOutput & " " & clsQuery.recordArray(3,i) End If strOutput = strOutput & ", " & clsQuery.recordArray(4,i) & " -" & clsQuery.recordArray(5,i) %><%=strOutput%> <%'=clsQuery.recordArray(1,i) & ", " & clsQuery.recordArray(2,i) & " " & clsQuery.recordArray(3,i) & ", " & clsQuery.recordArray(4,i)%> <%=EditPhysician( clsQuery.recordArray(0,i) )%>

<% Else %>

No records were found.

<% End If End If If Request("Keyword") <> "" Then strKeywords = Replace(Trim(Replace(Request("Keyword"),",", "%"))," ", "%") strKeywords = left(strKeywords,10) clsQuery.sql = "select * from KewordSearchable " & _ "WHERE ( ID IN (SELECT PHYSICIANID FROM VASC_PHYSICIANLOCATIONS WHERE CITY LIKE '%" & strKeywords & "%') OR NAME LIKE '%" & strKeywords & "%' OR LASTNAME LIKE '%" & strKeywords & "%' OR FIRSTNAME LIKE '%" & strKeywords & "%' OR FULLNAME LIKE '%" & strKeywords & "%' OR FULLNAME2 LIKE '%" & strKeywords & "%') ORDER BY LASTNAME " clsQuery.runAQuery If IsArray( clsQuery.recordArray ) Then %>

<% strOutput = clsQuery.recordArray(1,i) & ", " & Trim(clsQuery.recordArray(2,i)) If clsQuery.recordArray(3,i) <> "" Then strOutput = strOutput & " " & clsQuery.recordArray(3,i) End If strOutput = strOutput & ", " & clsQuery.recordArray(4,i) & " -" & clsQuery.recordArray(5,i) %> <%=Highlight(strOutput, Request("Keyword"), "", "")%> <%=EditPhysician(clsQuery.recordArray(0,i))%>

<% Else %>

No records were found.

<% End If End If %> <% If Request("ID") <> "" Then clsQuery.sql = "SELECT VASC_PHYSICIANS.*, VASC_SPECIALTIES.NAME FROM VASC_PHYSICIANS, VASC_SPECIALTIES " &_ "WHERE VASC_PHYSICIANS.SPECIALTYID = VASC_SPECIALTIES.ID AND VASC_PHYSICIANS.ID=" & int(Request("ID")) &_ " ORDER BY LASTNAME" clsQuery.runAQuery If IsArray( clsQuery.recordArray ) Then arrPhysician = clsQuery.recordArray %> <%If Len(arrPhysician(5,0)) > 0 Then %>

<%=EditPhysician( Request("ID") )%> <%Else%> <%=EditPhysician( Request("ID") )%> <%End If%>

<%=arrPhysician(1,0) & ", " & arrPhysician(2,0) & "" & arrPhysician(3,0) & ", " & arrPhysician(4,0)%>
<%=arrPhysician(22,0)%> Specialist

<%If IsArray(arrPhysician) Then%> <% clsQuery.sql = "SELECT * FROM VASC_PHYSICIANLOCATIONS WHERE PHYSICIANID=" & Request("ID") & " ORDER BY DISPLAYORDER" clsQuery.runAQuery If IsArray(clsQuery.recordArray) Then %> <%End If%> <%If arrPhysician(6,0) <> "" Then%> <%End If%> <%If arrPhysician(7,0) <> "" Then%> <%End If%> <%If arrPhysician(9,0) <> "" Then%> <%End If%> <%If arrPhysician(10,0) <> "" Then%> <%End If%> <%If arrPhysician(11,0) <> "" Then%> <%End If%> <%If arrPhysician(12,0) <> "" Then%> <%End If%> <%If arrPhysician(13,0) <> "" Then%> <%End If%> <%If arrPhysician(14,0) <> "" Then%> <%End If%> <%If arrPhysician(15,0) <> "" Then%> <%End If%> <%If arrPhysician(16,0) <> "" Then%> <%End If%> <%If arrPhysician(17,0) <> "" Then%> <%End If%> <%If arrPhysician(18,0) <> "" Then%> <%End If%> <%If arrPhysician(19,0) <> "" Then%> <%End If%> <%If arrPhysician(20,0) <> "" Then%> <%End If%> <%If arrPhysician(21,0) <> "" Then%> <%End If%>

Location(s):	<% arrLoc = clsQuery.recordArray For i = 0 to Ubound(arrLoc,2) strAddress = arrLoc(5,i) & " " & _ arrLoc(6,i) & ", " & arrLoc(7,i) & " " & arrLoc(8,i) & " " & _ "(" & arrLoc(2,i) & ") " & arrLoc(3,i) If arrLoc(4,i) <> "" Then strAddress = strAddress & " Ext: " & arrLoc(4,i) & " " Else strAddress = strAddress & " " End If %> <%=strAddress%> <%Next%>
Website:	<%=arrPhysician(6,0)%>
Email:	<%=arrPhysician(7,0)%>
Undergraduate:	<%=arrPhysician(9,0)%>
Residencies:	<%=arrPhysician(11,0)%>
College:	<%=arrPhysician(12,0)%>
Medical School:	<%=arrPhysician(13,0)%>
Internship:	<%=arrPhysician(14,0)%>
Residency:	<%=arrPhysician(15,0)%>
Military Service:	<%=arrPhysician(16,0)%>
Past Positions:	<%=arrPhysician(17,0)%>
Current Positions:	<%=arrPhysician(18,0)%>
Board Status:	<%=arrPhysician(19,0)%>
Member Of:	<%=arrPhysician(20,0)%>
Personal:	<%=arrPhysician(21,0)%>

<% End If End If End If %>