Selamlar, iyi çalışmalar


Örnek bir hesap makinesi uygulaması yaptım.Herşey sorunsuz çalışıyor sadece bir sayıyı 0 ile bölme ihtimaline karşı bir hata mesajı verdirmeye çalışıyorum ama istediğim gibi çalışmıyor.Uygulama hata veriyor.Nerede yanlışlık yaptığım ve nasıl düzelteceğim konusunda yardımcı olur musunuz?

Sayfa1 kodları


<%
AlinanHata=request.querystring("hata")
%>

<%

if AlinanHata=1 then
response.write "İlgili alanları doldurunuz!!!"
elseif AlinanHata=2 then
response.write "Birinci Sayıyı girmediniz!!!"
elseif AlinanHata=3 then
response.write "İkinci Sayıyı girmediniz!!!"
elseif AlinanHata=4 then
response.write "Bir sayıyı 0'a bölemezsiniz"
End if
%>



Sayı1
Sayı2


Toplama
Çıkarma
Çarpma
Bölme
Mod alma

Sayfa2 kodları


<%
sayi1=request.form("sayi1")
sayi2=request.form("sayi2")
islem=request.form("islem")



if sayi1&sayi2="" then
response.redirect "HspMakinesiİslem.asp?hata=1"
elseif sayi1="" then
response.redirect "HspMakinesiİslem.asp?hata=2"
elseif sayi2="" then
response.redirect "HspMakinesiİslem.asp?hata=3"
elseif sayi2="0"& islem=4 then
response.redirect "HspMakinesiİslem.asp?hata=4"
end if


Select case islem
case 1
sonuc=Cint(sayi1)+Cint(sayi2)
case 2
sonuc=sayi1-sayi2
case 3
sonuc=sayi1*sayi2
case 4
sonuc=int(sayi1/sayi2)
case 5
sonuc=sayi1 mod sayi2
End Select
%>

<% ="İşlem sonucu=" & sonuc %>