%@ Language=VBScript %> <% dim objConn3 Set objConn3 = CreateObject("ADODB.Connection") objConn3.Open strConnect %>
<% Dim objRS3 Set objRS3 = CreateObject("ADODB.Recordset") Dim strSQL3 strSQL3 = "SELECT * FROM comments WHERE uid > 1 ORDER BY date2 DESC" objRS3.Open strSQL3, objConn3, 3,3 %> <% DO WHILE NOT objRS3.EOF response.write "
|