|
WebMeta.Net Meta Arama Motoru
|
Son 5 BBS Sorusu !
| Tarih |
Soru |
Cevaplandı ? |
<%
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/bbs.mdb")
Set rsbbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "Select * from bbs ORDER BY id desc"
rsbbs.Open sorbbs,Surbbs,1,3
%>
<%
i=1
do while i < 6 and not rsbbs.eof
if i mod 2 = 0 Then
bg = "#FOFOFO"
else
bg = "#FFFFFF"
end if
%>
| <%=rsbbs("date")%> |
"><%=rsbbs("sorubaslik")%> |
<% cevapdurum = rsbbs("cevaplandi")
if cevapdurum = 0 then
Response.write ("Hayır")
Else
Response.write ("Evet")
End if
%> |
<%
rsbbs.movenext
i=i+1
Loop
%>
|
 |
| Kategori |
Hazır Kod |
Hit |
<%
Set Surcode = Server.CreateObject("ADODB.Connection")
Surcode.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/codes.mdb")
Set rscode = Server.CreateObject("ADODB.Recordset")
sorcode = "Select * from codes ORDER BY id desc"
rscode.Open sorcode,Surcode,1,3
%>
<%
i=1
do while i < 6 and not rscode.eof
if i mod 2 = 0 Then
bg = "#FOFOFO"
else
bg = "#FFFFFF"
end if
%>
| <%=rscode("cat")%> |
"><%=rscode("kodadi")%> |
<%=rscode("hit")
%> |
<%
rscode.movenext
i=i+1
Loop
%>
|
 |
| Tarih |
Konu / Makale |
Hit |
<%
Set Surkonu = Server.CreateObject("ADODB.Connection")
Surkonu.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/konux.mdb")
Set rskonu = Server.CreateObject("ADODB.Recordset")
sorkonu = "Select * from konu ORDER BY id desc"
rskonu.Open sorkonu,Surkonu,1,3
%>
<%
i=1
do while i < 6 and not rskonu.eof
if i mod 2 = 0 Then
bg = "#FOFOFO"
else
bg = "#FFFFFF"
end if
%>
| <%=rskonu("tarih")%> |
"><%=rskonu("konubaslik")%> |
<%=rskonu("hit")
%> |
<%
rskonu.movenext
i=i+1
Loop
%>
|
|
|
