<% set cons=server.CreateObject("ADODB.Connection") cons.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\unni.mdb") & ";Persist Security Info=False" set rs=server.CreateObject("ADODB.recordset") rs.Open "Select * from fansletter where accept='Y'order by date desc ", cons,3,1 If rs.EOF Then Response.Write("No Recors Found") else iRecCount = rs.RecordCount Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" intTemp = 0 while not rs.EOF and intTemp" 'Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'numOfRec=numOfRec + 1 intTemp = intTemp + 1 rs.MoveNext Wend end if Response.Write "

Subject
Posted Date
Edit Subject :"&rs("subject")&"
Message:"&rs("message")&"
" %>