View Guest Book

<%@ Language=VBScript CODEPAGE="874"%> <%response.buffer = true%> View Guest Book <% Dim rs Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("/db/product.mdb") conn.CursorLocation = 3 Set rs = Server.CreateObject ("ADODB.Recordset") rs.CursorType = 3 SQL="select * from guest" %>

<% rs.Open SQL,conn,1,3 on error resume next rs.movefirst do while not rs.eof count=count + 1 %>

<% detail=urldecode(rs("comment")) response.write replace(detail,vbCrLf,"
") %>
จากคุณ : <%=rs("name")%> E-mail : <%=rs("email")%> วันที่ : <%=rs("date_add")%>

<% rs.movenext loop rs.Close conn.close Set rs=nothing %>