<% dim adoCnCheck dim strSQLCheck set adoCnCheck = Server.CreateObject("ADODB.Connection") adoCnCheck.Open strConn dim adoRsCheck set adoRsCheck = Server.CreateObject("ADODB.Recordset") strSQLCheck = "Select * From Login order by LoginID Desc" adoRsCheck.Open strSQLCheck, adoCn, 3, 1, &H0001 %>