Alp : Çalışmadı hocam o sekıldede... Spark : Abi nasıl ckara bılırım peki :) bu arada yardımlarınız ıcın tesekkurler...

hocam şu dünyada içinde RTE bulunduran bitek hayırlı bişi var oda reno kangoo rte. RTE den uzak durD

private function'ı public function olarak değiştirip denesene bi

bu hatayi aldigin asp sayfasinda yani rte yi koyduğun sayfanın kodlarında rte do while dngüsünün yada asp de herhangi bir dngünün içine girmiş büyük ihtimal. ASP inan hiç bilmiyorum kardeşim while - end while yada ne bileyim bir dngü ve sonu arasında olan kodların arasında galiba bu rte onu dngünün içinden çıkarbaşka birşey diyemicem o sana kalmış :S asp yi sen bilmelisin ben sana mantığını sylüyorum.

ne public yap nede rte leri kaldır lucifer :D sen dediğim gibi rte yi dngü içinden çıkar sayfadan çaışıcak :)

Sen tüm RTE leri kaldır bak nasıl çalışacak I am free of all prejudice. I hate everyone equally

cok pardn :)60. satır boş arada yanlıs satır gosterıyor tarayıcı 61 var sayarak 61-64 arası kodları yazıyorum. Dim strUserAgent 'Holds info on the users browser 'Get the users HTTP user agent strUserAgent = Request. ServerVariables

: ya hiç anlamadım çalısanın functıon dosyasını kopyaladım gene olmadı orada hata verıyor :/ SpArK : hocam eline saglık yazmıssın anlatmaya calısmıssın ancak ben okadar bılgılı degılım sanırım anlamadım =)skyvalet: senn dedıgıne katılır gıbıyım hala cozemedım ya sende cok cektın herhalde RTE lerden... Simdi lucifer kardesim sana sorununu anlatayim ben çzdüm galiba biraz. Sen RTE yi sayfaya koyarken bu do while dngüsünün yada bir dngünün içinde değilmi?fakat şyle birşey var "The Web Wiz RTE " her sayfada 1 tane olabilir ve 1 kere çağrılabilir. Fakat muhtemelen senin kodlarında bu rte bir dngünün içinde vedngünün içinde olduğu için her dngü dndükçe yeni bir rte yaratmaya çalışır fakat webwiz bunu kabul etmez çünkü her sayfada 1 tane webwiz rte olabilir. Dngüdışına çıkardığında rte yi sorunun çzülücek büyük ihtimal.

ya hiç anlamadım çalısanın functıon dosyasını kopyaladım gene olmadı orada hata verıyor :/ SpArK : hocam eline saglık yazmıssın anlatmaya calısmıssın ancak ben okadar bılgılı degılım sanırım anlamadım =)skyvalet: senn dedıgıne katılır gıbıyım hala cozemedım ya sende cok cektın herhalde RTE lerden...

abi vallaha oyle loop falan bısıy yok yani cunku daha once calısıodu bu bende asp ıle ılgılı hıcbı ekleme yapmadım sadece html lerın arasna koydum kodları okadar sayfaya entegre ettım analmadım ya :S

Hocam 60. satırı frobtpagede fln acarsan bulursun bakmadan bişi diemeyiz neden hata verdiğini... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

60. Satır

