%@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(" From:")
Response.write(" | ")
Response.write(Rs("Name"))
Response.write(" |
")
Response.write("")
Response.write(" E-mail:")
Response.write(" | ")
Response.write(Rs("E-mail address"))
Response.write(" |
")
Response.write("")
Response.write(" DC Location:")
Response.write(" | ")
Response.write(Rs("DC"))
Response.write(" |
")
Response.write("")
Response.write(" Posted on:")
Response.write(" | ")
Response.write(Rs("Date"))
Response.write(" |
")
Response.write("")
Response.write(" Message:")
Response.write(" | ")
Response.write("")
Response.write(Rs("Comments"))
Response.write("")
Response.write(" |
")
Response.write("
")
Response.write("")
Rs.moveNext
loop
If Rs.EOF then
%>
That's All !
<%
End If
%>