strQuery = "SELECT * FROM user" Set rs = adoDataConn.Execute(strQuery) If Not rs.BOF Then %> TABLE> TR> TDb>username/b>/TD> TD>b>password/b>/TD> /TR> % Do While Not rs.EOF %> TR> TD>%=rs("username")%>/TD> TD>%=rs("password")%>/TD> /TR> % rs.MoveNext Loop %> /TABLE> % Else Response.Write("Sorry, no data found.") End If
rs.Close adoDataConn.Close Set adoDataConn = Nothing Set rsEmailData = Nothing %>