<%@ Language=VBScript %> <% Option Explicit Response.Expires = 0 %> <% CreateHTMLHeader "Miracle Database Inc. - Careers", "images/t_careers.gif" %> <% dim Rs dim SQL SQL = "SELECT * FROM Jobs WHERE Active = 1" Set Rs = RahConn.Execute(SQL) If Not Rs.Eof Then%> Immidiate oppenings :

<%While Not Rs.Eof%> <% Rs.MoveNext Wend%>
Job(s)
Description :
<%=Replace(Rs("Description"), VBCr, "
")%>
Title : <%=Rs("Title")%>
<% End If Set Rs = Nothing%> <% SetScope "scope-images/ant.jpg", _ "Ant Nebula (Menzel 3, or Mz 3) " & _ "resembles the head and thorax of a garden-variety ant from ground-based telescopes. This dramatic NASA/ESA " & _ "Hubble Space Telescope image, showing 10 times more detail, reveals the " & _ "body as a pair of fiery lobes protruding from a dying, Sun-like " & _ "star.
" & _ "The nebula is located about 3000 light-years away from us in the Milky Way Galaxy. You can see " & _ "its 1.6 light-years length in the above image!
" & _ "(Source: heritage.stsci.edu)" CreateHTMLFooter %>