Maxwebportalda rep verme olayı

[onur2x]

MAx web portala rep oalyı eklemek istedim ve Portalın veritabanına FORUMREP adında tablo oluşturup tablo içeriğine FORUMID REPVEREN ve ID 3 adet sutun oluşturdum. ve PORTAL_MEMBERS e REP diye bi sutun oluşturdum..
topic.asp de Forumu yazan kısmında konuyu açan kısmında
Altın: XX
Forum Puanı: xx
Rep Puanı: xx
Üye No: xx
Nerden: xx yazısının oldugu yere aşağıdaki kodu ekledim
ve forumda konuyu açan gozukmuyor.. hata nerde acaba?? şunuda denedim gönderim tarihi yazan yere koydugumdada aynısını yapıyor konuya gelen cevaplar gözüküyor ama konuyu açan gözükmüyor aşağıdaki kodu neresinde yanlışlık var acaba

<table><tr><td>
<%
Set RSvarmi=Server.CreateObject("ADODB.Recordset")
strSql="Select * from FORUMREP where FORUMID='"& strRqTopicID & "' AND REPVEREN='" & strDBNTUserName & "' "
RSvarmi.Open strSql, my_Conn, 3
'// aynı konuya tek oy verebilmesi için daha once vermişmi bakıyoruz
if rsvarmi.Eof then '// eger vermemişse rep verme formunu goster
%>

<form method="POST" action="repver.asp?TOPIC_ID=<% =strRqTopicID %>&FORUM_ID=<% =strRqForumID %>&CAT_ID=<% =strRqCatID %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&islem=puanver" name=forum>
<input type="hidden" name="TOPIC_ID" value="<% =strRqTopicID %>">
<select name="Reps">
<option selected value="0">Rep ver</option>
<option value="1">1 Puan</option>
<option value="2">2 Puan</option>
<option value="3">3 Puan</option>
<option value="4">4 Puan</option>
<option value="5">5 Puan</option>
</select>


<input type="submit" value="Değerlendir" name="Gönder" class="button">
</form>

