Random tal

Jeg har brug for et script som kan give 3 udfald 1, 2 eller 3

Jeg har forsøgt med flg. uden resultat, får bare en blank side?


<%
AccessDataBase = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/system.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open AccessDataBase
    Set rs = Conn.Execute("SELECT * FROM members WHERE email = '"&replace(session("email"), "'", "''")&"' ")


arr = split("1,2,3",",")
randomize
tal = arr(Int(rnd*(ubound(arr)+1)))

if isnumeric(session("tal")) = 1 then
response.write ("1")
end if

if isnumeric(session("tal")) = 2 then
response.write ("2")
end if

if isnumeric(session("tal")) = 3 then
response.write ("3")
end if

    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing

  %>