Super Rupair - Employment

<%@ LANGUAGE="VBSCRIPT" %> <% Call HeaderEmp() Call LeftNav() Call MainContent() Call Footer() %> <%Function HeaderEmp()%> Super Rupair - Employment


	All we do is Subaru!

<%End Function%> <%Function MainContent()%>

<%'****Open connection object if Access Database Set objConn = Server.CreateObject("ADODB.Connection") Set objRec = Server.CreateObject("ADODB.Recordset") objConn.Open "DSN=superrepair;UID=super;pwd=rpr101spr" SQL = "Select * from Employment where Active = -1" '****Open recordset object set objRec = objConn.Execute(SQL) i=0 While Not objRec.EOF%>

Job Positions Available:

Position Title:	<%=objRec("Title")%>
Date Posted:	<%=objRec("DatePost")%>
Skills Required:	<%=objRec("RequiredSkills")%>
Details:	<%=objRec("Details")%><%=objRec("Details2")%>
To apply for this position, please call Super Rupair at 303-442-6508.

<% i=i+1 objRec.MoveNext wend If i=0 Then%> Job Positions Available:

We are not hiring at this time. <%End If '***Close database connection to save resources. objRec.Close objRec.ActiveConnection = Nothing Set objRec = Nothing objConn.close End Function%>