<% On Error Resume Next 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, date from master_messages") %>
Back
<% WHILE rsRecords.EOF = FALSE%>
><%=rsRecords(1)%>
on <%=rsRecords(2)%>
<% rsRecords.MoveNext WEND%>
<% rsRecords.Close Conn.Close %>
><%=rsRecords(1)%> on <%=rsRecords(2)%>