Skriv til to tabeller

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, 1, 3
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, 1, 3
    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"

Prøv med det!

//>Rune

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, 1, 3
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, 1, 3
    RS.AddNew
    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"

Nu ved jeg jo ikke om du får en fejl, eller hvad der er galt.. men hvis du oxo vil insætte en ny record i tabel nr. 2 så manglede du en RS.AddNew!

//>Rune

Er "Nyt Antal" en variabel med mellemrum ? dette er ikke lovligt.

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, 1, 3
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, 1, 3
    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"

På den anden side set, kan det oxo være pga. at du har en variabel som indeholder et mellemrum! Det må en variabel ikke!
//>Rune

Det var den med mellemrummet.


TAK

VesTer

Det var så lidt :-)

Anytime
Thx 4 Poinz

//>Rune