strQuery = "SELECT * FROM user" Set rs = adoDataConn.Execute(strQuery) If Not rs.BOF Then %> <TABLE> <TR> <TD<b>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 %>