Asp'den anlamam ama kodun eklenmiş hali su sekilde olmalı sanırım.
<!-- #include file="body.asp" -->
<!-- #include file="clear.asp" -->
<table cellSpacing=0 cellPadding=0 width=900 border=0 align=center>
<tr><td align=center height=180><!-- #include file="top.asp" --></td></tr>
<%
metyus=request("metyus")
if not metyus<>"" then
response.redirect "default.asp"
response.end
end if
if metyus="cat" then
label=request("label")
cid=clear(request.querystring("cid"))
if IsNumeric(cid)=false then
response.redirect "default.asp"
response.end
end if
%>
<tr><td align=center valign=top height=400>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center>
<tr><td align=center valign=top >
<table cellSpacing=0 cellPadding=0 width=96% border=0 align=center background="img/blok_bg.jpg" height="164">
<tr><td align=center height=27 bgcolor=6e8f00 colspan=3 background="img/bar.jpg"><font size=1 face=verdana><b><%=label%> Kategorisinde Bulunan Videolar</b></font> </td></tr>
<tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down.jpg"></td></tr>
<!-- #include file="db.asp" -->
<%
sql = "select * from video where cat_id="&cid&" order by tarih desc "
rs.open sql, bag, 1, 3
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
if rs.eof then
else
%>
<tr>
<%
rs.pagesize = 42
rs.absolutepage = shf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
n=n+1
%>
<td height=100>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center height=75>
<tr><td rowspan=3 width=100><a href="video.asp?metyus=view&vid=<%=rs("id")%>"><img src="<%=rs("img")%>" border=0 width=100 height=80></a></td>
<td><font size=1 face=verdana color=ffffff><b> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr>
<tr><td> <font size=1 face=verdana color=ffffff>Ranks :
<%
if rs("puan")=0 then
response.write "<img src=""img/stars/0.gif"">"
else
end if
if rs("puan")>0 and rs("puan")<25 then
response.write "<img src=""img/stars/1.gif"">"
else
end if
if rs("puan")>=26 and rs("puan")<50 then
response.write "<img src=""img/stars/2.gif"">"
else
end if
if rs("puan")>=51 and rs("puan")<75 then
response.write "<img src=""img/stars/3.gif"">"
else
end if
if rs("puan")>=76 and rs("puan")<100 then
response.write "<img src=""img/stars/4.gif"">"
else
end if
if rs("puan")>=101 then
response.write "<img src=""img/stars/5.gif"">"
else
end if
%>
</font>
</td></tr>
<tr><td><font size=1 face=verdana color=ffffff> Görüntülenme : <%=rs("izleme")%></font></td></tr>
</table>
</td>
<%
if n=2 then
response.write "</tr><tr>"
n=0
end if
rs.movenext
next
%>
<tr><td align=center height=2 bgcolor=6e8f00 colspan=3 background="img/Untitled-2.jpg"></td></tr>
<tr><td height=31 background="img/bg_sbar.jpg" colspan=2>
<font size=4 face=Tahoma color=ffffff>
Sayfalar :
<%
kaysay = 14
saysay = sayfa / kaysay
degsay = int(sayfa / kaysay)
if saysay > degsay then
saysay = degsay + 1
else
saysay = degsay
end if
if request("page")<>"" then
session("page") =request("page")
linkpage =request("page")
ik = (request("page") * kaysay) - (kaysay - 1)
else
session("page") ="1"
linkpage ="1"
ik = 1
end if
backpage = session("page")-1
nextpage = session("page")+1
sy = int(ik)
if backpage >= 1 then
%>
<a href="?page=<%=backpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>">
<img src="img/arrow1.gif" border=0 width="20" height="20"></a>
<%
end if
for y=1 to kaysay
if sy =< sayfa then
%> <a href="?shf=<%=sy%>&page=<%=linkpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>"><%=sy%></a>
<%
end if
sy = sy + 1
next
if nextpage =< saysay then
%> <a href="?page=<%=nextpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>">
<font color="#FFFFFF">Sonraki ></font></a>
<%
end if
%>
</td></tr>
<%
end if
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
</table>
<p style="margin-top: 0; margin-bottom: 0"></td>
<td align=center width="20%" valign=top>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center height="290">
<tr><td align=center height=30 bgcolor=2f3a42><font size=1 face=verdana color=ffffff><b>Bu Kategoriden Rastgele Video</b></font></td></tr>
<tr><td align=center bgcolor=61696f height="247" >
<!--#include file="db.asp"-->
<%
Sorgu = "select * from video where cat_id="&cid&" order by id"
Rs.Open Sorgu, bag, 1, 3
if rs.eof then
else
ToplamKayit = rs.RecordCount
Randomize
gidilecekKayit = Int((ToplamKayit * Rnd ) + 0)
rs.Move(gidilecekKayit)
%>
<table cellSpacing=0 cellPadding=0 width=100% border=0 align=center>
<tr><td><font size=1 face=verdana color=ffffff><b> <img src="img/menu_open.gif" border=0> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr>
<tr><td align=center>
<div id="center">
<script type=text/javascript>
setTimeout('gizle()',10000);
function gizle() {
var x=document.getElementById('reklam').style;
var y=document.getElementById('video').style;
if(x.display=='block') { x.display='none'; y.display='block'; }
else { x.display='block'; y.display='none'; }
}
</script>
<div id="reklam" style="display:block;height:350px;"><p align="center">
<a href="http://www.google.com" target="_blank" rel="nofollow">
<img src="http://www.google.com/banner.gif" border="0"></a><p/>
</div>
<div id="video" style="display:none;">
<object width="275" height="200">
<param name="movie" value="<%=rs("url")%>"></param><param name="wmode" value="transparent"></param>
<embed src="<%=rs("url")%>" type="application/x-shockwave-flash" wmode="transparent" width="275" height="200"></embed></object>
</td></tr>
<tr><td align=center height=25> <font size=1 face=verdana color=ffffff>Ranks :
<%
if rs("puan")=0 then
response.write "<img src=""img/stars/0.gif"">"
else
end if
if rs("puan")>0 and rs("puan")<25 then
response.write "<img src=""img/stars/1.gif"">"
else
end if
if rs("puan")>=26 and rs("puan")<50 then
response.write "<img src=""img/stars/2.gif"">"
else
end if
if rs("puan")>=51 and rs("puan")<75 then
response.write "<img src=""img/stars/3.gif"">"
else
end if
if rs("puan")>=76 and rs("puan")<100 then
response.write "<img src=""img/stars/4.gif"">"
else
end if
if rs("puan")>=101 then
response.write "<img src=""img/stars/5.gif"">"
else
end if
%>
Görüntülenme : <%=rs("izleme")%>
</font></td></tr>
</table>
<%
end if
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
</td></tr>
<tr><td align=center height=13>
</td></tr>
</table>
<table cellSpacing=0 cellPadding=0 width=96% border=0 align=center>
<tr><td align=center height=27 bgcolor=6e8f00 colspan=2 background="img/bar.jpg"><font size=1 face=verdana><b>Kategorideki Yeni Videolar</b></font></td></tr>
<!-- #include file="db.asp" -->
<%
sql = "select top 16 * from video where cat_id="&cid&" order by tarih desc "
rs.open sql, bag, 1, 3
if rs.eof then
else
%>
<%
do while not rs.eof
%>
<tr><td height=100>
<table cellSpacing=0 cellPadding=0 width=100% border=0 align=center height=75>
<tr><td rowspan=3 width=100><a href="video.asp?metyus=view&vid=<%=rs("id")%>"><img src="<%=rs("img")%>" border=0 width=100 height=80></a></td>
<td><font size=1 face=verdana color=ffffff><b> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr>
<tr><td> <font size=1 face=verdana color=ffffff>Ranks :
<%
if rs("puan")=0 then
response.write "<img src=""img/stars/0.gif"">"
else
end if
if rs("puan")>0 and rs("puan")<25 then
response.write "<img src=""img/stars/1.gif"">"
else
end if
if rs("puan")>=26 and rs("puan")<50 then
response.write "<img src=""img/stars/2.gif"">"
else
end if
if rs("puan")>=51 and rs("puan")<75 then
response.write "<img src=""img/stars/3.gif"">"
else
end if
if rs("puan")>=76 and rs("puan")<100 then
response.write "<img src=""img/stars/4.gif"">"
else
end if
if rs("puan")>=101 then
response.write "<img src=""img/stars/5.gif"">"
else
end if
%>
</font>
</td></tr>
<tr><td><font size=1 face=verdana color=ffffff> Görüntülenme : <%=rs("izleme")%></font></td></tr>
</table>
</td></tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
</table>
</td>
</tr>
</table>
</td></tr>
<%
end if
if metyus="view" then
vid=clear(request.querystring("vid"))
if IsNumeric(vid)=false then
response.redirect "default.asp"
response.end
end if
%>
<!--#include file="db.asp"-->
<%
Function Duzenle(Str)
Str = Replace(Str, "siktir", "******", 1, -1, 1)
Str = Replace(Str, "*****", "******", 1, -1, 1)
Str = Replace(Str, "amcik", "******", 1, -1, 1)
Str = Replace(Str, "*****", "******", 1, -1, 1)
Str = Replace(Str, "******", "******", 1, -1, 1)
Str = Replace(Str, "oruspu", "******", 1, -1, 1)
Str = Replace(Str, "çocuğu", "******", 1, -1, 1)
Str = Replace(Str, "kaltak", "******", 1, -1, 1)
Str = Replace(Str, "şıllık", "******", 1, -1, 1)
Str = Replace(Str, "fırlama", "******", 1, -1, 1)
Str = Replace(Str, "fırlatma", "******", 1, -1, 1)
Str = Replace(Str, "hassiktir", "*********", 1, -1, 1)
Str = Replace(Str, "hasiktir", "********", 1, -1, 1)
Str = Replace(Str, "www", "***", 1, -1, 1)
Str = Replace(Str, "***", "***", 1, -1, 1)
Str = Replace(Str, "amcig", "***", 1, -1, 1)
Str = Replace(Str, "am", "***", 1, -1, 1)
Str = Replace(Str, "anan", "***", 1, -1, 1)
Str = Replace(Str, "sik", "***", 1, -1, 1)
Str = Replace(Str, "com", "***", 1, -1, 1)
Str = Replace(Str, "net", "***", 1, -1, 1)
Str = Replace(Str, "org", "***", 1, -1, 1)
Str = Replace(Str, "gen", "***", 1, -1, 1)
Str = Replace(Str, "***", "***", 1, -1, 1)
Str = Replace(Str, "*****", "*****", 1, -1, 1)
Str = Replace(Str, "http://", "******", 1, -1, 1)
Str = Replace(Str, "//", "**", 1, -1, 1)
Str = Replace(Str, "<", "<", 1, -1, 1)
Str = Replace(Str, ">", ">", 1, -1, 1)
Str = Replace(Str, vbCrLf, "<br>", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, " ", " ", 1, -1, 1)
Str = Replace(Str, ":)", "<img src=""yuzler/gul.gif"">", 1, -1, 1)
Str = Replace(Str, ": )", "<img src=""yuzler/gul.gif"">", 1, -1, 1)
Str = Replace(Str, ":D", "<img src=""yuzler/sirit.gif"">", 1, -1, 1)
Str = Replace(Str, ": D", "<img src=""yuzler/sirit.gif"">", 1, -1, 1)
Str = Replace(Str, ";)", "<img src=""yuzler/gozkirp.gif"">", 1, -1, 1)
Str = Replace(Str, "; )", "<img src=""yuzler/gozkirp.gif"">", 1, -1, 1)
Str = Replace(Str, ":P", "<img src=""yuzler/dilcikar.gif"">", 1, -1, 1)
Str = Replace(Str, ": P", "<img src=""yuzler/dilcikar.gif"">", 1, -1, 1)
Str = Replace(Str, "?", "<img src=""yuzler/soru.gif"">", 1, -1, 1)
Str = Replace(Str, ":@", "<img src=""yuzler/kiz.gif"">", 1, -1, 1)
Str = Replace(Str, ":(", "<img src=""yuzler/kiz.gif"">", 1, -1, 1)
Str = Replace(Str, ": (", "<img src=""yuzler/kiz.gif"">", 1, -1, 1)
Duzenle = Str
End Function
%>
<%
if request("y_ekle")="1" then
if request("ad")="" or request("mail")="" or request("yorum")="" then
Response.write " <script>alert(""Form Alanında Boş kısımlar Bıraktınız..."");</script>"
response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&request("video_id")&"""> "
response.end
end if
rs.ActiveConnection = bag
sorgu = "Select * from yorum"
rs.open Sorgu, bag, 1, 3
Set kufurler = Server.CreateObject ("ADODB.RecordSet")
Sql = " Select * from kufur"
kufurler.open sql,bag,1,3
rs.addnew
rs.fields("vid")=request("video_id")
rs.fields("ad")=clear(request("ad"))
rs.fields("mail")=clear(request("mail"))
rs.fields("yorum")= Duzenle(Request.Form("yorum"))
rs.fields("tarih")=now()
rs.update
rs.close
set rs=nothing
Response.write " <script>alert(""Yorumunuz Başarılı Bir Şekilde Eklendi."");</script>"
response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&request("video_id")&"""> "
response.end
end if
%>
<!--#include file="db.asp"-->
<%
if session("giristamam")="1" then
Sorgu = "select * from uye where id="&Session("kadi_id")&""
Rs.Open Sorgu, bag, 1, 3
rs("puan")=rs("puan") + 2
rs.update
rs.close
set rs=nothing
bag.close
set bag=nothing
end if
%>
<tr><td align=center valign=top height=400 width=50%>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center>
<tr><td align=center valign=top>
<!--#include file="db.asp"-->
<%
Sorgu = "select * from video where id="&vid&" order by id"
Rs.Open Sorgu, bag, 1, 3
%>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center>
<tr><td align=center bgcolor=61696f >
<%
if rs.eof then
else
%>
<table cellSpacing=0 cellPadding=0 width=100% border=0 align=center>
<tr><td align=center height=30 bgcolor=2f3a42><font size=1 face=verdana color=ffffff><b> <img src="img/menu_open.gif" border=0> <%=rs("baslik")%></b></font></td></tr>
<tr><td align=center>
<object width="425" height="350">
<param name="movie" value="<%=rs("url")%>"></param><param name="wmode" value="transparent"></param>
<div id="center">
<script type=text/javascript>
setTimeout('gizle()',10000);
function gizle() {
var x=document.getElementById('reklam').style;
var y=document.getElementById('video').style;
if(x.display=='block') { x.display='none'; y.display='block'; }
else { x.display='block'; y.display='none'; }
}
</script>
<div id="reklam" style="display:block;height:350px;"><p align="center">
<a href="http://www.zevkdiyari.com/ortaklik.php?r=cf38b56a4f1bd64ee47fbb2a8da111eb" target="_blank" rel="nofollow">
<img src="http://www.trsexx.com/video.gif" border="0"></a><p/>
</div>
<div id="video" style="display:none;">
<embed src="<%=rs("url")%>" type="application/x-shockwave-flash" wmode="transparent" width="425" height="350"></embed></object></div>
<br><br>
</td></tr>
</table>
</td></tr>
<tr><td align=center height="30">
<font face="Tahoma" color="#808080" size="1">
</font><font face="Tahoma" size="5" color="#808080"></font></td></tr>
<tr><td align=center height="30">
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center background="img/blok_bg_pembe.jpg">
<tr><td align=center height=25 bgcolor=6e8f00 colspan=3 background="img/bar_pembe.jpg"><b><font face="verdana" size="1" color=ffffff>
Yorumlar</font></b></td></tr>
<tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down_pembe.jpg"></td></tr>
<tr><td height=5></td></tr>
<tr><td height=200 valign=top>
<%
Set yorum=Server.CreateObject("Adodb.Recordset")
Sorgu = "select * from yorum where vid="&vid&" order by tarih desc"
yorum.Open Sorgu, bag, 1, 3
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
if yorum.eof then
%>
<br><br>
<center><b><font face="verdana" size="1" color=ffffff>Bu Videoya
Daha Önce Yorum Yapılmamış.<br>İlk Yorumu Sen Yap.</font></b></center>
<%
else
yorum.pagesize = 10
yorum.absolutepage = shf
sayfa = yorum.pagecount
for i=1 to yorum.pagesize
if yorum.eof then exit for
%>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center>
<tr><td align=left height=25><font color=ffffff face=verdana size=1><a href="mailto:<%=ozeldurum(yorum("mail"))%>)"><b><%=ozeldurum(yorum("ad"))%></b></a></font></td>
<td align=left width=150><font color=ffffff face=verdana size=1><%= FormatDateTime(rs("tarih"), 1) %></font></td></tr>
<tr><td align=left height=25 colspan=2><font color=ffffff face=verdana size=1><%=ozeldurum(yorum("yorum"))%></font></td></tr>
<tr><td height=1 background="img/bar.jpg" colspan=2></td></tr>
</table>
<%
yorum.movenext
next
%>
</td></tr>
</table>
<br>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center >
<tr><td align=center height=2 colspan=3></td></tr>
<tr><td height=27 colspan=2 background="img/bg_sbar.jpg"><font size=1 face=verdana color=ffffff>
Sayfalar :
<%
kaysay = 5
saysay = sayfa / kaysay
degsay = int(sayfa / kaysay)
if saysay > degsay then
saysay = degsay + 1
else
saysay = degsay
end if
if request("page")<>"" then
session("page") =request("page")
linkpage =request("page")
ik = (request("page") * kaysay) - (kaysay - 1)
else
session("page") ="1"
linkpage ="1"
ik = 1
end if
backpage = session("page")-1
nextpage = session("page")+1
sy = int(ik)
if backpage >= 1 then
%>
<a href="?page=<%=backpage%>&metyus=view&vid=<%=vid%>"><img src="img/arrow1.gif" border=0></a>
<%
end if
for y=1 to kaysay
if sy =< sayfa then
%>
<b> <a href="?shf=<%=sy%>&page=<%=linkpage%>&metyus=view&vid=<%=vid%>"><%=sy%></a> </b>
<%
end if
sy = sy + 1
next
if nextpage =< saysay then
%>
<a href="?page=<%=nextpage%>&metyus=view&vid=<%=vid%>"><img src="img/arrow.gif" border=0></a>
<%
end if
end if
yorum.close
set yorum=nothing
%>
</td></tr>
</table>
<br>
<form action="video.asp?metyus=view&vid=<%=rs("id")%>" method="post">
<table border="0" cellspacing="1" style="border-collapse: collapse" width="70%">
<tr><td width="10%"><font size=1 face=verdana color=ffffff><b>Ad</b></font></td>
<td width="90%">
<input type="text" name="ad" value="Adınız veya Takma Adınız" size="53" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr>
<tr><td width="10%"><font size=1 face=verdana color=ffffff><b>Mail</b></font></td>
<td width="80%">
<input type="text" name="mail" value="Mail Adresiniz" size="53" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr>
<tr><td height=80 colspan=2><textarea name="yorum" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767" rows="6" cols="60"></textarea></td></tr>
<tr><td height=20 colspan=2 align=right><input type="submit" Value=" Yorumu Gönder " style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr>
</table>
<input type="hidden" name="video_id" value="<%=vid%>">
<input type="hidden" name="y_ekle" value="1">
</form>
</td></tr>
</table>
</td>
<td align=center valign=top width=50%>
<table cellSpacing=0 cellPadding=0 width=98% border=0 align=center background="img/blok_bg.jpg">
<tr><td align=center height=27 bgcolor=6e8f00 colspan=3 background="img/bar.jpg"><b><font face="verdana" size="1">Video Bilgileri</font></b></td></tr>
<tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down.jpg"></td></tr>
<tr><td height=5></td></tr>
<tr><td height=20> <font size=1 face=verdana color=ffffff><b>Eklenme Tarihi :</b> <%=rs("tarih")%></font></td></tr>
<tr><td height=20> <font size=1 face=verdana color=ffffff><b>Açıklama :</b> <%=rs("detay")%>... </font></td></tr>
<tr><td height=20> <font size=1 face=verdana color=ffffff><b>Tag'lar :</b>
<%
tags = rs("arama")
tags2= split(tags," ")
tagtane = ubound(tags2)
for a=0 to tagtane
response.write "<a href=search.asp?kelime="& tags2(a)&"><u>"&tags2(a)&"</u></a> "
next
%>
</font></td></tr>
<tr><td height=20> <font size=1 face=verdana color=ffffff>
<b>Ranks :</b>
<%
if rs("puan")=0 then
response.write "<img src=""img/stars/0.gif"">"
else
end if
if rs("puan")>0 and rs("puan")<25 then
response.write "<img src=""img/stars/1.gif"">"
else
end if
if rs("puan")>=26 and rs("puan")<50 then
response.write "<img src=""img/stars/2.gif"">"
else
end if
if rs("puan")>=51 and rs("puan")<75 then
response.write "<img src=""img/stars/3.gif"">"
else
end if
if rs("puan")>=76 and rs("puan")<100 then
response.write "<img src=""img/stars/4.gif"">"
else
end if
if rs("puan")>=101 then
response.write "<img src=""img/stars/5.gif"">"
else
end if
%> ( <%=rs("puan")%> )
</font>
</td></tr>
<tr><td height=20> <font size=1 face=verdana color=ffffff><b>Görüntülenme :</b> <%=rs("izleme")%></font></td></tr>
<tr><td height=30> <font size=1 face=verdana color=ffffff><b>URL :</b>
<input type="text" value="http://www.trsexx.com/v.asp?vid=<%=rs("id")%>" size="50" name="Url" style="border: 1px solid #676767"></font></td></tr>
<tr><td height=30> <font size=1 face=verdana color=ffffff><b>Embed :</b>
<input type="text" value="<object width=425 height=350><param name=movie value=<%=rs("url")%>></param><param name=wmode value=transparent></param><embed src=<%=rs("url")%> type=application/x-shockwave-flash wmode=transparent width=425 height=350></embed></object>" size="50" name="Url" style="border: 1px solid #676767"></font></td></tr>
<tr><td height=30 align=center>
<script language="Javascript">
function Oyla() {
document.OyForm.submit();
}
</script>
<table style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="%100" border="0">
<%
if request("ver")="1" then
vid_id=request("vid_id")
if request.cookies("metyus")("videooy")="1" and request.cookies("metyus")("videoid")=vid_id then
Response.write " <script>alert(""Bu Videoya Oyunuzu Daha Önce Kullanmışsınız."");</script>"
else
puan=request.Form("puan")
Set oyver=Server.CreateObject("Adodb.Recordset")
sorgu = "Select * from video where id="&vid_id&""
oyver.open Sorgu, bag, 1, 3
oyver("puan")=oyver("puan") + puan
oyver.update
oyver.close
set oyver=nothing
response.cookies("metyus")("videooy")="1"
response.cookies("metyus")("videoid")=vid_id
response.cookies("metyus").expires=now()+1
Response.write " <script>alert(""Bu Videoya Başarılı Bir Şekilde Oyunuzu Kullandınız."");</script>"
response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&vid_id&"""> "
end if
end if
%>
<form name="OyForm" action="video.asp?metyus=view&vid=<%=rs("id")%>" method="post">
<tr><td colspan=20 align=center><font size="1" face="Verdana" color="#ffffff"><b>Bu Videoya Oy verin :</b></font></td></tr>
<tr>
<td>
<input onclick="javascript:Oyla();" type="radio" value="1" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="2" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="3" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="4" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="5" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="6" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="7" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="8" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="9" name="Puan"></td>
<td>
<input onclick="javascript:Oyla();" type="radio" value="10" name="Puan"></td>
</tr>
<tr>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">1</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">2</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">3</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">4</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">5</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">6</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">7</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">8</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">9</font></b></td>
<td class="yazi" align="middle"><b><font size="1" face="Verdana">10</font></b></td>
</tr>
<input type="hidden" name="vid_id" value="<%=rs("id")%>">
<input type="hidden" name="ver" value="1">
</form>
</table>
</td></tr>
<tr><td height=10></td></tr>
<tr><td height=40>
<% if session("giristamam")<>"1" then %>
<font face="verdana" style="font-size:10px;" color=ffffff>Üye Girişi Yaptığınız Taktirde +2 Puan Sizin Adınıza Eklenecektir.<br>
Üye Değilseniz Üye Olmak İçin <a href="reg.asp">TIKLAYINIZ.</a>
<% End if %>
<% if session("giristamam")="1" then %>
<font face="verdana" style="font-size:10px;" color=ffffff>
Hesabınıza +2 Puan Eklenmiştir.
<% End if %>
</td></tr>
<tr><td height=10></td></tr>
</table>
<%
rs("izleme")=rs("izleme") + 1
rs.update
end if
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<iframe src="rastgele5.asp" width="95%" height="500" marginwidth="1" marginheight="11" name="rv" border="0" frameborder="0"></iframe>
</td></tr>
</table>
</td></tr>
<%end if%><tr><td align=right height=50><!-- #include file="down.asp" --></td></tr></table>