ASP kişisel sitemde admin paneline girmiyor :(

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'koru'
/admin/Default.asp, line 9


aynen bu hatayı veriyor ya nasıl çözücem:S

integere text girmeye çalışıyo olabilirsiniz kodları yazarmısınız bi

<%
select case koru(request("giris"))
case "kontrol"
kullanici=koru(request.form("kullanici"))
parola=koru(request.form("parola"))
if kullanici="" or parola="" then
uyari="Lütfen Boþ Alan Býrakmayýn!"
else
set rs=baglanti.execute("select * from site where kullanici='"&kullanici&"' and parola='"&parola&"'")
if rs.eof then
uyari="Kullanýcý Adý veya Parolanýz Yanlýþ.Lütfen Bilgilerinizi Kontrol Ediniz!"
else
session("giris")="yapildi"
session.timeout=500
session("kullanici")=rs("kullanici")
session.timeout=500
session("id")=rs("id")
session.timeout=500
response.redirect("default.asp")
end if
end if
end select
%>


olay burda..

koru fonksiyonu yok ya koru fonksiyonu yazın yada koru( olan yerleri silin