: 大丈夫2 Men Suddenly In Black 2 : 有獎問答 Quiz :

<% Option Explicit Response.Buffer = true Response.CacheControl = "Public" response.ContentType="text/html" response.Charset="big5" dim frmQ1, frmQ2, frmQ3, frmPlayer, frmTel, frmEmail frmQ1 = trim(Request.Form("Q1")) frmQ2 = trim(Request.Form("Q2")) frmQ3 = trim(Request.Form("Q3")) frmPlayer = trim(Request.Form("player")) frmTel = trim(Request.Form("tel")) frmEmail = trim(Request.Form("email")) if frmQ1 <> "" AND frmQ2 <> "" AND frmQ3 <> "" AND frmPlayer <> "" AND frmTel <> "" AND frmEmail <> "" then dim playerIP, playerSessionID, status dim sql, rs, Conn status = false playerIP = Request.ServerVariables("REMOTE_ADDR") playerSessionID = Session.SessionID %> <% sql="SELECT PlayerTel FROM Quiz WHERE PlayerTel = "&frmTel set Conn = DBConn() 'response.write sql&"
" set rs = Conn.Execute(sql) if not rs.eof then status = false response.write ""&chr(10) else status = true end if rs.close set rs = Nothing sql="SELECT PlayerIP, PlayerSessionID, CreateDate FROM Quiz WHERE PlayerIP = '"&playerIP&"' OR PlayerSessionID = '"&playerSessionID&"'" 'response.write sql&"
" set rs = Conn.Execute(sql) if not rs.eof then status = false if DateDiff("d", rs("CreateDate"), now()) < 1 then response.write ""&chr(10) else status = true end if end if rs.close set rs = Nothing if status = true then sql = "INSERT INTO Quiz (Q1, Q2,Q3, PlayerName, PlayerTel, PlayerEmail, PlayerIP, PlayerSessionID) VALUES ('"&frmQ1&"', '"&frmQ2&"', '"&frmQ3&"', '"&frmPlayer&"', "&frmTel&", '"&frmEmail&"', '"&playerIP&"', '"&playerSessionID&"')" 'response.write sql&"
" set rs = Conn.Execute(sql) set rs = Nothing response.write ""&chr(10) end if Call CloseDB(Conn) end if 'response.write ""&Server.MapPath(".")& "\db_msib2\promo_msib2.mdb" %> : 大丈夫2 Men Suddenly In Black 2 : 有獎問答 Quiz :

<%if DateDiff("s",Date,"9/5/2006") > 0 then %> <% else %>

大丈夫2有獎問答遊戲已經完滿結束，得獎名單公佈:

chan pingting	Chan Tsz Yuk	chan wai hung
Cheung Man Kit	cheung mei ki	Chow Yan Yee Grace
Chung Bun Bun	hao mei yuk maggie	Ho Man Shan
KWOK WING SZE	Lenug Wai Ching	or pui yan
WOO WAI YAN DEBBIE	YAU CHOR TUNG	文耀彤
余文青	吳俊昇	吳家怡
林霈靈	梁日應	黃啟康
黃震邦	楊文浩	蓋世豪
鄭世嘉	鄭德禮	黎寶汶
簡詠琪	羅永昌	羅穎華

* 以上得獎者將有專人聯絡領獎

<% end if %>