Arkadaşlar seo ile yaptığım sayfada konu ve konuya ait yorum blümü var. 404 sayfasında gereken işlemleri yaptım. Yorum yapmak için gnderi tıkladığımızda hiç bir gelişme olmuyor. Şyle bir şey de denedim: yorum sayfasını ayrı yaptım ve iframe ile konu sayfasına yerleştirdim. Bu sefer kayıt yapıyor ama yapılan yorumu konu sayfasında gstermiyor. databaseye baktım, orada userid yi kaydetmediğini farkettim. Şuan paylaştığım şey, konu, yorum ve yorumların sıralandığı blümün birarada olduğu şekli. Yardımcı olursanız sevinirim. <% Function seo Str = strmiz Str = Replace(Str, Chr(199), "C" ,1,-1,0) Str = Replace(Str, "Ç", "C" ,1,-1,0) Str = Replace(Str, Chr(208), "G" ,1,-1,0) Str = Replace(Str, "Ğ", "G" ,1,-1,0) Str = Replace(Str, Chr(214), "O" ,1,-1,0) Str = Replace(Str, "", "O" ,1,-1,0) Str = Replace(Str, Chr(220), "U" ,1,-1,0) Str = Replace(Str, "Ü", "U" ,1,-1,0) Str = Replace(Str, Chr(221), "I" ,1,-1,0) Str = Replace(Str, "İ", "I" ,1,-1,0) Str = Replace(Str, Chr(222), "S" ,1,-1,0) Str = Replace(Str, "Ş", "S" ,1,-1,0) Str = Replace(Str, Chr(231), "c" ,1,-1,0) Str = Replace(Str, "ç", "c" ,1,-1,0) Str = Replace(Str, Chr(240), "g" ,1,-1,0) Str = Replace(Str, "ğ", "g" ,1,-1,0) Str = Replace(Str, Chr(246), "o" ,1,-1,0) Str = Replace(Str, "", "o" ,1,-1,0) Str = Replace(Str, Chr(252), "u" ,1,-1,0) Str = Replace(Str, "ü", "u" ,1,-1,0) Str = Replace(Str, Chr(253), "i" ,1,-1,0) Str = Replace(Str, "ı", "i" ,1,-1,0) Str = Replace(Str, Chr(254), "s" ,1,-1,0) Str = Replace(Str, "ş", "s" ,1,-1,0) Str = Replace(Str, "", "" ,1,-1,0) Str = Replace(Str, "", "" ,1,-1,0) Str = Replace(Str, " ", " " ,1,-1,0) Str = Replace(Str, "+", "" ,1,-1,0) Str = Replace(Str, "'", "" ,1,-1,0) Str = Replace(Str, "", "" ,1,-1,0) Str = Replace(Str, ",", "" ,1,-1,0) Str = Replace(Str,";","" ,1,-1,0) Str = Replace(Str,":","" ,1,-1,0) Str = Replace(Str," ","" ,1,-1,0) Str = Replace(Str,"/","" ,1,-1,0) Str = Replace(Str,"\","" ,1,-1,0) Str = Replace(Str,"(","" ,1,-1,0) Str = Replace ","" ,1,-1,0) Str = Replace(Str,"`","" ,1,-1,0) Str = Replace(Str,"=","" ,1,-1,0) Str = Replace(Str,"-","" ,1,-1,0) Str = Replace(Str,"&","" ,1,-1,0) Str = Replace(Str,"%","" ,1,-1,0) Str = Replace(Str,"+","" ,1,-1,0) Str = Replace(Str,"!","" ,1,-1,0) Str = Replace(Str,"#","" ,1,-1,0) Str = Replace(Str,"<","" ,1,-1,0) Str = Replace(Str,">","" ,1,-1,0) Str = Replace(Str," ","" ,1,-1,0) Str = Replace(Str,"And","" ,1,-1,0) Str = Replace(Str,"'","" ,1,-1,0) Str = Replace(Str, Chr(34),"" ,1,-1,0) Str = Replace(Str, Chr(39),"" ,1,-1,0) Str = Replace(Str,".","" ,1,-1,0) Str = Replace(Str,"?","" ,1,-1,0) Str = Replace(Str,",","" ,1,-1,0) Str = Replace(Str," ","-" ,1,-1,0) Str = Replace(Str," ","-" ,1,-1,0) Str = Replace(Str,"--","-" ,1,-1,0) seo = Str End Function Set istekurl = Request. ServerVariables istekbolum = Split istekbolum2=istekbolum(3) parcala=split(istekbolum2,"-") id=parcala(1) %> İçerik Kısmı <% veritabaniyolu = "x. mdb" Set baglantimiz = Server. CreateObject baglantimiz. open "DRIVER= ;DBQ=" & server. mappath Set rs = Server. CreateObject sql="select from tb1 where id="& id &"" rs. Open sql, baglantimiz,1,3 if rs. eof or rs. bof then response. write "byle bir kayıt yok" else %> <%=rs %> <% end if rs. close set rs = nothing %> Yorum Kısmı <% Function avla hedef = Replace(hedef,"''","",1,-1,1) hedef = Replace(hedef,"'","",1,-1,1) hedef = Replace(hedef,"#","",1,-1,1) hedef = Replace(hedef," ","",1,-1,1) hedef = Replace (hedef,"`","",1,-1,1) hedef = Replace (hedef,"&","",1,-1,1) hedef = Replace (hedef,"'","",1,-1,1) hedef = Replace (hedef,"Chr(34)","",1,-1,1) hedef = Replace (hedef,"Chr(39)","",1,-1,1) avla=trim end function veritabaniyolu = "x. mdb" Set baglantimiz = Server. CreateObject baglantimiz. open "Provider=Microsoft. Jet. OLEDB.4.0; Data Source=" & Server. MapPath yazan=Request. Form mesaj=Request. Form set kayit = server. createObject sql = "SELECT From tb1yorum" kayit. open sql, baglantimiz, 1,3 if Request. QueryString ="yorumkaydet" Then Kayit. addnew kayit = avla(request. form kayit =avla(request. form kayit =id if yazan="" then Response. Redirect else if mesaj="" then Response. Redirect else kayit. update Response. Redirect kayit. close set kayit = Nothing end if end if end if %> < ="?islem=yorumkaydet" method="post"> < id="yazan" name="yazan" ="text" /> < id="mesaj" name="nesaj" ="text" /> < id="Submit" name="Submit" ="submit" value="Gnder" /> > Yapılan yorumların sıralanması <% Vt_Yol=Server. Mappath Set Baglantimiz=Server. CreateObject Baglantimiz. Open "DBQ="& Vt_Yol & ";Driver= " Set yor=Server. CreateObject Sor = "Select From tb1yorum where userid="& id &" order by id desc" yor. Open sor, Baglantimiz,1,3 Toplam = yor. RecordCount ' Tablodaki kayıt sayısı yor. PageSize =10 If Toplam = 0 Then Response. Write "İlk Yorumu Sen Yap" Else %> <% for k=1 to yor. pagesize %> <% if yor. eof or yor. bof then exit for %> <%=yor %> <%=yor %> <% yor. movenext Next %> <% end if yor. close set yor = nothing %>

Al burdan buyur işini grürhttp://www.duckload.com/download/5633585/Yorum. zip Akilli olanlar sebepler konusunda tartışırlar. Ama nihai kararı sonuçta sürekli aptallar verir...!

asp bilen yok mu?