<% On Error Resume Next optionbttn = Request.QueryString("rd_bbtn") Dim Conn, rsRecords, per_better, per_same, per_worse, per_noOpinion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("rohitpm") Set rsRecords = Conn.Execute("Select id, subject, author from articles") %> Back

<% WHILE rsRecords.EOF = FALSE%> <% rsRecords.MoveNext WEND%>

><%=rsRecords(1)%> by <%=rsRecords(2)%>

<% rsRecords.Close Conn.Close %>