0
Kayıt Ol

Nerde hata yapıyorum.

25

●

2.322

  • 08-01-2009, 16:40:22
    #1
    Peksoft
    Peksoft
    Arkadaşlar ben örneğin r10'daki gibi "pr" olan kelimeleri "<acronym title="Page Rank">pr</acronym>" şeklinde replace etmeye çalışıyorum ama hata veriyo, bi türlü çözemedim hatayı. Kulandığım kod;
    <%
Set kelime = baglanti.execute("select * from acronym")

Function abc(ByVal strEntry)

do while not kelime.eof

kelime = kelime("acronym")
aciklama = kelime("aciklama")
asd = "<acronym title=""&aciklama&"">"&kelime&"</acronym>"

response.write strEntry = Replace(strEntry, ""&kelime&"", ""&asd&"")

kelime.movenext:loop
kelime.close:set kelime = nothing

abc = strEntry
End Function
%>
    Verdiği hata;
    Microsoft VBScript runtime  error '800a000d' 
  Type mismatch: 'kelime' 
  /acronym.asp, line 9
  • 08-01-2009, 20:59:35
    #2
    erkutarhan
    erkutarhan
    aynı değişkeni hem nesne hemde normal değişken kullanıon
    kelime1 de birine
  • 08-01-2009, 21:58:59
    #3
    Ron
    Ron
    9. satır hangisi onu da yazsaydın.
  • 09-01-2009, 00:29:15
    #4
    Peksoft
    Peksoft
    <%
    Set kelime = baglanti.execute("select * from acronym")

    Function     abc(ByVal strEntry)

    do while     not kelime.eof

    kelime     = kelime("acronym")
    aciklama = kelime("aciklama") '9. satır ---------------------------
    asd = "<acronym title=""&aciklama&"">"&kelime&"</acronym>"

    response.write strEntry = Replace(strEntry, ""&kelime&"", ""&asd&"")

    kelime.movenext:loop
    kelime    .close:set kelime = nothing

    abc     = strEntry
    End     Function
    %>


    Edit:     erkutarhan dediğin gibi yaptım oldu. Teşekkürler.

    Edit2: asp = Active Server Pages olarak ekliyorum. Sadece yazıdaki "asp" olan yerleri çeviriyo, Asp ve ASP olan yerlerinide, tek tek eklemeden, çevirttirebilirmiyim.
  • 09-01-2009, 03:29:30
    #5
    kubilay
    kubilay
    <%
    Set kelime = baglanti.execute("select * from acronym")

    Function     abc(ByVal strEntry)

    do while     not kelime.eof

    kelime2     = kelime("acronym")
    aciklama = kelime("aciklama") '9. satır ---------------------------
    asd = "<acronym title=""&aciklama&"">"&kelime2&"</acronym>"

    response.write strEntry = Replace(strEntry, ""&kelime2&"", ""&asd&"")

    kelime.movenext:loop
    kelime    .close:set kelime = nothing

    abc     = strEntry
    End     Function
    %>

    edit:     erkutarhan da aynı şeyi söylemiş
  • 09-01-2009, 03:32:30
    #6
    kubilay
    kubilay
    Peksoft adlı üyeden alıntı: mesajı görüntüle
    asp = Active Server Pages olarak ekliyorum. Sadece yazıdaki "asp" olan yerleri çeviriyo, Asp ve ASP olan yerlerinide, tek tek eklemeden, çevirttirebilirmiyim.
    önce lcase ile küçült:
    <%
    kubilay = "MERHABA GENÇLER"
    response.write lcase(kubilay)
    %>

    sonra istediğini yap kod yazmadım halledersin diye
  • 09-01-2009, 03:39:19
    #7
    Peksoft
    Peksoft
    lcase ile denemiştim, ama cümlenin ilk kelimesinide küçük yapıyo ozamanda iyi olmuyo.

    Mesela r10'daki; Seo, SEO, seo hepsinede acronym tagı eklemiş.
    Ben, Asp, ASP, asp olarak denemek için yazı ekledim siteme, lcase ile yapınca hepsini küçülttü. ucase yapsam büyütüyo. Yapmak istediğim;
    asp = Active Server Pages olarak acronym eklediğimde, ASP, asp ve Asp olanları replace etsin. Yani büyük küçük farketmesin, ya olduğu gibi görünsün yada göründüğü gibi olsun. :P
  • 09-01-2009, 03:51:06
    #8
    kubilay
    kubilay
    Peksoft adlı üyeden alıntı: mesajı görüntüle
    lcase ile denemiştim, ama cümlenin ilk kelimesinide küçük yapıyo ozamanda iyi olmuyo.

    Mesela r10'daki; Seo, SEO, seo hepsinede acronym tagı eklemiş.
    Ben, Asp, ASP, asp olarak denemek için yazı ekledim siteme, lcase ile yapınca hepsini küçülttü. ucase yapsam büyütüyo. Yapmak istediğim;
    asp = Active Server Pages olarak acronym eklediğimde, ASP, asp ve Asp olanları replace etsin. Yani büyük küçük farketmesin, ya olduğu gibi görünsün yada göründüğü gibi olsun. :P
    3lü kombinasyonda 3! = 6 , yani 6 tane replace kod ile hepsini yapabilirsin
  • 09-01-2009, 04:04:30
    #9
    Peksoft
    Peksoft
    Bildiğim tek çözüm;
    asp = Active Server Pages
    Asp = Active Server Pages
    ASP = Active Server Pages
    Buda uzun hikaye, eklemeye erindiğimden değil, çok olunca kasabilir. Lakin Allah'ın kötü php ile yapılmış vbulletin'inde varsa böyle bişey asp'de zaten vardır diye düşünüyorum.