select og update

Når jeg trykker på min knap B1 køre dette
Det skal tjekke for om det pågældende spil (SpilID's vinder er fundet hvis den er det skrive det nederste ellers skal der køres en update (sql2)
<%
If request.form("B1") <> "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("spildatabase.mdb")
SQL = "select * from spil where SpilID = "& SpilID &" and vinder ''"
Set rs = Conn.Execute(SQL)
if rs.eof then
sql2 = "UPDATE spil SET vinder='" & Request.Form("D1") & "' WHERE SpilID = " & SpilID & ""
Conn.Execute(sql2)
Response.redrect "vinder.asp"
else
Response.write ("Spillet er afsluttet og vinderen er fundet!")
Response.redrect "vinder.asp"
end if
end if
%>