<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connTownsend.asp" -->
<%
Dim rs_Comment
Dim rs_Comment_cmd
Dim rs_Comment_numRows
Set rs_Comment_cmd = Server.CreateObject ("ADODB.Command")
rs_Comment_cmd.ActiveConnection = MM_connTownsend_STRING
rs_Comment_cmd.CommandText = "SELECT * FROM COMMENTS ORDER BY LAST_NAME ASC"
rs_Comment_cmd.Prepared = true
Set rs_Comment = rs_Comment_cmd.Execute
rs_Comment_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rs_Comment_numRows = rs_Comment_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Cafe Townsend Intranet : Comments</title>
<link href="assets/cafetownsend.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#000000">
<center>
<table id="main" border="0" cellpadding="0" cellspacing="0" width="700">
<tbody><tr>
<td><a href="http://macronet/imd/production/multimedia/cafe_townsend/index.html"><img src="assets/header.jpg" border="0"></a></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td background="assets/body_main_header.gif" class="main"> <span class="headertext">Cafe Townsend Intranet</span></td>
</tr>
</tbody>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="700">
<tbody><tr>
<td width="560" align="center" valign="top" bgcolor="#f7eedf">
<center>
<br><table width="600" border="0" cellpadding="4" cellspacing="0" style="border: 1px solid rgb(153, 51, 0);">
<tr>
<td bgcolor="#ffffff">
<p class="italicsbold">Costumer Comments</p>
<table width="100%" border="1" cellspacing="2" cellpadding="2" summary="This table lists all of the comments that visitors to this site have entered into the database.">
<tr>
<th scope="col"><strong>First Name</strong></th>
<th scope="col"><strong>Last Name</strong></th>
<th scope="col"><strong>E-mail</strong></th>
<th scope="col"><strong>Comments</strong></th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_Comment.EOF))
%>
<tr>
<td><%=(rs_Comment.Fields.Item("FIRST_NAME").Value)%></td>
<td><%=(rs_Comment.Fields.Item("LAST_NAME").Value)%></td>
<td><%=(rs_Comment.Fields.Item("EMAIL").Value)%></td>
<td><%=(rs_Comment.Fields.Item("COMMENTS").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_Comment.MoveNext()
Wend
%>
</table>
<p> </p></td>
</tr>
</table>
<br></center>
</td>
</tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" width="700">
<tbody><tr>
<td><img src="assets/body_main_footer.gif" height="25" width="700"></td>
</tr>
</tbody></table>
</center>
</body>
</html>
<%
rs_Comment.Close()
Set rs_Comment = Nothing
%>
