transaktionsfejl

Jeg har for første gang forsøgt mig med transaktioner, men den kommer med en fejl:

Fejl: Transaction cannot have multiple recordsets with this cursor type. Change the cursor type, commit the transaction, or close one of the recordsets.

Her er koden:
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
LokaleNavn = request.querystring(\"LokaleNavn\")
Indgang = request.queryString(\"Indgang\")
Personer = request.queryString(\"Personer\")
Beskrivelse = request.queryString(\"Beskrivelse\")

\'Connection til Personaleaendringernes database paa Sql-Serveren
Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.open \"DSN=BookingData;uid=sa;pwd=;APP=BookingDB;Database=BookingDB\"

conn.BeginTrans

On Error Resume Next

sql = \"INSERT INTO VaegKombination (KombiNavn, Indgang, Personer, Beskrivelse) VALUES (\'\" & LokaleNavn & \"\', \'\" & Indgang & \", \" & Personer & \", \'\" & Beskrivelse & \"\');\" & \"<br>\"
response.write sql
conn.execute(sql)

sql = \"SELECT KID FROM VaegKombination ORDER BY KID DESC;\"
set rs = conn.execute(sql)
KID = rs(\"KID\")

sql = \"INSERT INTO Lokaler (LokaleNavn) VALUES (\'\" & LokaleNavn & \"\');\" & \"<br>\"
response.write sql
conn.execute(sql)

sql = \"SELECT LID FROM Lokaler ORDER BY LID DESC;\"
set rs = conn.execute(sql)
LID = rs(\"LID\")

sql = \"INSERT INTO LokalerKombi (KID, LID) VALUES (\'\" & KID & \"\', \'\" & LID & \"\');\" & \"<br>\"
response.write sql
conn.execute(sql)

if Err <> 0 then
    response.write \"Fejl: \" & Err.Description
    conn.RollbackTrans
    response.end
else
    conn.CommitTrans
    response.write \"<h3>Lokalet er oprettet</h3>\"
end if

rs.close
conn.close
%>
<br>
<a href=\"Opret.htm\">Tilbage til reservation</a>
</body>
</html>

efter hvad jeg kan se har jeg kun ét recordset åbent, men der må være en eller anden fejl.....