Quids Julkalender - Lucka <%= Request.Querystring("id") %>
">
">
<%
vMonth = 12
vToday = 24
IF NOT vMonth = 12 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
IF isNumeric(Request.Querystring("id")) = FALSE THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
IF Request.Querystring("id") < 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
IF InStr(Request.Querystring("id"),",") > 1 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
IF cINT(Request.Querystring("id")) > vToday THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
IF cINT(Request.Querystring("id")) > 24 THEN Response.Redirect("http://www.qn2.se/quidsjulkalender/2011/") END IF
SELECT CASE Request.Querystring("id")
CASE 1
vMovie = "PoJ3bRK1yeI"
CASE 2
vMovie = "GQA6lOPcsoM"
CASE 3
vMovie = "NOBbe-9ltUY"
CASE 4
vMovie = "AEbC_eroujM"
CASE 5
vMovie = "zvtRJvqQqg0"
CASE 6
vMovie = "vDVf8q-bvig"
CASE 7
vMovie = "20Tnig7fFWA"
CASE 8
vMovie = "LXLJef2jx9A"
CASE 9
vMovie = "gcZW5jtlzu0"
CASE 10
vMovie = "ooj8oFqLD8U"
CASE 11
vMovie = "S_GqbaILwzg"
CASE 12
vMovie = "gCg5BKjwH50"
CASE 13
vMovie = "J-qTbOtNSPs"
CASE 14
vMovie = "mTeuC_OwWTU"
CASE 15
vMovie = "EHqIM8Qbo6s"
CASE 16
vMovie = "NkuFAZY5Z3w"
CASE 17
vMovie = "4hvCU7l86T0"
CASE 18
vMovie = "hjMtWjwnnjo"
CASE 19
vMovie = "Spt7x4Otbec"
CASE 20
vMovie = "HOOduQFJCt0"
CASE 21
vMovie = "wQlWvJt4T7c"
CASE 22
vMovie = "fSCT4B-CMjk"
CASE 23
vMovie = "ncXYSl3z0zc"
CASE 24
vMovie = "bmXKs_XGBDk"
CASE ELSE
vMovie = "ESqU6rh2MDM"
END SELECT
%>