Isi Buku Tamu
Ini adalah isi dari komentar - komentar dari buku tamu saya :
| No |
Nama |
Email |
Nilai |
Komentar |
<%
filepath=server.mappath("dbase/bukutamu.html")
set koneksi = server.createobject("ADODB.Connection")
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
myq="select * from buku order by tanggal DESC"
set rs = koneksi.execute(myq)
%>
<% n=1
do while not rs.eof
if n mod 2 = 1 then
bg = "#CCCCCC"
else
bg = "#fffbe8"
end if %>
|
<% response.write n %>
<% n=n+1 %>
|
<% =rs("nama") %>
|
<% =rs("email") %>
|
<%= rs("nilai") %> |
<%= rs("komentar") %> |
<% =rs.movenext %>
<% loop %>
<% koneksi.close
set koneksi=nothing %>
