%
PageHeader = "
" & _
"" & _
" | " & _
"
" & _
" " & _
" |
"
%>
<%
sqltext = "SELECT * FROM Careers ORDER BY Title"
rs.open sqltext,conn
if not rs.bof then
Do While not rs.eof
Description = trim(rs("Description"))
if Description <> "" then Description = replace(Description,vbCrLf,"
")
PageData = PageData & "Title: " & trim(rs("Title")) & "
" & _
"Description: " & Description & "
"
rs.MoveNext
Loop
else
PageData = "We thank you for your interest, but we currently have no positions available. Please check back shortly"
end if
rs.close
conn.close
%>
Morris Pickering & Sanner Law Firm, Litigation Attorneys at Law
<%= PageData %>