<%
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/canli.mdb")
Set rsbbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "Select * from yorum ORDER BY id desc"
rsbbs.Open sorbbs,Surbbs,1,3
%>
<%
i=1
do while i < 150 and not rsbbs.eof
if i mod 2 = 0 Then
bg = "#FOFOFO"
else
bg = "#FFFFFF"
end if
%>
|
Yazan: <%=rsbbs("yazan")%> |
|
|
<%
rsbbs.movenext
i=i+1
Loop
%>
| 