|
GUESTBOOK
|
| |
|
|
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=" & SERVER.MapPath("db/defter.MDB") & ";"& _
" Persist security Info= True;"
set defterDB=Server.CreateObject("ADODB.Connection")
defterDB.Open strConnect
set defterRS=server.CreateObject ("adodb.recordset")
SQL="SELECT * from defter order by mesajno desc"
defterRS.Open SQL,defterDB,0,1
do while not defterRS.EOF
Response.Write "| Gönderen :"&defterRS.Fields ("ad")&" | Tarih :"&defterRS.Fields ("tarih")&" | "
Response.Write "
| "
Response.Write "| "&defterRS.Fields ("not")&" | "
Response.Write "
| "
defterRS.MoveNext
loop
defterRS.Close
set defterRS=nothing
defterDB.Close
set defterDB=nothing
%>
|
