<%@ LANGUAGE = VBScript %><% Option Explicit %><%
Dim currentLevel, db, strKeywords
If Request.Cookies("player") = "" Then
Randomize Timer
Response.Cookies("player") = Rnd
Response.Cookies("player").Expires = "10/23/2037"
End If
Dim towerName
towerName = "Strength"
Set db = New Database
If Request.Cookies("tower") = "" Then
db.Read "SELECT word FROM star_words WHERE ratio > 0.9 ORDER BY used ASC LIMIT 1"
If Not db.rs.EOF Then
towerName = db.rs.Fields("word").Value
End If
db.Close
Response.Cookies("tower") = towerName
Response.Cookies("tower").Expires = "10/23/2037"
Else
towerName = Request.Cookies("tower")
End If
db.conn.execute("UPDATE star_words SET used = NOW() WHERE word = '" & Replace(towerName, "'", "''") & "'")
Set db = Nothing
towerName = UCase(Left(towerName, 1)) & LCase(Mid(towerName, 2))
%>
Tower of <%=towerName %>