%
set con = server.CreateObject("ADODB.Connection")
'con.open "DRIVER={Mysql}; Server=209.62.87.247; Database=peoplesdb; UID=peoplesgdb; PWD=abc123$it;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select top 10 * from jobpost order by sno desc", con
rs.pagesize = 10
%>
<%
dim recordcount
recordcount = 0
if not rs.eof then
do while ((not rs.eof) And (recordcount < rs.pagesize))
sno=rs("sno")
code = rs("jobcode")
unit = rs("unitname")
post = rs("post")
skill = rs("Skills")
expe = rs("experience")
openingdate = rs("openingdate")
%>