hava durumu çok acil

msecure · 12.11.2003

<%
'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

absconder · 12.11.2003

acil olduğu için; geliştirilebilir;

not : Kamusal İnternet Kullanımı bakmanı tavsiye ederim...

Kod:

<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254">
<% 
Class H 
	dim ilAdi, sicaklikAlt, sicaklikUst, resim
end Class

dim iller() 
for i=1 to 3 
	redim preserve iller(i) : set iller(i) = new H 
next

iller(1).ilAdi = "Ankara" :  iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir"

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 

URL = "http://www.tr.net" 
strHTML = GETHTTP(URL) 

If Err.Number <> 0 Then 
	Response.Write "Bağlantı Başarısız... " 
	Response.End 
End If 

function havaDurumu(il)
	ilNo = ilGetir(il)
	x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>")
	y = split(x(1),"</table>")
	z = split(y(0),chr(10))
	q = split(temizle(replace(z(ilNo),"""","")),",")
	w = split(q(3)," ")
	q(2) = left(q(2),len(q(2)) - 1)
	s = split(q(2),"/")
	set havadurumu = new H
	havaDurumu.ilAdi = il
	havaDurumu.sicaklikAlt = s(0)
	havaDurumu.sicaklikUst = s(1)
	havaDurumu.resim = w(0)
end function

function temizle(args)
	tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",")
	tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",")
	tmp = replace(tmp,"C</td><td><img src=",",")
	temizle = tmp
end function

function ilGetir(args)
	tmp = 0
	for i= 1 to 3
		if args = iller(i).ilAdi then tmp = i
	next
	ilGetir = tmp
end function

response.write "--- Örnek Gösterimler ---<br>"
response.write havaDurumu("Ankara").ilAdi & "<br>" & havaDurumu("İstanbul").sicaklikAlt & "<br>" & havaDurumu("İzmir").sicaklikUst & "<br>" &  havaDurumu("İzmir").resim

response.write "<br><br><br>herhangi bir il için<br><br>"
response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt  & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>"
%>

msecure · 12.11.2003

<%
if request.ServerVariables("QUERY_STRING")<>"" then
il=request("il")
if il="YOK" then
il="Ankara"
end if
else
il="ANKARA"
end if
%>

<body bgcolor="#7B8EA5" leftmargin="0" topmargin="0" >
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="161"> <div align="center"><font color="#000000" size="2" face="Arial">
<%
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
URL = "http://www.meteor.gov.tr/pages/"&il&".htm"
bilgicek = GETHTTP(URL)

cekilen=mid(bilgicek,1,1961)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=InStr(1,bilgicek,"</h1>" )
sehir=mid(bilgicek,1,bitis-1)
bilgicek= Replace(bilgicek, sehir, "", 1, -1, 0)

cekilen=mid(bilgicek,1,320+len(sehir))
bilgicek=Replace(bilgicek,cekilen,"", 1,-1,0)
bitis=Instr(1,bilgicek,".")
saat=mid(bilgicek,bitis-2,bitis+1)
bitis=Instr(1,bilgicek,"<")
tarih=mid(bilgicek,1,bitis-1)
bilgicek=Replace(bilgicek,tarih,"",1,-1,0)
bitis=InStr(1,bilgicek,"<br>" )

cekilen=mid(bilgicek,1,bitis+3)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
drm=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,drm,"",1,-1,0)
cekilen=mid(bilgicek,1,74)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=Instr(1,bilgicek,"<")
isi=mid(bilgicek,1,bitis-3)
bitis=Instr(1,bilgicek,"Nem")
bitis=bitis+25
cekilen=mid(bilgicek,1,bitis)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
nem=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,nem,"",1,-1,0)
%>
<font color="#FFFFFF">Anlara Sıcaklık <%=isi%> °C</font></font></div></td>
</tr>
</table>
</body>

Bu kod ile aslında meteorolojiden geliyor fakat hata çok alıyorum onun nedenini anlayamadım.
Senin kodunda gerekli olan yer sadece sicaklık yani text ankara önüne sıcaklık gelicek o kadar bana lazım olan yer, senin koduda ayıkladım ama çalışmadı

absconder · 12.11.2003

en son satırdaki

Kod:

response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt  & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>"

satırını kaldır. diğer kodları sayfanın içine yerleştir. sonrada ilin ismini yazacağın yere

<%=havaDurumu("Ankara").ilAdi %>

en düşük sıcaklığı yazan yere

<%=havaDurumu("Ankara").sicaklikAlt%>

en yüksek sıcaklığı yazacağın yere

<%=havaDurumu("Ankara").sicaklikUst%> yaz, çalışacaktır. bende bir hata yok,.

eğer biraz daha beklersen, kendi sitemde bu üç ilin sıcaklıklarını XML olarak yerleştireceğim, ordan da kullanabilirsin.

absconder · 12.11.2003

bu arada verdiğin, mesela,

http://www.meteor.gov.tr/pages/ANKARA.htm

sayfası güncellenmiyor. haberin olsun. onun yerine

http://www.meteor.gov.tr/2003/iller/ANKARA.htm

adresi güncel bir adrestir. ama içerik text değil image...

msecure · 12.11.2003

yarın da zamanım var bu iş için bana haber verirsen sevinirim

absconder · 12.11.2003

aşağıda kendi sitemdeki kullandığımı veriyorum, aşağıdaki kodlar yardımı ile kullanabilirsin. bu JavaScript versiyondur. tr.net çalıştığı sürece doğru sonuçlar verecektir.

HTML Code:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254">
<script src="http://www.sipidik.com/material/havadurumu.ASP?usage=JavaScript" language="JavaScript"></script>
</head>

<body>
il1 = Ankara<br>
il2 = İstanbul<br>
il3 = İzmir<br><br>
<script>document.write(il2.ilAdi + " : " + il2.sicaklikAlt + "/" + il2.sicaklikUst +" °C");</script>
</body>
</HTML>

eğer XML olarak kullanmak istersen : http://www.sipidik.com/material/hava....asp?usage=XML

msecure · 14.11.2003

bunlar çalışmıyor ?

absconder · 14.11.2003

bu kodlar bende [=localde] ve internette çalışıyor. eğer ASP olarak çalıştıramıyorsa küçük birkaç yardımcı 'de anlattığım şekilde JavaScript yada XML olarak kullanabilirsin. www.tr.net e bağlanacağına benim siteme bağlanıp burdan verileri alabilirsin.

<%
Class H
dim ilAdi, sicaklikAlt, sicaklikUst, resim
end Class

dim iller()
for i=1 to 3
redim preserve iller(i) : set iller(i) = new H
next

iller(1).ilAdi = "Ankara" : iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir"

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

URL = "http://www.tr.net"
strHTML = GETHTTP(URL)

If Err.Number <> 0 Then
Response.Write "Bağlantı Başarısız... "
Response.End
End If

function havaDurumu(il)
ilNo = ilGetir(il)
x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>")
y = split(x(1),"</table>")
z = split(y(0),chr(10))
q = split(temizle(replace(z(ilNo),"""","")),",")
w = split(q(3)," ")
q(2) = left(q(2),len(q(2)) - 1)
s = split(q(2),"/")
set havadurumu = new H
havaDurumu.ilAdi = il
havaDurumu.sicaklikAlt = s(0)
havaDurumu.sicaklikUst = s(1)
havaDurumu.resim = w(0)
end function

function temizle(args)
tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",")
tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",")
tmp = replace(tmp,"C</td><td><img src=",",")
temizle = tmp
end function

function ilGetir(args)
tmp = 0
for i= 1 to 3
if args = iller(i).ilAdi then tmp = i
next
ilGetir = tmp
end function
%>
<table><tr><td><%=havaDurumu("Ankara").ilAdi%>&nbs p; <%=havaDurumu("Ankara").sicaklikAlt%>/<%=havaDurumu("Ankara").sicaklikUst%> <img src="<%=havaDurumu("Ankara").resim%>"></td></tr></table>

msecure · 15.11.2003

Yardımın için teşekkür ederim. Halloldu sayende

12.11.2003	#1 (permalink)
msecure Üyelik Tarihi: 17.05.2000 Yer: Ankara Yaş: 39 Mesaj: 546	hava durumu çok acil <% '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 __________________ Gerçekçi olun, imkansızı isteyin... cgcircle.com - Digital Tasarım Dergisi

12.11.2003	#3 (permalink)
msecure Üyelik Tarihi: 17.05.2000 Yer: Ankara Yaş: 39 Mesaj: 546	<% if request.ServerVariables("QUERY_STRING")<>"" then il=request("il") if il="YOK" then il="Ankara" end if else il="ANKARA" end if %> <body bgcolor="#7B8EA5" leftmargin="0" topmargin="0" > <table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="161"> <div align="center"><font color="#000000" size="2" face="Arial"> <% 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 URL = "http://www.meteor.gov.tr/pages/"&il&".htm" bilgicek = GETHTTP(URL) cekilen=mid(bilgicek,1,1961) bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0) bitis=InStr(1,bilgicek,"</h1>" ) sehir=mid(bilgicek,1,bitis-1) bilgicek= Replace(bilgicek, sehir, "", 1, -1, 0) cekilen=mid(bilgicek,1,320+len(sehir)) bilgicek=Replace(bilgicek,cekilen,"", 1,-1,0) bitis=Instr(1,bilgicek,".") saat=mid(bilgicek,bitis-2,bitis+1) bitis=Instr(1,bilgicek,"<") tarih=mid(bilgicek,1,bitis-1) bilgicek=Replace(bilgicek,tarih,"",1,-1,0) bitis=InStr(1,bilgicek,"<br>" ) cekilen=mid(bilgicek,1,bitis+3) bilgicek=replace(bilgicek,cekilen,"",1,-1,0) bitis=Instr(1,bilgicek,"<") drm=mid(bilgicek,1,bitis-1) bilgicek=replace(bilgicek,drm,"",1,-1,0) cekilen=mid(bilgicek,1,74) bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0) bitis=Instr(1,bilgicek,"<") isi=mid(bilgicek,1,bitis-3) bitis=Instr(1,bilgicek,"Nem") bitis=bitis+25 cekilen=mid(bilgicek,1,bitis) bilgicek=replace(bilgicek,cekilen,"",1,-1,0) bitis=Instr(1,bilgicek,"<") nem=mid(bilgicek,1,bitis-1) bilgicek=replace(bilgicek,nem,"",1,-1,0) %> <font color="#FFFFFF">Anlara Sıcaklık <%=isi%> °C</font></font></div></td> </tr> </table> </body> Bu kod ile aslında meteorolojiden geliyor fakat hata çok alıyorum onun nedenini anlayamadım. Senin kodunda gerekli olan yer sadece sicaklık yani text ankara önüne sıcaklık gelicek o kadar bana lazım olan yer, senin koduda ayıkladım ama çalışmadı __________________ Gerçekçi olun, imkansızı isteyin... cgcircle.com - Digital Tasarım Dergisi

