<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "kidsquare","","" sql="SELECT * FROM hunt where id = 1 order by score " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 score = 10000 name = "kids" if rs.fields("score") > 0 then if request("namewin2") <> "" and request("newhieght") <> "" and request("newhieght") > rs.fields("score") then sql = "UPDATE hunt SET name ='" & request("namewin2") & "' ,score=" & request("newhieght") if request ("email") <> "" then sql = sql & " ,email='" & request("email") & "'" else sql = sql & " ,email='webmaster@kidsquare.com'" end if sql= sql & " WHERE id=1" response.write sql Conn.Execute(sql) end if score = rs.fields("score") name = rs.fields("name") end if rs.close set rs = nothing Conn.close set conn =nothing %> Kidsquare.com--GAMES--


เกม Photo Hunt ที่ไซท์อื่น มีเยอะแยะเลยครับ เลือกกันตามใจชอบเลยครับ

ส่งเมล์บอกเพื่อน (Tell a friend) :

 

Click Here!