<%
'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP =
server.CreateObject("
Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tr.net"
haberim = GETHTTP(URL)
haberim = Replace(haberim,"Ankara" , "Ankara" )
If Err.Number <> 0 Then
Response.Write "Bağlantı Başarısız... "
Response.End
End If
dim baslangic , bitis
baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"
bitis = "</table>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</table>"
%>
Şöyle bir kod var hava durumunu getiriyor ama ben 3 ilin değil sadefce mesela ankaranin gelmesini istiyorum ayrıca background ayarlarını da yapmak istiyorum öneriniz var mı? Çok acil
