|
|
|
|
|
|
<%
Set connection = Server.CreateObject("ADODB.Connection")
Set my_record= Server.CreateObject("ADODB.RecordSet")
connection.open ("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\guestbook\guestana.mdb"))
my_record.open "guestbook",connection,1
if my_record.RecordCount <= 0 then
response.write "Henüz herhangi bir Mesaj bırakılmamıştır."
else
my_record.movelast
do while not (my_record.BOF)
aktif=my_record("aktif")
isim=my_record("isim")
email=my_record("email")
tarih=my_record("tarih")
mesaj=my_record("mesaj")
ulke=my_record("ulke")
if aktif="yes" then
%>
|
|
Adı & Soyadı :
<%=isim%> |
|
|
Tarih :
<%=tarih%> |
Mesajı :
<%=mesaj%> |
|
<%
else
end if
my_record.moveprevious
loop
my_record.close
connection.close
set my_record=nothing
end if
%>
|
|
|
|
|