<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Dance"
CurrentComp = 0
' Find current competition (if exists)
SQLQuery = "SELECT * FROM Comps"
Set RSComps = conn.Execute(SQLQuery)
Do While Not RSComps.EOF
If RSComps("Current") = True Then
CurrentComp = RSComps("CompID")
End If
RSComps.MoveNext
Loop
Set RSComps = Nothing
If CurrentComp <> 0 Then
SQLQuery = "SELECT * FROM Comps WHERE CompID = " & CurrentComp
Set RSComp = conn.Execute(SQLQuery)
End If
%>
Dance.Com.1 - Win Free Stuff
