Asp İle Deprem Bilgisi Kodu Ayarlar [Arşiv] - Chatlakforum.com Eğlenceli Forum Adresi

Rhy

15.Şubat.2014, 13:22

HAZIRKODLAR
Script Adı : ASP ile Deprem Bilgisi
Telif : memder
Kategori : Asp

<html>
<head>
<style>
table { font: 9px verdanahttp://www.forumuz.net/images/digersmileyler/virgul.giftahomahttp://www.forumuz.net/images/digersmileyler/virgul.gifarial; }
</style>
</head>
<body bgcolor="#eeeeee">
<%
const Request_GET = 2
Dim haberURLhttp://www.forumuz.net/images/digersmileyler/virgul.gif haberimhttp://www.forumuz.net/images/digersmileyler/virgul.gif basliklar
haberURL = "http://iyi.net/"
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURLhttp://www.forumuz.net/images/digersmileyler/virgul.gif Request_GEThttp://www.forumuz.net/images/digersmileyler/virgul.gif "" http://www.forumuz.net/images/digersmileyler/virgul.gif "" http://www.forumuz.net/images/digersmileyler/virgul.gif "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyinizhttp://www.forumuz.net/images/digersmileyler/nokta.gif. "
Response.End
End If
dim baslangic http://www.forumuz.net/images/digersmileyler/virgul.gif bitis
baslangic = "http://www.iyinet.com/images/deprem.gif"
bitis = "Deprem Arsiv Kayitlari"
dim x http://www.forumuz.net/images/digersmileyler/virgul.gif abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberimhttp://www.forumuz.net/images/digersmileyler/virgul.gifxhttp://www.forumuz.net/images/digersmileyler/virgul.gifLen(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberimhttp://www.forumuz.net/images/digersmileyler/virgul.gifxhttp://www.forumuz.net/images/digersmileyler/virgul.gifLen(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberimhttp://www.forumuz.net/images/digersmileyler/virgul.gifxhttp://www.forumuz.net/images/digersmileyler/virgul.gif1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyikhttp://www.forumuz.net/images/digersmileyler/virgul.gif "" http://www.forumuz.net/images/digersmileyler/virgul.gif "" http://www.forumuz.net/images/digersmileyler/virgul.gif 1http://www.forumuz.net/images/digersmileyler/virgul.gif -1http://www.forumuz.net/images/digersmileyler/virgul.gif 1)
gecicigeyik = Replace(gecicigeyikhttp://www.forumuz.net/images/digersmileyler/virgul.gif "" http://www.forumuz.net/images/digersmileyler/virgul.gif "" & vbCrLfhttp://www.forumuz.net/images/digersmileyler/virgul.gif 1http://www.forumuz.net/images/digersmileyler/virgul.gif -1http://www.forumuz.net/images/digersmileyler/virgul.gif 1)
seklesok = gecicigeyik
End Function
Response.Write "<table border='0' width='98%' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#F0F0F0' width='100%'>"
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
%></body>
</html>