12.11.2003	#4 (permalink)
absconder Üyelik Tarihi: 09.12.2000 Yer: istanbul Yaş: 30 Mesaj: 1,874	en son satırdaki Kod: response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>" satırını kaldır. diğer kodları sayfanın içine yerleştir. sonrada ilin ismini yazacağın yere <%=havaDurumu("Ankara").ilAdi %> en düşük sıcaklığı yazan yere <%=havaDurumu("Ankara").sicaklikAlt%> en yüksek sıcaklığı yazacağın yere <%=havaDurumu("Ankara").sicaklikUst%> yaz, çalışacaktır. bende bir hata yok,. eğer biraz daha beklersen, kendi sitemde bu üç ilin sıcaklıklarını XML olarak yerleştireceğim, ordan da kullanabilirsin. __________________ "oturduğum mahallenin yolları çamurluydu, boyalı ayakkabı giysem bile, o yollardan geçtikten sonra çamurlanmamaları mümkün değildi. hayatım da böyle." yılmaz güney http://www.sipidik.com

12.11.2003	#5 (permalink)
absconder Üyelik Tarihi: 09.12.2000 Yer: istanbul Yaş: 30 Mesaj: 1,874	bu arada verdiğin, mesela, http://www.meteor.gov.tr/pages/ANKARA.htm sayfası güncellenmiyor. haberin olsun. onun yerine http://www.meteor.gov.tr/2003/iller/ANKARA.htm adresi güncel bir adrestir. ama içerik text değil image... __________________ "oturduğum mahallenin yolları çamurluydu, boyalı ayakkabı giysem bile, o yollardan geçtikten sonra çamurlanmamaları mümkün değildi. hayatım da böyle." yılmaz güney http://www.sipidik.com

