<%@ LANGUAGE="VBSCRIPT" %>
<%
SN = Gen_SNr
SK = Gen_SumKon(SN)
%>
TOMB RAIDER PL
Formularz zgłoszeniowy
Wystarczy wpisać znane odpowiedzi do odpowiednich pól
po czym podać swoje dane i zaakceptować formularz. Życzymy powodzenia.
<%
function Gen_SNr
dim rndVal
dim rndValStr
dim StrDateTime
Randomize
rndVal = Int((9 * Rnd) + 1)
rndValStr = Cstr(rndVal)
StrDateTime = Cstr(Day(Now)) & Cstr(Hour(Now)) & Cstr(Minute(Now)) & Cstr(Second(Now))
Gen_SNr = rndValStr & StrDateTime
end function
function Gen_SumKon(SN)
dim i
dim sum1, sum2
dim sum_k1, sum_kon
sum1 = 0
for i = 1 to Len(SN)
sum1 = sum1 + CInt(Mid(SN,i,1))
next
prze_w_prawo = CInt(Right(CStr(sum1),1))
sum_kon = ""
sum2 = CLng(SN) \ 7
for i = 1 to Len(CStr(sum2))
sum_k1 = CInt(Mid(CStr(sum2),i,1)) + prze_w_prawo
if sum_k1 >= 10 then
sum_kon = sum_kon & Right(CStr(sum_k1),1)
else
sum_kon = sum_kon & CStr(sum_k1)
end if
next
Gen_SumKon = Cstr(sum_kon)
end function
%>
