set ObjConn = Server.CreateObject ("ADODB.Connection")
strConnDriver="Driver={Microsoft Access Driver (*.mdb)};"
strConnPath="DBQ=" & Server.MapPath ("./db/DataB.mdb")
objConn.Open strConnDriver & strConnPath
set RS = Server.CreateObject ("ADODB.RecordSet")
Dim ID
ID=Session("ID")

strSQL = "SELECT * FROM Kommentarer"
RS.Open strSQL, objConn, 2, 2
RS.AddNew

RS("Overskrift")=Request.Form("Overskrift")
RS("Tekst")=Request.Form("Tekst")
RS("Navn")=Request.Form("Navn")
RS("IP")=Request.ServerVariables("REMOTE_HOST")
RS("Dato")=Date
RS("Vis")=TRUE
RS("CommentID")=Session("ID")

RS.Update
RS.Close

    strSQL = "SELECT * FROM Forum WHERE ID = " & ID
    RS.Open strSQL, objConn, 2, 2
    Nyt Antal=RS("Antal") +1
    RS("Antal")=Nyt Antal
    RS.Update
    RS.Close
    objConn.Close
    set RS = nothing
    set objConn = nothing

    Response.Redirect "./Forside.asp"
%>