ASP'de burcu kodlarla hesaplama

Foruma bu konu için ayrı bir konu açacaktım. Sonra cevap bekleyene kadar kendimiz yazalım dedik.

Kullanıcının doğum tarihini veritabanınıza kaydettiniz. Ayrıca burcunu da kaydetmenize gerek kalmadan bu kodlarla kullanıcının burcunu hesaplayabilirsiniz. İsterseniz formdan aldığınız veriyi de bu kodları uyarlayarak veritabanına kaydedebilirsiniz.

Kodda yazdığımız RecordSet("ay") veritabanından çektiğimiz kullanıcının doğduğu ay ve aynı şekilde RecordSet("gun") de kullanıcının doğum günü. RecordSet yerine kendi rs kodunuzu yazabilirsiniz.

<% 
ay=RecordSet("ay")
gun=RecordSet("gun")

If ay=12 And gun=>23 Or ay=1 And gun=<20 Then
response.write("Oğlak")
End If

If ay=1 And gun=>21 Or ay=2 And gun=<19 Then
response.write("Kova")
End If

If ay=2 And gun=>20 Or ay=3 And gun=<20 Then
response.write("Balık")
End If

If ay=3 And gun=>21 Or ay=4 And gun=<20 Then
response.write("Koç")
End If

If ay=4 And gun=>21 Or ay=5 And gun=<21 Then
response.write("Boğa")
End If

If ay=5 And gun=>22 Or ay=6 And gun=<21 Then
response.write("İkizler")
End If

If ay=6 And gun=>22 Or ay=7 And gun=<23 Then
response.write("Yengeç")
End If

If ay=7 And gun=>24 Or ay=8 And gun=<23 Then
response.write("Aslan")
End If

If ay=8 And gun=>24 Or ay=9 And gun=<23 Then
response.write("Başak")
End If

If ay=9 And gun=>24 Or ay=10 And gun=<22 Then
response.write("Terazi")
End If

If ay=10 And gun=>23 Or ay=11 And gun=<22 Then
response.write("Akrep")
End If

If ay=11 And gun=>23 Or ay=12 And gun=<22 Then
response.write("Yay")
End If
%>

Kolay gelsin.

eyw kardeş emeğine saglık