The Official USA Web Site for the Joint Promotion of Portugal and Spain

Portugal

Alentejo
Algarve
Azores
Lisbon / Estoril
Central Portugal
Madeira
Porto
www.visitportugal.com

Spain

Andalusia
Balearic Islands
Barcelona
Canary Islands
Central Spain
Madrid
Valencia
www.spain.info

Click here for the Vacation details

Welcome <%=session("uname")%>

<% 'colllect data for list start sql="SELECT DISTINCT QuestionId FROM tblPlayAnswer WHERE PlayerId=" & session("id") Rs.Open sql,Conn,3,3 if not rs.eof then arr = rs.GetRows else dim arr(0,1) end if Rs.close sql="SELECT * FROM tblQuestions ORDER BY Qnumber" Rs.Open sql,Conn,3,3 dim qsList if not Rs.eof then do while not Rs.eof 'check if was published if Rs("IsPublish")="False" then qsList=qsList& "

"&Rs("Qnumber")&". "&Rs("Qpublish")&"

"& vbcrlf else 'check if answered For i=0 to UBound(arr,2) ' Response.Write "kiki = " & arr(0,i) & "
" if trim(arr(0,i)) = trim(Rs("id")) then 'response.write trim(Rs("Qnumber")) &"yes
" IsAns="1" 'for form, mark question as answered to prevent double entry if trim(QuestionId)= trim(Rs("Id")) then wasans="1" 'response.write wasans & "jhkhjk" &QuestionId&"-"& trim(Rs("Qnumber"))&wasans 'response.end exit for end if Next if IsAns="1" then'was answered select case Rs("correctA") case 1 Question = Rs("a1") case 2 Question = Rs("a2") case 3 Question = Rs("a3") case 4 Question = Rs("a4") end select 'if trim(Rs("Qlink"))<>"" then qsList=qsList& "

"&Rs("Qnumber")&". "&Question&"

" & vbcrlf 'else 'qsList=qsList& "

"&Rs("Qnumber")&". "&Question&"

" & vbcrlf 'end if else NoNew="1" qsList=qsList& "

"&Rs("Qnumber")&". Was not answered Answer

"& vbcrlf end if IsAns="0" end if Rs.movenext loop end if Rs.close 'colllect data for list end %>

<% 'show question start if trim(wasCorrect)="" and trim(dtl)="" then 'no new question if trim(NoNew)<>"1" then response.write "

We haven’t posted a new question yet, please refer to the
"&_ "questions list on the right for the next question release date and
"&_ "make sure to answer all missing questions to be eligible to win
"&_ "the Vacation.

"&_ "An email will be sent to you upon the release of the next question.
"&_ "Good Luck!

" 'write next q. date sql="SELECT TOP 1 qpublish FROM tblQuestions WHERE IsPublish=0 ORDER BY Qnumber" Rs.Open sql,Conn,3,3 if not Rs.eof then response.write "

Next Question will be posted on "& Rs("Qpublish") end if Rs.close response.write "

" else'no new dim clue,img,Qnumber,infolink,yoohoo img="pix.gif" if trim(request("qid"))<> "" then if not isnumeric(trim(request("qid"))) then response.redirect "login.asp" sql="SELECT * FROM tblQuestions WHERE IsPublish=1 AND id="&trim(request("qid")) else sql="SELECT TOP 1 * FROM tblQuestions WHERE IsPublish=1 ORDER BY Qnumber DESC" end if Rs.Open sql,Conn,3,3 if not Rs.eof then dim QuestionNum QuestionNum= "Question #"&Rs("Qnumber")&":

" &UndoNum(Rs("Question"))&"" 'radios radios=radios&"" for i = 1 to 4 radios=radios& "" next radios=radios&"

"&UndoNum(Rs("a"&i))&"

" if trim(Rs("Qimg")) <> "" then img= Rs("Qimg") else img="pix.gif" end if if trim(Rs("Qhint"))<>"" then clue="

Clue: "&UndoNum(trim(Rs("Qhint"))) end if yoohoo = Rs("CorrectA") if trim(Rs("Qlink"))<>"" then infolink="Get more information on "&Rs("a"&yoohoo)&"." end if QuestionId=Rs("id") rs.close end if %>

<%=QuestionNum%>
<%=radios%> <%=msg%>		<%if img<>"Pix.gif" then response.write "Hint: "%> <%=clue%>

<%end if'show Question end%> <%end if'no new%> <% 'correct answer start if trim(wasCorrect) = "1" then response.write "

Your answer is correct!

" 'write next q. date sql="SELECT TOP 1 qpublish FROM tblQuestions WHERE IsPublish=0 ORDER BY Qnumber" Rs.Open sql,Conn,3,3 if not Rs.eof then response.write "Next Question will be posted on "& Rs("Qpublish")&"

" end if Rs.close 'links sql="SELECT * FROM tblQuestions WHERE id="&QuestionId Rs.Open sql,Conn,3,3 if not Rs.eof then response.write "
Here are some useful links about "&Rs("a"&yoohoo)&":

" for i=1 to 6 if trim(Rs("Link"&i))<>"" then response.write i&". "&Rs("TxtLink"&i)&"
" end if next response.write"

" end if Rs.close response.write "

" end if 'correct answer end %> <% 'details for Question start if trim(dtl)<> "" then response.write "

Here are some useful links about " sql="SELECT * FROM tblQuestions WHERE id="&dtl Rs.Open sql,Conn,3,3 if not Rs.eof then select case Rs("correctA") case 1 response.write ""&Rs("a1")&"" case 2 response.write ""&Rs("a2")&"" case 3 response.write ""&Rs("a3")&"" case 4 response.write ""&Rs("a4")&"" end select response.write ":

" for i=1 to 6 if trim(Rs("Link"&i))<>"" then response.write i&". "&Rs("TxtLink"&i)&"
" end if next end if Rs.close 'write next q. date sql="SELECT TOP 1 qpublish FROM tblQuestions WHERE IsPublish=0 ORDER BY Qnumber" Rs.Open sql,Conn,3,3 if not Rs.eof then response.write "

Next Question will be posted on "& Rs("Qpublish") end if Rs.close response.write "

" end if 'details for Question end %>

Questions list:

<%=qsList%>

<% set Rs = Server.CreateObject("adodb.recordset") sql="SELECT Txt FROM tblMisc WHERE Id=1" Rs.Open Sql,Conn,3,3 if not Rs.eof then response.write "Winner draw:
"&Rs("Txt") end if Rs.close %>

Update my email | Opt-out

Site Built and Managed by Travel Spike