hvad er der galt her ??

Jeg skal bruge nedenstående som en test før jeg skal lave det samme med mange flere data.

<%

       
        strData = Request.form("T1")
        intData = Request.form("T2")
       
        set DB = Server.CreateObject("ADODB.Connection")
        DB.open "Driver={Microsoft Access Driver (*.mdb)};"&_
        "DBQ="&server.mappath("db/tips.mdb")&";"&_
        "DefaultDir="&server.mappath("./")&";FIL=MS Access;"
       
        SQL = "SELECT * FROM Spil30 WHERE ID = " & Session("ID") & ""

        Set RS = DB.Execute(SQL)

        if rs.eof then
        SQL = "INSERT INTO Spil30 (ID, strDATA, intDATA) VALUES (" & Session("ID") & ", '" & strData & "', " & intData & ")"
        else
        SQL = "UPDATE Spil30 SET strDATA = '" & strData & "', intDATA = " & intData & " WHERE ID = " & Session("ID") & ""
        end if

        RS.Close
        Set RS=nothing

        DB.Execute(SQL)

        DB.Close
        Set DB=nothing
        response.redirect ("tipsstart.asp")


%>