bu kodla pop penceresinde oylama asayfası açılıyor
<a href="javascript
:sendeyaz('vote/yazi_oyver.asp?id=<%=yazix("kimlik")%>','405','230 ');"border="0">
yazi_oyver.asp
<!--#include file="common.asp"-->
<% deisken=request.querystring("id")
set yazix=server.createobject("adodb.recordset")
sqll="select * from yazi where kimlik=" & deisken
yazix.open sqll,baglanti,1,3
yazix.Update
%>
<head>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</HEAD><html>
<head>
<title>Mizah.net - Oylaa!!</title>
<meta http-equiv="Content-Type" content="text/html; charset=">
<script language="JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body background="../grafik/bg.gif" bgcolor="#444444">
<br>
<br>
<table width="80%" cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">
<td width="65%"> Bu Yazı Sizi Ne Hale Soktu?</td><td width="35%" align="right"><a href="JavaScript
nClick=window.close()">Sayfayı Kapat <img src="../grafik/kapat.gif" border="0"></a></td>
</tr>
<tr class="oddTableRow">
<td valign="top" colspan="5">
<table width="100%" height="100%">
<br><br><center>
<% IcerikIDPuan = Request.Cookies("IcerikPuan")(id)
If IcerikIDPuan <> "" Then
Response.Write "<td>Bu içeriğe " & IcerikIDPuan & " puan vermişsiniz.</td>"
Else%>
<td align="right" valign="top"><font size="1" color="#ffffff">Puan : </font></td>
<td>
<form name="frmPuan" method="post" action="yazi_oyver_.asp">
<input type="radio" value="5" name="sPuan"><img src="../grafik/puan/5.gif" alt="5">
<input type="radio" value="4" name="sPuan"><img src="../grafik/puan/4.gif" alt="4">
<input type="radio" value="3" name="sPuan"><img src="../grafik/puan/3.gif" alt="3">
<input type="radio" value="2" name="sPuan"><img src="../grafik/puan/2.gif" alt="2">
<input type="radio" value="1" name="sPuan"><img src="../grafik/puan/1.gif" alt="1">
<input type="hidden" name="id" value="<%=id%>"
</td></table>
<table width="100%">
<td width="100%"><center><input type="submit" value="Oy ver" style="BORDER-BOTTOM: BLACK 1px solkimlik; BORDER-LEFT: black 1px solkimlik; BORDER-RIGHT: black 1px solkimlik; BORDER-TOP: black 1px solkimlik; COLOR: black FONT-WEIGHT: bold; HEIGHT: 20px; WkimlikTH: 50px">
<br><br></table>
</form>
<% End If %>
</td>
</td>
</tr>
</table>
<p align="center"> </p>
</body>
</html>
ve son olarak yazi_oyver_.asp dosyası
<!--#include file="common.asp"-->
<% strSQL = "Select * from yazi Where id = " & Request.Form("id") & ""
Set ObjRS = Server.CreateObject("Adodb.Recordset")
ObjRS.Open strSQL,baglanti,1,3
ObjRS("oy")=ObjRS("oy")+Request.Form("sPuan")
ObjRS("oyveren")=ObjRS("oyveren")+1
ObjRS.Update
Response.Cookies("IcerikPuan")(Request.Form("id")) =Request.Form("sPuan")
Response.Cookies("IcerikPuan").Expires = #01/10/2020#
%>