merhaba aradaslar webwiz RTE kurdum daha once hıc sorun wermedı sayfaya entegre ettım boyle bır sorunla karsılastım... Szdizimi hatası/tr/functions/RTE_functions_common. asp, line 60, column 8Private Function RTEenabled Sz Konusu Kodlar <%' ' Copyright Notice' ' Web Wiz Guide - Web Wiz Rich Text Editor' http://www.richtexteditor.org' ' Copyright 2002-2005 Bruce Corkhill All Rights Reserved.' ' This program is free software; you can modify any part of it' under the terms of the License that accompanies this software and use it both' privately and commercially.' ' All copyright notices must remain in tacked in the scripts and the' outputted HTML.' ' You may use parts of this program in your own private work, but you may NOT' redistribute, repackage, or sell the whole or any part of this program even' if it is modified or reverse engineered in whole or in part without express' permission from the author.' ' You may not pass the whole or any part of this application off as your own work.' ' All links to Web Wiz Guide and powered by logo's must remain unchanged and in place' and must remain visible when the pages are viewed unless permission is first granted' by the copyright holder.' ' This program is distributed in the hope that it will be useful,' but WITHOUT ANY WARRANTY; without even the implied warranty of' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER' WARRANTIES WHETHER EXPRESSED OR IMPLIED.' ' You should have received a copy of the License along with this program;' if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.' ' ' No official support is available for this program but you may post support questions at: -' http://www.webwizguide.info/forum' ' Support questions are NOT answered by e-mail ever!' ' For correspondence or non support questions contact: -' info@webwizguide. info' ' or at: -' ' Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom' ' ' ' Rich Text Compatible Browser type ' Private Function RTEenabled Dim strUserAgent 'Holds info on the users browser 'Get the users HTTP user agent strUserAgent = Request. ServerVariables ' ' Windows Internet Explorer ' 'See if the user agent is IE on Winows and not Opera trying to look like IE If InStr(1, strUserAgent, "MSIE", 1) > 0 AND InStr(1, strUserAgent, "Win", 1) > 0 AND InStr(1, strUserAgent, "Opera", 1) = 0 Then 'Now we know this is Windows IE we need to see if the version number is 5.5 If Trim(Mid(strUserAgent, inStr(1, strUserAgent, "MSIE", 1)+5, 3)) = "5.5" OR Trim(Mid(strUserAgent, inStr(1, strUserAgent, "MSIE", 1)+5, 3)) = "5,5" Then RTEenabled = "winIE" 'Now we know this is Windows IE we need to see if the version number is 6 or above ElseIf CInt(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "MSIE", 1)+5), 1))) >= 6 Then RTEenabled = "winIE" 'Else the IE version is below 5 so return na Else RTEenabled = "false" End If ' ' Mozilla Firebird ' 'See if this is a version of Mozilla Firebird that supports Rich Text Editing under it's Midas API ElseIf inStr(1, strUserAgent, "Firebird", 1) Then 'Now we know this is Mozilla Firebird we need to see if the version 0.6.1 or above; relase date is above 2003/07/28 If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) >= 20030728 Then RTEenabled = "Gecko" 'Else the Mozilla Firebird version is below 1.5 so return false Else RTEenabled = "false" End If ' ' Mozilla Firefox/Seamonkey/Netscape ' 'See if this is a version of Mozilla/Netscape that supports Rich Text Editing under it's Midas API ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "Firebird", 1) = 0 AND isNumeric(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) Then 'Now we know this is Mozilla/Netscape we need to see if the version number is above 1.3 or above; relase date is above 2003/03/12 If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) => 20030312 Then RTEenabled = "Gecko" 'Else the Mozilla version is below 1.3 or below 7.1 of Netscape so return false Else RTEenabled = "false" End If ' ' Non RTE Enabled Browser ' 'Else this is a browser that does not support Rich Text Editing Else 'RTEenabled - false RTEenabled = "false" End If 'RTEenabled = "false"End Function' ' Random Hex Generator ' Private Function hexValue Dim intLoopCounter Dim strHexValue 'Randomise the system timer Randomize Timer 'Generate a hex value For intLoopCounter = 1 to intHexLength 'Genreate a radom decimal value form 0 to 15 intHexLength = CInt(Rnd 1000) Mod 16 'Turn the number into a hex value Select Case intHexLength Case 1 strHexValue = "1" Case 2 strHexValue = "2" Case 3 strHexValue = "3" Case 4 strHexValue = "4" Case 5 strHexValue = "5" Case 6 strHexValue = "6" Case 7 strHexValue = "7" Case 8 strHexValue = "8" Case 9 strHexValue = "9" Case 10 strHexValue = "A" Case 11 strHexValue = "B" Case 12 strHexValue = "C" Case 13 strHexValue = "D" Case 14 strHexValue = "E" Case 15 strHexValue = "F" Case Else strHexValue = "Z" End Select 'Place the hex value into the return string hexValue = hexValue & strHexValue NextEnd Function' ' Unsafe character Strip ' 'Function to strip non alphanumeric characters email addressesPrivate Function characterStrip 'Dimension variable Dim intLoopCounter 'Holds the loop counter 'Loop through the ASCII characters For intLoopCounter = 0 to 31 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the ASCII characters For intLoopCounter = 33 to 37 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the ASCII characters For intLoopCounter = 39 to 44 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the ASCII characters For intLoopCounter = 58 to 65 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the ASCII characters numeric characters For intLoopCounter = 91 to 94 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 123 to 125 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 127 to 255 strTextInput = Replace(strTextInput, CHR , "", 1, -1, 0) Next 'Strip individul ASCII characters left out from above strTextInput = Replace(strTextInput, CHR(59), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(60), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(62), "", 1, -1, 0) strTextInput = Replace(strTextInput, CHR(96), "", 1, -1, 0) 'Return the string characterStrip = strTextInput End Function%> hepınıze tesekkurler...

bide 60. satır hangisi onu gsterirsen tam süper olacak... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

merhaba aradaslar webwiz RTE kurdum daha once hıc sorun wermedı sayfaya entegre ettım boyle bır sorunla karsılastım... Szdizimi hatası/tr/functions/RTE_functions_common. asp, line 60, column 8Private Function RTEenabled gsterdiğin kodlar galiba ASP kodları ve malesef zerre kadar anlamıcağım için bakmadım bile fakat oop mantığından sana şunu syliyebilirimkieğer ASP de class ve objeler varsa, RTEenabled diye bir fonksiyon bir class ın üyesi ve bu fonksiyon private olarak belirlenmiş yani dışardan çağrılamaz mesela objen olsun obje_1 obje_1->RTEenabled ; yapınca eğer bu fonksiyon private ise ki hatayı o yüzden veriyor bir obje üzreinden vs vs herhangi bi yerden çağrılamaz ancak class ın içinden yada üyesi olduğu yerden çağrılabilir. Eğer sen bu kodlardan anlıyorsan ve byle birşey yapılmışsa, bu fonksiyon nereye üyeyse, üye üye olduğu sınırlar içinde başka bir public fonksiyon yazıp bu fonksiyonu çağırttır kardeşim :S umarım anlatabilmişimdir.