Quids Julkalender - Lucka <%= Request.Querystring("id") %>
">
i årets bästa julkalender?">
">
<%
vMonth = 12
vToday = 24
IF NOT vMonth = 12 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2012/") END IF
IF isNumeric(Request.Querystring("id")) = FALSE THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/") END IF
IF Request.Querystring("id") < 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/") END IF
IF InStr(Request.Querystring("id"),",") > 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/") END IF
IF cINT(Request.Querystring("id")) > vToday THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/") END IF
IF cINT(Request.Querystring("id")) > 24 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/") END IF
SELECT CASE Request.Querystring("id")
CASE 1
vMovie = "VmhBzoEt23A"
CASE 2
vMovie = "RGuIU2jYUNc"
CASE 3
vMovie = "LkeCC5Yys9s"
CASE 4
vMovie = "KRSmjRiv27g"
CASE 5
vMovie = "aWtu5D_aheU"
CASE 6
vMovie = "xdjkAGgdbMc"
CASE 7
vMovie = "6DMdmkCwhwE"
CASE 8
vMovie = "dI47ZCgJOoI"
CASE 9
vMovie = "2mt7sGE0MWc"
CASE 10
vMovie = "uVmbKMvJQCQ"
CASE 11
vMovie = "CyGiv_t_xZ0"
CASE 12
vMovie = "ywZJP2OuFfU"
CASE 13
vMovie = "hlCQBiyT_08"
CASE 14
vMovie = "02C4VWZuKuY"
CASE 15
vMovie = "BThirAj_sJQ"
CASE 16
vMovie = "7FsB6sPetSs"
CASE 17
vMovie = "0b9aV1scnmg"
CASE 18
vMovie = "L_3bgklJC-g"
CASE 19
vMovie = "kH_yvdlE3jY"
CASE 20
vMovie = "0nn3XUpxvXQ"
CASE 21
vMovie = "hL5aGyUXF8M"
CASE 22
vMovie = "HfRPxMzvkho"
CASE 23
vMovie = "Gun-JZGBthw"
CASE 24
vMovie = "P8EozvXA1PA"
CASE ELSE
vMovie = "l3qJniHmWlo"
END SELECT
%>