ASP function og fejl

Du kunne tyde på du kalder den med forkert antal paramter eks.

function aktiveringskode (param1, param2, param3)
..
end function


og du kalder den med:

aktiveringskode (var1)

så vi den fejl komme.

min function:

<%
function aktiveringskode(aktive)

if aktive = "ny" then
Randomize
int1 = Int(Rnd * 10)
Select Case int1 
case "0"
Tal1 = "a"
case "1"
Tal1 = "b"
case "2"
Tal1 = "c"
case "3"
Tal1 = "d"
case "4"
Tal1 = "e"
case "5"
Tal1 = "f"
case "6"
Tal1 = "g"
case "7"
Tal1 = "h"
case "8"
Tal1 = "i"
case "9"
Tal1 = "j"
End select

Randomize
int2 = Int(Rnd * 10)
Select Case int2
case "0"
Tal2 = "0"
case "1"
Tal2 = "1"
case "2"
Tal2 = "2"
case "3"
Tal2 = "3"
case "4"
Tal2 = "4"
case "5"
Tal2 = "5"
case "6"
Tal2 = "6"
case "7"
Tal2 = "7"
case "8"
Tal2 = "8"
case "9"
Tal2 = "9"
End select

Randomize
int3 = Int(Rnd * 10)
Select Case int3
case "0"
Tal3 = "0"
case "1"
Tal3 = "1"
case "2"
Tal3 = "2"
case "3"
Tal3 = "3"
case "4"
Tal3 = "4"
case "5"
Tal3 = "5"
case "6"
Tal3 = "6"
case "7"
Tal3 = "7"
case "8"
Tal3 = "8"
case "9"
Tal3 = "9"
End select

Randomize
int4 = Int(Rnd * 10)
Select Case int4
case "0"
Tal4 = "03"
case "1"
Tal4 = "1d"
case "2"
Tal4 = "24"
case "3"
Tal4 = "3n"
case "4"
Tal4 = "4d"
case "5"
Tal4 = "5k"
case "6"
Tal4 = "6a"
case "7"
Tal4 = "7e"
case "8"
Tal4 = "8b"
case "9"
Tal4 = "9e"
End select

Randomize
int5 = Int(Rnd * 10)
Select Case int5
case "0"
Tal5 = "0e"
case "1"
Tal5 = "1i"
case "2"
Tal5 = "2f"
case "3"
Tal5 = "3b"
case "4"
Tal5 = "4e"
case "5"
Tal5 = "5o"
case "6"
Tal5 = "6x"
case "7"
Tal5 = "7s"
case "8"
Tal5 = "8h"
case "9"
Tal5 = "9j"
End select

Randomize
int6 = Int(Rnd * 10)
Select Case int6
case "0"
Tal6 = "aa"
case "1"
Tal6 = "br"
case "2"
Tal6 = "cr"
case "3"
Tal6 = "dg"
case "4"
Tal6 = "en"
case "5"
Tal6 = "fc"
case "6"
Tal6 = "gn"
case "7"
Tal6 = "hr"
case "8"
Tal6 = "im"
case "9"
Tal6 = "je"
End select
'166

aktiveringskode = Tal1 & Tal2 & Tal3 & Tal4 & Tal5 & Tal6
else
aktiveringskode = "pass007"
End If
end function
%>


Fremkaldelse:

aktiveringskode = aktiveringskode(ny)

aktiveringskode = aktiveringskode("ny")

den kode trænger vist til, at blive optimeret er lille smule..

hov din variabel hedder det samme som din funktion

kode = aktiveringskode("ny")

Ja som squashguy vist... der skal " omkring ny og du må ikke også bruger functionnavnet som variablenavn .

Oki.. Takker.. Virker.. Weeee... :D

squashguy lig lige et svar :)

okay

du kan evt prøve at optimere lidt...

str = "abcdefghij"
Randomize
c = Mid(str, Int(Rnd * 10)+1, 1)

Oki..