Forum
Aktif konular
Üyeler
Kurallar
Arama
Veritabanı Döngü Sonucunu Değişkene Atamak ASP Veritabanı Döngü Sonucunu Değişkene Atamak ASP
-
Artkadaşlar do while ile döndürdüğüm sonuçları değişkene atayarak kullanmak istiyorum nasıl yapabilirim?
-
mesela hacım? kodunu koyabilir misin?
-
<!-- #include file="ayar.asp"--> <% Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from kufur " rs.open SQL,baglanti,1,3 do while not rs.eof %> <%=rs("kufur")%>, <% rs.movenext loop%><%baslik=Request.form("baslik") icerik= Request.form("icerik") kelimeler="kufur" ayikla= Split(kelimeler,"," ) Say= Ubound(ayikla) Function temizle(deger) For i=0 To Say deger = Replace(deger, ayikla(i),"*****" ) Next temizle = deger End Function baslik= temizle(request.form("baslik")) icerik= temizle(request.form("icerik")) Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt/vt.mdb") set rs = server.createobject("ADODB.Recordset") sql="Select * FROM vt" rs.open sql,baglanti,1,3 rs.addnew rs("baslik") = baslik rs("icerik") = icerik rs("tarih") = now() rs.update rs.Close Set rs = Nothing Baglanti.Close Set Baglanti = Nothing Response.write "<br><br><br><center><img src=""images/ok2.png""><br>İşleminiz Tamamlanmıştır.</center>" %>küfürleri replace etmek istiyorum -
up up
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 863 Toplam Mesaj: 4
Cevapla