geçersiz yordam çağrısı veya değişken: 'mid'

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Geçersiz yordam çağrısı veya değişken: 'Mid'

Kod Alanı:

<%
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , "http://www.mynet.com", false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(URL)

basla="<title>MYNET'e"
bitir="MYNET A.Ş.' ye Aittir."
itibaren = Instr(site,basla)
ekadar = Instr(site,bitir)
site = Mid(site,itibaren,ekadar-itibaren)

%>

<%=site%>

Ama hata veriyor.
Microsoft VBScript çalışma hatası (0x800A0005)
Geçersiz yordam çağrısı veya değişken: 'Mid'
/xml/Default.asp, line 17

Yardımcı olur musunuz?

Hosting Sponsorumuz - Noktahost internet hizmetleri