/sagblog.asp, line 450
450 deki kırmızı renkli txt

<%
for i=1 to 6

set rast = server.createobject("ADODB.recordset")
SQL = "SELECT * FROM video"
filtre = Request.Cookies("Filtre")
if filtre = "acik" then
SQL = SQL & " where kilit = 0"
end if
rast.Open SQL, veri, 3, 1
Randomize
kac = Int((rast.RecordCount * Rnd)+ 0)
rast.Move(kac)%>