<% Response.Buffer = True %>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&uyeler&"")
Set efkan = Server.CreateObject("ADODB.Recordset")
id=Request.QueryString("id")
sor = "select * from uyeler where id="&id&""
efkan.Open sor,sur,1,3
efkan("txtkalan") = efkan("txtkalan") + 1
efkan("txtgosterdin") = efkan("txtgosterdin") + 1
efkan.Update
efkan.close
sor = "SELECT * FROM uyeler WHERE txtkalan > '0' and onay='y' "
efkan.Open sor,Sur,1,3
if efkan.eof or efkan.bof then
Response.Write " Kayıt Yok"
Response.End
end if
adet = efkan.RecordCount
Randomize
sec = Int((adet * Rnd ) +0)
efkan.Move(sec)
%>
<%
for i = 1 to 5
if efkan.eof then exit for
%>
" target="_blank">
<%=efkan("baslik")%>
<% = Left(efkan("icerik"),20) %>..
<%
'if efkan("txtkalan")=0 then
'efkan("txtkalan") = efkan("txtkalan") +0
'efkan.Update
'else
efkan("txtkalan") = efkan("txtkalan") -1
efkan("txtgosterdiler") = efkan("txtgosterdiler") +1
efkan.Update
'end if
%>
|
<%
efkan.movenext
Next
efkan.close
%>
www.delikan.de
| |