• 30-09-2006, 21:03:11
    #1
    arkadaşlar bikaç kaynaktan faydalanarak puanlama olayını koydum siteye ama bi yerde hata yaptım sanırım. ne hata veriyo. ne oylama verisini db ye işliyor.
    http://www.mizah.net/beta2/yazioku.asp?id=183
    bu konunda bilgili yardımcı olabilicek arkadaşlar varsa msnlerini pm olarak atarsa sevinirim. (sonra başka sorularda sorarım ona göre ) Veya burdan msj olarak yardım edin dicemde kodlarıda yaziyimmi buraya sorun olurmu. ne hata oldunu sölemeniz için kodları görmeniz gerek sanırım
  • 30-09-2006, 22:02:22
    #2
    kodları buraya yazarsan daha iyi olur.
    benzer sorunu olan başka arkadaşlarda varsa bilgi ednimiş olabilir.
  • 30-09-2006, 22:12:42
    #3
    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="JavaScriptnClick=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">&nbsp;
    <input type="radio" value="4" name="sPuan"><img src="../grafik/puan/4.gif" alt="4">&nbsp;
    <input type="radio" value="3" name="sPuan"><img src="../grafik/puan/3.gif" alt="3">&nbsp;
    <input type="radio" value="2" name="sPuan"><img src="../grafik/puan/2.gif" alt="2">&nbsp;
    <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">&nbsp;</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#
    %>
  • 30-09-2006, 22:40:03
    #4
    ObjRS("oy")=ObjRS("oy")+Request.Form("sPuan")
    ObjRS("oyveren")=ObjRS("oyveren")+1
    ObjRS.Update

    bukısmı şu şekilde değiştirip denesene bi

    ObjRS.Update
    ObjRS("oy")=ObjRS("oy")+Request.Form("sPuan")
    ObjRS("oyveren")=ObjRS("oyveren")+1
    ObjRS.Update
    başkada bi sorun yaratacak bişey göremedim
  • 30-09-2006, 22:54:50
    #5
    yaptım. aynı şekilde. bunun en son tekrar oy verme sayfasına dönmesini nsl yapıcağız. gerçi neyse önce bi oy yollamayı çözsek sonra detay a inerizde işte. bi dökümandan bakarak yazdım bunuda bulamadım hata. siz bulursunuz inş.