<%
yol="DBQ=" & Server.Mappath("data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set baglan=Server.Createobject("ADODB.Connection")
baglan.open yol
set rs=server.createobject("adodb.recordset")
sorgu = "select * from mesajlar order by id desc"
rs.open sorgu, baglan, 1, 3
%>
<% If rs.eof Then
Response.write "Sistemde Kayıtlı Mesaj Bulunamadı"
Response.End
End If
%>
<%do while not rs.eof%>
<%
if rs("onay")=1 Then
%>
ONAYLANDI! |
|
<%=rs("isim")%> <%=rs("soyisim")%>
/ <%=rs("tarih")%> / <%=rs("sehir")%>
|
|
<%=rs("mesaj")%> |
|
MESAJINIZ
ONAY
BEKLİYOR!
|
|
<%=rs("isim")%> <%=rs("soyisim")%>
/ <%=rs("tarih")%>
/ <%=rs("sehir")%>
|
Mesajınız
Onay
Bekliyor! |
<%
end if
%>
<%
rs.MoveNext
Loop
%>
|
