<%@ Language=VBScript %> JAY AR Solutons's Current Openings
Send your CVs to jayarsolutions@gmail.com
Back <% Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Open "Data Source=" + Server.MapPath("Openings.mdb") + "; Jet OLEDB:Database Password=pvmohank" rs.Open "select * from OpenTable order by CDT DESC",cn while not rs.EOF Response.Write("

---

") Response.Write("") Response.Write("

") Response.Write(" " & rs(1) & " ") Response.Write("
") Response.Write("Number of Openings	" & cstr(rs(2))) Response.Write("
") Response.Write("Qualification	" & rs(3)) Response.Write("
") Response.Write("Experience	" & rs(4)) Response.Write("
") Response.Write("Role	" & rs(5)) Response.Write("
") Response.Write("Responsibilities	" & rs(6)) Response.Write("
") Response.Write("Opening Date	" & cstr(rs(7))) Response.Write("
") Response.Write("Closing Date	" & cstr(rs(8))) Response.Write("

") rs.MoveNext() wend rs.Close() cn.Close() %>