S N S --- ProfileWeb Login
<%
dim Conn, Rsuser, sql
Set Conn=server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\imran\2001\saudinaval\Green_new\master.mdb;"
Set Rsuser=server.CreateObject("ADODB.Recordset")
sql="select * from vacancy order by position DESC"
Rsuser.Open sql,conn,1,2
%>