<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") %> <% objConn.Open %><% myID = 24 mySQL="SELECT NAME,GENRE,DESCRIPTION,IMAGE,W,H,STATUS,KEYWORDS,CONTROLS,URL,PLUGIN from udb_UDGAMES WHERE ID = "& myID set objRS=objConn.execute(mySQL) msgName=objRS(0) msgGenre=objRS(1) msgDescription=objRS(2) msgImage=objRS(3) msgWidth=objRS(4) msgHeight=objRS(5) msgStatus=objRS(6) msgKeywords=objRS(7) msgControls=objRS(8) msgURL=objRS(9) msgPlugin=objRS(10) %> <%=msgName%> - UNDERdog - Online 3D Games, 3D Browsergames & Webgames <% protect = Request.QueryString("protect") myDate=Day(Date)&"" if protect=myDate then %> <% else %>
<% end if %>

<%=msgName%>

Description back to game

Controls back to game

Player

<% if msgPlugin = "Unity" then %>

You'll need Unity for this game.

<% else %>

You'll need Shockwave for this game.

<% end if %> back to game
<% objConn.close set objConn=nothing %>