<%@ Language=VBScript %> <% Option Explicit %> HK Precision Parts, Inc. - Employment <% 'Get listing from table Dim sSQL Dim objRS sSQL = "SELECT * from tb_JobListing " set objRS = Server.CreateObject("ADODB.RecordSet") objRS.Open sSQL, strConn %>
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.write("") Response.write("") Response.Write("") objRS.moveNext Loop End If objRS.Close set objRS = Nothing %>
Employment <% If not objRS.EOF Then Do while not objRS.eof Response.Write("
  
"&objRS("Job_Title") & "
Level " & objRS("Job_Level") & "
" & objRS("Job_Description") & "
 
 
 
  © HK Precision Parts, Inc. 2039 9th Avenue, Ronkonkoma, New York 11779