<%
'//Burc gösterim fonksiyonu
'// Yazan Yasin Koyutürk - yasinkoyuturk.com
Function burc(Gelen)
if gelen="" then exit function
bolum=split(gelen," ")
gun=day(gelen)
ay=month(gelen)
If gun>20 and ay=3 or gun<21 and ay=4 Then
a="Koç"
b="koc"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>19 and ay=4 or gun<22 and ay=5 Then
a="Boğa"
b="boga"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>21 and ay=5 or gun<22 and ay=6 Then
a="İkizler"
b="ikizler"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>21 and ay=6 or gun<24 and ay=7 Then
a="Yengeç"
b="yengec"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=7 or gun<24 and ay=8 Then
a="Aslan"
b="aslan"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=8 or gun<24 and ay=9 Then
a="Başak"
b="basak"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=9 or gun<23 and ay=10 Then
a="Terazi"
b="terazi"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=10 or gun<23 and ay=11 Then
a="Akrep"
b="akrep"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=11 or gun<23 and ay=12 Then
a="Yay"
b="yay"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=12 or gun<21 and ay=1 Then
a="Oğlak"
b="oglak"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>20 and ay=1 or gun<20 and ay=2 Then
a="Kova"
b="kova"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>20 and ay=2 or gun<20 and ay=3 Then
a="Balık"
b="balik"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
End If
end function
%>
'//Burc gösterim fonksiyonu
'// Yazan Yasin Koyutürk - yasinkoyuturk.com
Function burc(Gelen)
if gelen="" then exit function
bolum=split(gelen," ")
gun=day(gelen)
ay=month(gelen)
If gun>20 and ay=3 or gun<21 and ay=4 Then
a="Koç"
b="koc"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>19 and ay=4 or gun<22 and ay=5 Then
a="Boğa"
b="boga"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>21 and ay=5 or gun<22 and ay=6 Then
a="İkizler"
b="ikizler"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>21 and ay=6 or gun<24 and ay=7 Then
a="Yengeç"
b="yengec"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=7 or gun<24 and ay=8 Then
a="Aslan"
b="aslan"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=8 or gun<24 and ay=9 Then
a="Başak"
b="basak"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>23 and ay=9 or gun<23 and ay=10 Then
a="Terazi"
b="terazi"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=10 or gun<23 and ay=11 Then
a="Akrep"
b="akrep"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=11 or gun<23 and ay=12 Then
a="Yay"
b="yay"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>22 and ay=12 or gun<21 and ay=1 Then
a="Oğlak"
b="oglak"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>20 and ay=1 or gun<20 and ay=2 Then
a="Kova"
b="kova"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
ElseIf gun>20 and ay=2 or gun<20 and ay=3 Then
a="Balık"
b="balik"
burc="<a href=""http://www.burc.web.tr/burclar/"&b&"-burcu.html"" target=""_blank""><img src=""img/burclar/"&b&".jpg"" border=""0"" alt="""&b&" burcu""><span class=normal_yazi>"&a&" burcu</span></a>"
End If
end function
%>