Heart Center Cardiology at The Heart Center

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim alljobs Dim alljobs_numRows Set alljobs = Server.CreateObject("ADODB.Recordset") alljobs.ActiveConnection = MM_jobs_STRING alljobs.Source = "SELECT id, jobtitle,format(postedon, ""Long Date"") as postedon FROM jobs ORDER BY postedon DESC" alljobs.CursorType = 0 alljobs.CursorLocation = 2 alljobs.LockType = 1 alljobs.Open() alljobs_numRows = 0 Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 alljobs_numRows = alljobs_numRows + Repeat1__numRows %> Heart Center Cardiology at The Heart Center - Bend, OR

<% If alljobs.EOF And alljobs.BOF Then %>

Currently No Job Openings, Please Check Back Later.

<% End If ' end alljobs.EOF And alljobs.BOF %> <% If Not alljobs.EOF Or Not alljobs.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT alljobs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 alljobs.MoveNext() Wend %>

Job Title (click for details)	Date Posted
"><%=(alljobs.Fields.Item("jobtitle").Value)%>	<%=(alljobs.Fields.Item("postedon").Value)%>

<% End If ' end Not alljobs.EOF Or NOT alljobs.BOF %>

PO Box 6419
Bend, OR 97708

The Heart Center, 2nd Floor
2500 NE Neff Road
Bend, OR 97701

(541) 388-4333

<% alljobs.Close() Set alljobs = Nothing %>