12.11.2003	#6 (permalink)
msecure Üyelik Tarihi: 17.05.2000 Yer: Ankara Yaş: 39 Mesaj: 546	yarın da zamanım var bu iş için bana haber verirsen sevinirim __________________ Gerçekçi olun, imkansızı isteyin... cgcircle.com - Digital Tasarım Dergisi

12.11.2003	#7 (permalink)
absconder Üyelik Tarihi: 09.12.2000 Yer: istanbul Yaş: 30 Mesaj: 1,874	aşağıda kendi sitemdeki kullandığımı veriyorum, aşağıdaki kodlar yardımı ile kullanabilirsin. bu JavaScript versiyondur. tr.net çalıştığı sürece doğru sonuçlar verecektir. HTML Code: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254"> <script src="http://www.sipidik.com/material/havadurumu.ASP?usage=JavaScript" language="JavaScript"></script> </head> <body> il1 = Ankara<br> il2 = İstanbul<br> il3 = İzmir<br><br> <script>document.write(il2.ilAdi + " : " + il2.sicaklikAlt + "/" + il2.sicaklikUst +" °C");</script> </body> </HTML> eğer XML olarak kullanmak istersen : http://www.sipidik.com/material/hava....asp?usage=XML __________________ "oturduğum mahallenin yolları çamurluydu, boyalı ayakkabı giysem bile, o yollardan geçtikten sonra çamurlanmamaları mümkün değildi. hayatım da böyle." yılmaz güney http://www.sipidik.com

