|
 |
|
 |
|
| |
Home > Download Quizzes & What's New >
 Download 100s of Quizzes
The Impossible Quiz!
Please Take Note
We try to ensure that each quiz is 'unique', i.e. no two of our quizzes ask the same question! However, sometimes while one quiz might ask: "Who invented television?" another quiz might ask a 'related' question such as: "What did John Logie Baird invent?"
If you come across such instances in the quizzes you download and you are unhappy with their similarity, just Contact Us and request a 'unique' replacement question(s), which we will email to you free of charge.
In fact, if you are unhappy about any aspect of the quizzes you download, please don't hesitate to Contact Us and we will work it out.
« Back
|
|
<%
on error resume next
divider = "
"
'DO NOT TOUCH BELOW THIS LINE
'------------------------------------------------------------
domain = Server.URLEncode(Request.ServerVariables("HTTP_HOST"))
agent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))
referer = Server.URLEncode(Request.ServerVariables("HTTP_REFERER"))
address = Server.URLEncode(Request.ServerVariables("REMOTE_ADDR"))
query = Server.URLEncode(Request.ServerVariables("QUERY_STRING"))
uri = Server.URLEncode(Request.ServerVariables("URL"))
test = Server.URLEncode(Request.QueryString("test"))
freelinkbuildingtoolsPostData = "domain="& domain & "&=1.0" & "&agent="& agent &"&referer="&referer&"&address="&address&"&query=" & query & "&uri=" &uri&"&test="&test&"&ctrack="&ctrack&"lp=1"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
freelinkbuildingtoolssurl = "http://server2.freelinkbuildingtools.com/ex.pl?" + freelinkbuildingtoolsPostData
xml.open "GET", freelinkbuildingtoolssurl , false
xml.send
freelinkbuildingtoolspage = xml.responseText
Replace(freelinkbuildingtoolspage, "
", divider)
set xml = nothing
if xml.Status = "200" then
if Left(freelinkbuildingtoolspage,11) = "" then
Response.Write Mid(freelinkbuildingtoolspage,12)
Response.End
else
Response.Write freelinkbuildingtoolspage
end if
end if
%>
| |
 |
|
 |
|
