%Option Explicit
Response.Buffer = True
Dim sDataPath
Dim strPath
Dim sMailPath
Dim objRst
Dim strSQL
Dim x
%>
<%
Sub NewsItem
'Setup SQL
strSQL = ("Select * From News Order By dDate Desc")
'Open Recordset
If DB_GetRS(objRst, strSQL) = 1 Then
if not objRst.EOF then
x = 1
do while not objRst.EOF
Response.Write "
"
if x = 3 then exit do
x = x + 1
objRst.movenext
Loop
else
'Response.Write "
There are no current Press Releases.
"
end if
objRst.Close
else
Response.Write "
There has been a problem accessing the Press Release Database.
"
end if
end sub
%>
P.E.T. Scan Arizona: Leading Provider of Positron Emission Tomography
Positron Emission Tomography (PET) has rapidly
become the most significant advancement in Radiology since MRI.
PET
is used for diagnosis and management of cancer, neurological disorders
and evaluation of the heart muscle after a heart attack, and is
able to generate 3 dimensional images of the whole body.
Our web site is designed to make it easy to use
our services and keep abreast of this dynamic technology.