<%="HYTGNY"%>
<%
if request("query") <> "" then
if len(request("query")) = 11 then
dim tckimlikdize(11)
response.write "
"
for i = 1 to 11
tckimlikdize(i) = mid(request("query"),i,1)
response.write tckimlikdize(i) & " // "
next
response.write "
"
tekler = int(tckimlikdize(1)) + int(tckimlikdize(3)) + int(tckimlikdize(5)) + int(tckimlikdize(7)) + int(tckimlikdize(9))
ciftler = int(tckimlikdize(2)) + int(tckimlikdize(4)) + int(tckimlikdize(6)) + int(tckimlikdize(8))
t1 = (int(tekler)*3) + int(ciftler)
c1 = (10 - (int(t1) mod 10)) mod 10
t2 = int(c1) + int(ciftler)
t3 = (int(t2)*3) + int(tekler)
c2 = (10 - (int(t3) mod 10)) mod 10
if (CSTR(c1)= CSTR(tckimlikdize(10))) And (CSTR(c2)= CSTR(tckimlikdize(11))) then
Response.write "!!!!!!!!!!!! Geçerli !!!!!!!!!!!!!!!
"
ELSE
Response.write "!!!!!!!!!!!! Geçersiz !!!!!!!!!!!!!!!
"
END if
response.write "
"
response.write "Tekler = " & tekler & "
"
response.write "Çiftler = " & ciftler & "
"
response.write "T1= " & t1 & "
"
response.write "T2 = " & t2 & "
"
response.write "T3 = " & t3 & "
"
response.write "C1=" & c1 & "<->" & tckimlikdize(10) & ""
response.write "C2=" & c2 & "<->" & tckimlikdize(11) & ""
else
response.write "11 hane olmalı"
end if
end if
%>