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/2015/") END IF
IF isNumeric(Request.Querystring("id")) = FALSE THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2015/") END IF
IF Request.Querystring("id") < 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2015/") END IF
IF InStr(Request.Querystring("id"),",") > 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2015/") END IF
IF cINT(Request.Querystring("id")) > vToday THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2015/") END IF
IF cINT(Request.Querystring("id")) > 24 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2015/") END IF
SELECT CASE Request.Querystring("id")
CASE 1
vMovie = "4piGdDZeeBs"
CASE 2
vMovie = "dc-Ed52DLQI"
CASE 3
vMovie = "XdtoEMFlXUE"
CASE 4
vMovie = "I6otagSYOa0"
CASE 5
vMovie = "2aV_EyYlNo4"
CASE 6
vMovie = "_WT52AZPfY8"
CASE 7
vMovie = "414hEiudYtg"
CASE 8
vMovie = "WLDqLpP2_hQ"
CASE 9
vMovie = "zkx5p50H-nM"
CASE 10
vMovie = "d3IN5A4Tx-M"
CASE 11
vMovie = "TLxOe8NNXxk"
CASE 12
vMovie = "dQfM3pkqCZc"
CASE 13
vMovie = "PPIwZpfQ2bs"
CASE 14
vMovie = "zdj5FnOfjFQ"
CASE 15
vMovie = "xIVUNNYaZT0"
CASE 16
vMovie = "YR3gWyHltKU"
CASE 17
vMovie = "aKQc72Z8t64"
CASE 18
vMovie = "wzFXYSYSpek"
CASE 19
vMovie = "rYKZS7QuwuY"
CASE 20
vMovie = "N5QsKZmMrSU"
CASE 21
vMovie = "7M6XgJHOn5Q"
CASE 22
vMovie = "Z041AuV9eWo"
CASE 23
vMovie = "NxO4t86WtSY"
CASE 24
vMovie = "F_Mc2F8bkho"
CASE ELSE
vMovie = "89XhlnICOMk"
END SELECT
%>