Depremdede sizlere deprem konusundaki son
haberleri ve bilgileri verecek.Aynı zamada depremleri önceden
öğrenme konusunda da sizlere yardımcı olmaya çalışacak...
Depremdede, Marmara Bölgesi'nde
veya yakın bölümlerde olan 4 ve üzeri şiddetli depremleri
tahmin etme konusunda büyük başarı sağladı!!!
Aylık - haftalık olarak deprem
yorumları e-mail adresinize gelecek...
<%
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="+DEPREM"
baslanacakyer=InStr(bilgicek,nereden)+15
bitecekyer=InStr(bilgicek,nereye)
baslangic=0
son=0
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekyer-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"
End If
End If
Next
ekle=Replace(ekle,"/news/./" ,"" ,1,-1,1)
ekle=Replace(ekle,Chr(10),"" ,1,-1,1)
Response.Write "" & ekle & ""
%>
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://iyi.net/"
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "http://www.iyinet.com/images/deprem.gif"
bitis = "Deprem Arsiv Kayitlari"
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 "
"
.gif){kind=spacer}
Depremdede sizlerle!!!
İTÜ
' ce sürdürülen deprem tahmin projesi....
Son depremleri en
güvenilir yerden öğrenin...
