generer noget aktiverings tekst

<%
  randomize
  tal = int((Rnd * 1000) + 1)
%>

<%
function lavPassword(antal)
tilladtkarakter = "abcdefghijklmnopqrstuvwxyz"
str = ""
for i = 1 to antal
randomize
index = Int(rnd * len(tilladtkarakter))+1
str = str & Mid(tilladtkarakter,index,1)
next
lavPassword = str
end function
%>

Og den kaldes sådan her:

Response.Write lavPassword(8)

/Goose

finder et tilfældigt tal  mellem 1 og 1000

skulle bogstaver selvfølgelig hehe

Super tak. goose.

Det var så lidt, tak for point :o)

/Goose