4 domaini bedava vericem(güncel başlık)

<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"
Set alma = CreateObject("SOFTWING.ASPtear" )
Session.CodePage = 1254

On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
Session.CodePage = 1254
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
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 "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>

<%
private  Function GETHTTP(kadi) 
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )  
    StrHTTP.Open "GET" , kadi, false  
    StrHTTP.sEnd  
    GETHTTP = StrHTTP.Responsetext  
Set StrHTTP = Nothing  
End Function  


haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"


haberim = gethttp(haberurl)



If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
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 "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>

<?php
## .... Söz-Müzik : haymac ;)

/*
1 Koç 
2 Boğa 
3 İkizler 
4 Yengeç 
5 Aslan 
6 Başak 
7 Terazi 
8 Akrep 
9 Yay 
10 Oğlak 
11 Kova 
12 Balık 
*/

$Fallar = array("","Koç","Boğa","İkizler","Yengeç","Aslan","Başak","Terazi","Akrep","Yay","Oğlak","Kova","Balık");

$FalKodu = '1';  // Fallar a göre düzenle

$Adres = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=$FalKodu";

## .... Desenler
$BurcDeseni = "|\<td\>\<p\salign\=\"center\"\>\<img\ssrc=\"\.\.\/images\/([a-z-A-z]+)\.gif\"\>\<\/td\>|si";
$GunDeseni = "|\<p.+><big><big><font.+>(.+)</font><\/big><\/big><\/p>|si";
$FalDeseni = "|\<p><font\scolor=\"#000000\"\sface=\"Arial\sNarrow\"><strong><big>(.+)<br>\s</big></strong></font>|si";

## .... Php değil ie'yim ben Tanımadınmı ?
@ini_set('user_agent', 'Mozilla/4.0 (compatible; MSIE 6.0;)');

## .... Veri Al

$icerik = file_get_contents($Adres);

## .... Formatla

preg_match($BurcDeseni,$icerik,$BurcCikti);
preg_match($GunDeseni,$icerik,$GunCikti);
preg_match($FalDeseni,$icerik,$FalCikti);

## .... Al Sana Değişkenler

$burc =$BurcCikti[1];
$TRburc = $Fallar[$FalKodu];
$gun = str_replace(' - Bugün','',$GunCikti[1]);
$fal = $FalCikti[1];

?>