14.11.2003	#8 (permalink)
msecure Üyelik Tarihi: 17.05.2000 Yer: Ankara Yaş: 39 Mesaj: 546	bunlar çalışmıyor ? __________________ Gerçekçi olun, imkansızı isteyin... cgcircle.com - Digital Tasarım Dergisi

14.11.2003	#9 (permalink)
absconder Üyelik Tarihi: 09.12.2000 Yer: istanbul Yaş: 30 Mesaj: 1,874	bu kodlar bende [=localde] ve internette çalışıyor. eğer ASP olarak çalıştıramıyorsa küçük birkaç yardımcı 'de anlattığım şekilde JavaScript yada XML olarak kullanabilirsin. www.tr.net e bağlanacağına benim siteme bağlanıp burdan verileri alabilirsin. <% Class H dim ilAdi, sicaklikAlt, sicaklikUst, resim end Class dim iller() for i=1 to 3 redim preserve iller(i) : set iller(i) = new H next iller(1).ilAdi = "Ankara" : iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir" 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 URL = "http://www.tr.net" strHTML = GETHTTP(URL) If Err.Number <> 0 Then Response.Write "Bağlantı Başarısız... " Response.End End If function havaDurumu(il) ilNo = ilGetir(il) x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>") y = split(x(1),"</table>") z = split(y(0),chr(10)) q = split(temizle(replace(z(ilNo),"""","")),",") w = split(q(3)," ") q(2) = left(q(2),len(q(2)) - 1) s = split(q(2),"/") set havadurumu = new H havaDurumu.ilAdi = il havaDurumu.sicaklikAlt = s(0) havaDurumu.sicaklikUst = s(1) havaDurumu.resim = w(0) end function function temizle(args) tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",") tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",") tmp = replace(tmp,"C</td><td><img src=",",") temizle = tmp end function function ilGetir(args) tmp = 0 for i= 1 to 3 if args = iller(i).ilAdi then tmp = i next ilGetir = tmp end function %> <table><tr><td><%=havaDurumu("Ankara").ilAdi%>&nbs p; <%=havaDurumu("Ankara").sicaklikAlt%>/<%=havaDurumu("Ankara").sicaklikUst%> <img src="<%=havaDurumu("Ankara").resim%>"></td></tr></table> __________________ "oturduğum mahallenin yolları çamurluydu, boyalı ayakkabı giysem bile, o yollardan geçtikten sonra çamurlanmamaları mümkün değildi. hayatım da böyle." yılmaz güney http://www.sipidik.com

15.11.2003	#10 (permalink)
msecure Üyelik Tarihi: 17.05.2000 Yer: Ankara Yaş: 39 Mesaj: 546	Yardımın için teşekkür ederim. Halloldu sayende __________________ Gerçekçi olun, imkansızı isteyin... cgcircle.com - Digital Tasarım Dergisi