<!--ติดต่อฐานข้อมูล-->
<%Set conn =
Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft
Access Driver
(*.mdb)};DBQ="&Server.mappath("guestbook.mdb")
Set rs = Server.CreateObject
("ADODB.Recordset")
rs.Open "Guest",conn
Do While Not rs.EOF%>
<!--จบการติดต่อฐานข้อมูล-->
<!--แสดงข้อความทั้งหมดใน
GuestBook-->
<table width="90%"
border="1">
<tr bgcolor="eeeeee">
<td><%=rs("GNote")%>
</td>
</tr>
<tr align="right"
bgcolor="cccccc">
<td>จากคุณ
<%=rs("GName")%>
อีเมล <%=rs("GEmail")%>
วันที่ <%=rs("GDate")%></td>
</tr>
</table><br>
<%rs.MoveNext
Loop
rs.Close
conn.Close%>
<!--จบการแสดงข้อความทั้งหมดใน
GuestBook-->
<!--ฟอร์มรับข้อความ-->
<hr>
<form action="addguest.asp"
method="post">
<table width="90%"
border="0">
<tr>
<td
width="10%">
ชื่อ
:</td>
<td
width="90%">
<input type="text"
name="name"></td>
</tr>
<tr>
<td>
อีเมล
:</td>
<td>
<input type="text"
name="email">
</td>
</tr>
<tr>
<td>ข้อความ
:</td>
<td> <textarea
name="note">
</textarea>
<input
type="submit" name="Submit"
value="Submit">
</td>
</tr>
</table>
</form>
<!--จบฟอร์มรับข้อความ-->
|