SQL Launcher

Nogen ideer til hvorfor det her ikke virker. Det virker kun ved SELECT OD DELETE - ikke ved UPDATE og INSERT.

<div style="height:330;overflow: auto;">

<%
strSQL = request.form("SQL")

if Len(Trim(strSQL)) > 0 then

    if Left(ucase(trim(strSQL)),6) = "SELECT" then
        set ObjRec = objConn.Execute(trim(strSQL))
        Response.write "<table><tr>"
        For each f in ObjRec.fields
            response.write "<th>"
            Response.write f.Name
            response.write "</th>"
        Next
        Response.write "</tr>"
        While not objRec.EOF
            response.write "<tr>"
            For each f in objRec.Fields
                response.write "<td>"
                response.write f.value
                response.write "</td>"
            Next
            response.write "</tr>"
            objRec.MoveNext
        Wend
               
        objRec.close
        set objRec = nothing
           
        response.write "</table>"
       
    else
        response.write "<strong>Følgende blev eksekveret:</strong> "& strSQL &"<br><br>"
        objConn.Execute(strSQL)
    end if
   
end if %>


<form action="" method="post">
    <textarea rows="10" cols="90" name="SQL" id="small_textarea"></textarea><br><br>
    <input type="submit" value="OK" id="smallbutton">
</form>

</div>

/Kovalt