%Dim cn,stm,ID,rqst,sql_stm,i,rs,rs1,j,slct_stm dbPath = Server.MapPath( "quedata.mdb") connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" SET conn = Server.CreateObject( "ADODB.Connection") conn.Open connString + dbPath 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open Application("dsn") 'Set cn = Server.CreateObject("ADODB.Connection") set rsdet=Server.CreateObject("ADODB.recordset") rqst=request.querystring("id") slct_stm="select * from Information where " slct_stm =slct_stm & "Information.Area ='" & rqst & "' order by Org_ID" 'response.write slct_stm rsdet.open slct_stm,Conn,1 if not ((rsdet.bof) and (rsdet.eof)) then rsdet.movefirst i=0%>