Webmaster Forumu

Geri git   Webmaster Forumu > Webmaster Kaynak Eğitim Tanıtım Hizmet > İnternet Programlama ve Kodlama > PHP

PHP PHP & PHP Hızlandırıcılar

Cevapla
 
LinkBack Seçenekler Stil
  #1 (permalink)   iTrader 
Alt 2006-04-23, 11:46
Carpediem - ait Kullanıcı Resmi (Avatar)
Member
 
Üyelik tarihi: Apr 2005
Mesajlar: 208
Tecrübe Puanı: 3
iTrader: %100/3
Carpediem is an unknown quantity at this point
Exclamation ASPtear Bağlantı Sorunu

Güncel haberleri yayınlamak için aşağıdaki kodu aldım ve çalıştırmak istedim fakat bütün çabalarıma rağmen hata verdi.. En sonunda forumdan sormaya karar verdim yardımcı olur iseniz sevinirim.

<%
alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt"

Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" )

nereden="Güncel Ön Sayfa"
nereye="+UYUM YASASI"

baslanacakyer=InStr(bilgicek,+Genel)+15
bitecekyer=InStr(bilgicek,+Genel)
baslangic=0
son=0
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekye r-baslanacakyer)

For a= 1 To 100

t=Len(alinacakbolum)

If t<=0 Then
exit For
End If

c=InStr(alinacakbolum,Chr(10))

If c<=0 Then
exit For
End If

alinacakbolum=Right(alinacakbolum,t-c)

baslangic=InStr(alinacakbolum,"/news/./" )
son=InStr(alinacakbolum,Chr(10))

If baslangic<=0 or son<=0 or son<baslangic Then

Else
satir=Mid(alinacakbolum,baslangic,son-baslangic)
If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then
Else
ekle=ekle & satir & "<br>"
End If
End If

Next

ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1)
ekle=Replace(ekle,"|" ,"'>" ,1,-1,1)
ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1)

Response.Write "<font face=verdana size=1 color=black>" & ekle & "</font>"

%>


====== Aldığım Hata ==========

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/haber.asp, line 15
__________________
http://www.iyibir.net
Alıntı ile Cevapla

  #2 (permalink)   iTrader 
Alt 2006-04-23, 13:42
Developer - ait Kullanıcı Resmi (Avatar)
Platinum Member
 
Üyelik tarihi: Feb 2006
Nerden: Istanbul
Mesajlar: 2.080
Tecrübe Puanı: 4
iTrader: %100/7
Developer will become famous soon enough
Standart

15. satırda Mid() parantezi içindeki biticekye r bu şekilde arada boşluk kalmış
r yi bitiştirirsen sorun kalmaz.
__________________
Gelecek Çok .Net
Alıntı ile Cevapla

  #3 (permalink)   iTrader 
Alt 2006-04-23, 14:49
GoTcHA - ait Kullanıcı Resmi (Avatar)
Member
 
Üyelik tarihi: Nov 2005
Mesajlar: 485
Tecrübe Puanı: 3
iTrader: %0/0
GoTcHA is on a distinguished road
Standart

ayrıca mid() fonksiyonunda işleyeceğin string null gelirsede hata verir...
__________________
Yeni Proje Kodluyorum...
Alıntı ile Cevapla

  #4 (permalink)   iTrader 
Alt 2006-04-23, 21:08
Carpediem - ait Kullanıcı Resmi (Avatar)
Member
 
Üyelik tarihi: Apr 2005
Mesajlar: 208
Tecrübe Puanı: 3
iTrader: %100/3
Carpediem is an unknown quantity at this point
Standart

Yardımların için teşekkür ederim
__________________
http://www.iyibir.net
Alıntı ile Cevapla

Cevapla

Seçenekler
Stil


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
php ile ms sql server a bağlantı seperate PHP 3 2007-09-07 08:46
Gmail ve Google Adsense Bağlantı sorunu Seal Gmail Gtalk 4 2007-08-23 09:25
Localde Mysql Bağlantı Sorunu. kara_baskan Web Hosting Kurulum Donanım Yazılım 14 2006-07-22 18:01
Bu sponsor bağlantı mı????? siirvehikaye Ortaklık Affliate 7 2006-06-17 10:22
Bileşen- aspjpg -jmail-asptear-asp image-..... cengizzz Web Hosting Kurulum Donanım Yazılım 21 2005-11-18 12:04


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 02:42 .


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0

Firefox