<%
else
' eğer daha önce rep vermiş ise uyarı yapalım
Response.Write("
Bu Konuya Rep Verdiniz
")
end if
RSvarmi.close
Set rsvarmi = Nothing
%>
</td></tr></table>

[onur2x]

burajan konuya ilgi gostermedin galiba ben iki adet dosya yazmıştım onalrda hata var sanırım onu bulabilirmiyiz galiba kafayı sıyırcam

veritabanı yukardakli ile aynı

hata 1 daha once aynı konuya rep veremiyorlardı şimdi nerde ne yaptımsa olmuyor aynı konuya istediğin akdar rep verebiliyrosun
hata 2 de konuyu açan kullanıcıyı alıp ona rep puanı ekleyemiyorum


senin teşekkür et modulundeki in_tesekkuret.asp dosyasına

<form method="POST" action="repver.asp?islem=puanver" name=forum>
<input type="hidden" name="TOPIC_ID" value="<%=Request.QueryString("TOPIC_ID")%>">
<input type="hidden" name="FORUM_ID" value="<%=Request.QueryString("FORUM_ID")%>">
<input type="hidden" name="CAT_ID" value="<%=Request.QueryString("CAT_ID")%>">
<input type="hidden" name="FORUM_Title" value="<%=Request.QueryString("FORUM_Title")%>">
<input type="hidden" name="Topic_Title" value="<%=Request.QueryString("Topic_Title")%>">
<select name="Reps">
<option selected value="0">0</option>
<option value="1">1 Puan</option>
<option value="2">2 Puan</option>
<option value="3">3 Puan</option>
<option value="4">4 Puan</option>
<option value="5">5 Puan</option>
</select>
<input type="submit" value="REPVER" name="Gönder" class="button">
</form>



<% Function RepListe %>
<fieldset>   
<legend>Bu konuya Rep verenler</legend>


<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize -1 %>">
<%
Set rsrep = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM FORUMREP where FORUMID=" & Request.QueryString("TOPIC_ID")
set rsrep = my_conn.Execute (strSQL)

If rsrep.Eof Then
%>
Bu Konuya Rep Verilmedi
<%
else
Do While Not rsrep.EOF
%>
<a title="<%=rsrep("REPVEREN")%> Adlı Üyenin Profili" href="pop_profile.asp?mode=display&id=<%=getmemberid(rsrep("REPVEREN"))%>"><%=(rsrep("REPVEREN"))%>[/url],
<%
rsrep.MoveNext
Loop
end if
rsrep.close
set rsrep=nothing
%>
</font>
</fieldset>
<% End Function %>

bunu ekledim rep verenler burda cıkıyro sorun yok ve forumdada herhangi bir kayma olmuyor

gelelim rep verme olayına

repver.asp

////////

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->

<% if not strDBNTUserName = "" Then


islem=Request.QueryString("islem")

if islem="puanver" then

TOPICID = Request.Form("TOPIC_ID")
ForumID = Request.Form("FORUM_ID")
CATID = Request.Form("CAT_ID")
FORUMTITLE = Request.Form("FORUM_Title")
Topic_Title = Request.Form("Topic_Title")
Reps = Request.Form("Reps")

if Reps=0 then
%>
<script>alert('Lütfen Vereceğiniz Puanı Seçiniz!')</script>
<%
else

Set rsrep = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM FORUMREP WHERE  FORUMID = " & TOPICID & "  AND   REPVEREN = " & strDBNTUserName  & " "
set rsrep = my_conn.Execute (strsql)
rsrep.Open strsql, my_Conn


if rsrep.Eof then



strSql = "INSERT INTO FORUMREP"
strSql = strSql & "(FORUMID"
strSql = strSql & ", REPVEREN"
strSql = strSql & ") "
strSql = strSql & " VALUES ("
strSql = strSql & "'" & replace(TOPICID, "'", "''") & "'"
strSql = strSql & ", " & "'" & strDBNTUserName & "'"
strSql = strSql & ")"
my_Conn.Execute (strSQL)

Response.Write("
<center>Puanınız Kaydedilmiştir! Teşekkür Ederiz!</center>
")


'konuyu açanı bulalım
Set gon = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM PORTAL_TOPICS where TOPIC_ID =" & TOPICID
set gon = my_conn.Execute (strSQL)
gonderen = gon("T_AUTHOR") ' göndereni aldık
gon.close
Set gon = Nothing

' gönderenin REP i kaçmış onu alıyoruz
Set RSs=Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM PORTAL_MEMBERS where MEMBER_ID=" & gonderen
set rss = my_Conn.Execute (strsql)

'Gönderene verilen repi ekliyoruz
rss.Open strsql, my_Conn, 3
strsql = "UPDATE PORTAL_MEMBERS"
strsql = stSql & " SET REP = rss(REP)+Reps"
strsql = stSql & " WHERE MEMBER_ID=" & gonderen
set rss =  my_Conn.Execute (strsql)

rss.close
Set rss = Nothing
else 'rep verdiyse ayrıca burda  kendi açtıgı konuyada rep vermesini engelleyebilriiz
Response.Write("
<center>Bu Konuya Rep Verdiniz
 Aynı konuya Rep Veremezsiniz</center>
")
end if

rsrep.close
Set rsrep = Nothing
end if
end if
else %>




<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="red">
Rep Puanı verebilmek için üye olmanız gerekmekte.
</font>
<% end if %>
<meta http-equiv='Refresh' content='2; URL=topic.asp?TOPIC_ID=<% =TOPICID %>&FORUM_ID=<% =ForumID %>&CAT_ID=<% =CatID %>&Forum_Title=<% =Request.Form("FORUM_Title") %>&Topic_Title=<% =Request.form("Topic_Title")%>'>
</td>
</tr>
<% mwpThemeBlock_close()%>

[burajan]

Mwp için konuya puan verme modülü yaptım. Ancak daha yayınlamadım. Yakında yayınlayacağım. Senin yukarıda yazdığın kodlara göre şuanlık birşey yapamam.