Quids Julkalender - Lucka <%= Request.Querystring("id") %>
">
i årets bästa julkalender?">
">
<%
vMonth = Month(now())
vToday = Day(now())
vMonth = 12
vToday = 24
IF NOT vMonth = 12 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
IF isNumeric(Request.Querystring("id")) = FALSE THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
IF Request.Querystring("id") < 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
IF InStr(Request.Querystring("id"),",") > 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
IF cINT(Request.Querystring("id")) > vToday THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
IF cINT(Request.Querystring("id")) > 24 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2014/") END IF
SELECT CASE Request.Querystring("id")
CASE 1
vMovie = "TSyguQqjUNs"
CASE 2
vMovie = "MmFuo3KoiUE"
CASE 3
vMovie = "usgIqMsRQSY"
CASE 4
vMovie = "ckU3fSngJm0"
CASE 5
vMovie = "55ex6pLrmsY"
CASE 6
vMovie = "WvRvKb5Wmec"
CASE 7
vMovie = "BV9QZqF7_DM"
CASE 8
vMovie = "Rsdv5TiHmC8"
CASE 9
vMovie = "3x4JuAAt1fo"
CASE 10
vMovie = "hIvOgdD3-XI"
CASE 11
vMovie = "8B6SqEc0PvA"
CASE 12
vMovie = "JZbjyEpYLIA"
CASE 13
vMovie = "XUapVg7V1fM"
CASE 14
vMovie = "ZOZ_AlST3s4"
CASE 15
vMovie = "6jUfEVH-pOQ"
CASE 16
vMovie = "-Tartn_1dqM"
CASE 17
vMovie = "5tSMTLVsQ6A"
CASE 18
vMovie = "0x1hWQSBv8k"
CASE 19
vMovie = "rNjoTUSbKgc"
CASE 20
vMovie = "eqo3H7zxVxE"
CASE 21
vMovie = "J2POqNkKOyk"
CASE 22
vMovie = "-DnC-zEYYbg"
CASE 23
vMovie = "F6qv6KdPGE8"
CASE 24
vMovie = "XKeF2t7jOnQ"
CASE ELSE
vMovie = "TSyguQqjUNs"
END SELECT
%>