<%@LANGUAGE="VBSCRIPT"%> <% set rsPhysician = Server.CreateObject("ADODB.Recordset") rsPhysician.ActiveConnection = "dsn=hmgpc_db;uid=joe;pwd=logan;" rsPhysician.Source = "SELECT * FROM tblDoctorInfo WHERE DoctorID = " + Request.QueryString("DoctorID") rsPhysician.CursorType = 0 rsPhysician.CursorLocation = 2 rsPhysician.LockType = 3 rsPhysician.Open rsPhysician_numRows = 0 %> Huntington Medical Group PC.com










<%=(rsPhysician.Fields.Item("FirstName").Value & " " & rsPhysician.Fields.Item("MiddleInitial").Value & " " & rsPhysician.Fields.Item("LastName").Value & ", " & rsPhysician.Fields.Item("Credentials").Value)%>

" align="left" vspace="5" hspace="5">Huntington Medical Group, P.C.
180 East Pulaski Road
Huntington Station, NY 11746
<%=(rsPhysician.Fields.Item("PhoneNumber").Value)%>

SPECIALTY

<%=(rsPhysician.Fields.Item("Specialty").Value)%>

<%=(rsPhysician.Fields.Item("Content").Value)%>

 

<% Dim strNext, strPrevious, strMatch strNext = "1" strPrevious = "0" strMatch = "No" set rsSpecialty = Server.CreateObject("ADODB.Recordset") rsSpecialty.ActiveConnection = "dsn=hmgpc_db;uid=joe;pwd=logan;" rsSpecialty.Source = "SELECT * FROM tblDoctorInfo WHERE Specialty = '" + rsPhysician.Fields.Item("Specialty").Value + "' ORDER BY LastName ASC" rsSpecialty.CursorType = 0 rsSpecialty.CursorLocation = 2 rsSpecialty.LockType = 3 rsSpecialty.Open rsSpecialty_numRows = 0 %><% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rsSpecialty_numRows = rsSpecialty_numRows + Repeat3__numRows %><% While ((Repeat3__numRows <> 0) AND (NOT rsSpecialty.EOF)) %> <% If strNext = "1" Then If strMatch = "Yes" Then strNext = "view_physician.asp?DoctorID=" & rsSpecialty.Fields.Item("DoctorID").Value Else If rsSpecialty.Fields.Item("DoctorID").Value = rsPhysician.Fields.Item("DoctorID").Value Then strMatch = "Yes" Else strPrevious = "view_physician.asp?DoctorID=" & rsSpecialty.Fields.Item("DoctorID").Value End If End If End If %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsSpecialty.MoveNext() Wend %><% If strMatch = "Yes" Then If strPrevious = "0" Then strPrevious = "physicians.htm" End If If strNext = "1" Then strNext = "physicians.htm" End If End If %>

<<See Previous Physician  |   Return to Physicians Directory  |  See Next Physician>>

 



180 East Pulaski Road, Huntington Station, New York 11746
Phone: (631) 425-2121   Fax: (631) 425-2193

If you need information about our services, please call us at the phone number above.

All information and content © 1997 – 2007 Huntington Medical Group, P.C. All rights reserved.