Quids Julkalender - Lucka <%= Request.Querystring("id") %>
">
">
<%
vMonth = 12
vToday = 24
IF NOT vMonth = 12 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
IF isNumeric(Request.Querystring("id")) = FALSE THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
IF Request.Querystring("id") < 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
IF InStr(Request.Querystring("id"),",") > 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
IF cINT(Request.Querystring("id")) > vToday THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
IF cINT(Request.Querystring("id")) > 24 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2013/") END IF
SELECT CASE Request.Querystring("id")
CASE 1
vMovie = "UlNWTWa5jiQ"
CASE 2
vMovie = "nYMaiVOV-R4"
CASE 3
vMovie = "RAyqrmkwN1I"
CASE 4
vMovie = "uR131rkOjb4"
CASE 5
vMovie = "siWAwoo6GCw"
CASE 6
vMovie = "85P59sQ30YY"
CASE 7
vMovie = "kc_v7lpbN8M"
CASE 8
vMovie = "UF0G5OY6SI4"
CASE 9
vMovie = "S7QQc2Xps5k"
CASE 10
vMovie = "2JYwEGH87lQ"
CASE 11
vMovie = "xhzRJXwkTLg"
CASE 12
vMovie = "s2_HHCJG0B4"
CASE 13
vMovie = "FNHy4Jlq0Vg"
CASE 14
vMovie = "-vT3Jv1D_g4"
CASE 15
vMovie = "Tp4HWAJaVK8"
CASE 16
vMovie = "E8Vhil5pQa4"
CASE 17
vMovie = "dr8Rs3j4--A"
CASE 18
vMovie = "wf4CZTis8sg"
CASE 19
vMovie = "kI2bx3OeHYs"
CASE 20
vMovie = "S4VDtCBjzqM"
CASE 21
vMovie = "tR5OLJqoBKY"
CASE 22
vMovie = "KnXY9A23rLw"
CASE 23
vMovie = "1fZteYgUPFY"
CASE 24
vMovie = "KoLjtswO4Ko"
CASE ELSE
vMovie = "hT4ht-ljgHE"
END SELECT
%>