<%@Language = "VBSCRIPT" %>
   
            


<% Set Dataconn = Server.CreateObject("ADODB.Connection") DataConn.Open "DSN=samik" Set DataCmd = Server.CreateObject("ADODB.Command") DataCmd.CommandText = "SELECT * FROM comments2" Set DataCmd.ActiveConnection = DataConn Set Rs = Server.CreateObject("ADODB.RecordSet") Set Rs = DataCmd.execute %> <% do while not Rs.EOF Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
From:") Response.write("") Response.write(Rs("Name")) Response.write("
E-mail:") Response.write("") Response.write(Rs("E-mail address")) Response.write("
DC Location:") Response.write("") Response.write(Rs("DC")) Response.write("
Posted on:") Response.write("") Response.write(Rs("Date")) Response.write("
Message:") Response.write("") Response.write("") Response.write(Rs("Comments")) Response.write("") Response.write("
") Response.write("

") Rs.moveNext loop If Rs.EOF then %>

That's All !
<% End If %>