et point

strUpdate = "UPDATE ark SET sjov = sjov + 1 WHERE user = "& session("user") &""
Conn.Execute(strUpdate)

Hvor skal sådan en sættes ind.
Jeg har den fil hvor man tilføjer og så har jeg den hvor den godkender.

Jeg vil da mene at det er den som godkender at jeg skal putte den i.
Er det rigtigt?

jep ... hvis den godkender den skal den opdatere det ark med dine brugere jo

Kan ikke rigtigt få det sat ind.

Her er den del der sender det sjove til databasen:
Hvor skal den være???


        <%
Response.Buffer = True

beskrivelse = Request("beskrivelse")
overskrift = Request("overskrift")
skrevet = Request("skrevet")
indledning = Request("indledning")
dato = Request("dato")
category = Request("category")
lavet = Request("lavet")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/lol.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From sjov"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
        <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                       
               
                if beskrivelse = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en beskrivelse!")
                else
               
                if indledning = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en indledning!")
                else
       
                if overskrift = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en overskrift!")
                else
                               
                if category = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal vælge en kategori!")
                end if
       
                    if beskrivelse <> "" AND overskrift <> "" AND indledning <> "" AND category <> "" then
                    rs.AddNew
                    rs("overskrift") = Request.form("overskrift")
                      rs("beskrivelse") = Request.form("beskrivelse")
                    rs("skrevet") = Request.form("skrevet")
                    rs("indledning") = Request.form("indledning")
                    rs("category") = Request.form("category")
                    rs("dato") = Request.form("dato")
                    rs("lavet") = Request.form("lavet")
                    rs.update
                    Response.Write("<b>Artiklen er nu godkendt og oprettet i systemet.<br> Du kan tilføje endnu en artikel ved at klikke her:<br><a href=tilfoj.asp><u>Tilføj Artikel</u></a>")
                    end if
                    end if
                    end if
                    end if
                    end if
                    %>

pointet skal sendes til en celle der hedder point i tabellen user.

hvad hedder den celle hvor den henter brugernavnet fra ?

username

Prøv:

<%
Response.Buffer = True

beskrivelse = Request("beskrivelse")
overskrift = Request("overskrift")
skrevet = Request("skrevet")
indledning = Request("indledning")
dato = Request("dato")
category = Request("category")
lavet = Request("lavet")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/lol.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From sjov"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
        <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                       
               
                if beskrivelse = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en beskrivelse!")
                else
               
                if indledning = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en indledning!")
                else
       
                if overskrift = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal skrive en overskrift!")
                else
                               
                if category = "" then
                    Response.Write("<font color=""#FF0000"">Fejl</font><br>Du skal vælge en kategori!")
                end if
       
                    if beskrivelse <> "" AND overskrift <> "" AND indledning <> "" AND category <> "" then
                    rs.AddNew
                    rs("overskrift") = Request.form("overskrift")
                      rs("beskrivelse") = Request.form("beskrivelse")
                    rs("skrevet") = Request.form("skrevet")
                    rs("indledning") = Request.form("indledning")
                    rs("category") = Request.form("category")
                    rs("dato") = Request.form("dato")
                    rs("lavet") = Request.form("lavet")
                    rs.update

            strUpdate = "UPDATE user SET point = point + 1 WHERE username = '"& session("user") &"'"
            Conn.Execute(strUpdate)


                    Response.Write("<b>Artiklen er nu godkendt og oprettet i systemet.<br> Du kan tilføje endnu en artikel ved at klikke her:<br><a href=tilfoj.asp><u>Tilføj Artikel</u></a>")
                    end if
                    end if
                    end if
                    end if
                    end if
                    %>

Hmm den ligger stadig ikke noget til.

Hvordan kan det være?

hvis du udskriver din update ved at rette

strUpdate = "UPDATE user SET point = point + 1 WHERE username = '"& session("user") &"'"
Conn.Execute(strUpdate)

til

strUpdate = "UPDATE user SET point = point + 1 WHERE username = '"& session("user") &"'"
Response.Write "<br><br>"& strUpdate &"<br><br>"
'Conn.Execute(strUpdate)

Hvad skriver den så ?

bingo.

Det var en afmine berømte taste fejl der gjorde det.

Mange tak.