Conn.Execute(strSQL)

Så vidt jeg kan se har du ikke Medl-Id med, altså passer antallet af værdier du angiver ikke.

...Det skal siges at alle felter var fuldet i request-formen...
Den kommer for sjov her:

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="nyhed-upload.asp">
  <p><b>Titel: <input type="text" name="T1" size="33"><br>
    Tekst: <textarea rows="12" name="S1" cols="27"></textarea> <br>
    Dato:  <input type="text" value="<%=date()%>" name="D1" size="33"> (<%=date()%>)</b></p>
    <p>
    </b></p>
    <p><b>Kilde: <input type="text" name="T2" size="33"><br>
    Link:&nbsp; <input type="text" name="T3" size="33"><br>
    <br>
    Bruger: <!-- #include file= "medl-ID.fbr" --><br> <!-- Virker fint!-->
    Bruger-ID:<input type="text" value="<%response.write ID%>" name="T4" size="33"><br>
    <p>
    <input name="submit" type="submit" value="Upload">

*fuldet betyder på mit sprog fyldt.. :P

Prøv at poste den SQL streng du prøver at køre. (Copy paste resultatet af Response.Write(strSQL) herind. Men jeg mener stadig at min første kommentar er korrekt. (Med mindre min evne til at tælle er forsvundet. Du skal have lige mange værdier i den første og sidste parentes.

"'Dato & "')"

skal det ikke se sådan der ud til sidst? eller det måske ligegyldigt?

Jeg havde skam medl-ID med, da denne jo hedder T4...
Men der manglede en Kilde...
Jeg har derfor nu rettet lidt i det:


        'Indsætter i db
        strSQL = "Insert into t_nyheder ("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "values( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "'Dato', "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'Link', "
        strSQL = strSQL & "'" & Request.Form("T4") & "')"

        response.write(strSQL)
        Conn.Execute(strSQL)


Den nuværende response.write(strSQL) giver:

Insert into t_nyheder (Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) values( '', '', 'Dato', '', 'Link', '')

...men jeg får stadig samme fejl samme sted... :D

du mangler et set:

strSQL = "INSERT INTO t_nyheder SET("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "VALUES( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "'Dato', "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'Link', "
        strSQL = strSQL & "'" & Request.Form("T4") & "')"

        response.write(strSQL)
        Conn.Execute(strSQL)

what the... troede jeg kun var ved updates

øøh??

Let me in to your world!! :P

Oh... hmm... det set virkede heller ikke...
Stadig samme fejl....

guess you don't use SET anyway:)

hehe så fjerner vi set... :P og SETter (høhø) et mellemrum... :P

sorry, klokken er mange, det er mig der er et fjols.

Hvordan er de forskellige felter defineret i din base?

Prøv hvis Dato er af typen date/time

strSQL = "INSERT INTO t_nyheder SET("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "VALUES( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "Date(), "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'" & Request.Form("T3") & "', "
        strSQL = strSQL & "'" & Request.Form("T4") & "')"

        response.write(strSQL)
        Conn.Execute(strSQL)

og hvis også Medl-ID er erklæret som et tal, så brug:

strSQL = "INSERT INTO t_nyheder SET("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "VALUES( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "Date(), "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'" & Request.Form("T3") & "', "
        strSQL = strSQL & "" & Cint(Request.Form("T4")) & ")"

        response.write(strSQL)
        Conn.Execute(strSQL)

Hvis det skal være muligt for brugeren at ændre på datoen, altså at bruge det felt du har lavet i formen, så skal du have det her med:

strSQL = "INSERT INTO t_nyheder SET("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "VALUES( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "'" & Request.Form("D1") & "', "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'" & Request.Form("T3") & "', "
        strSQL = strSQL & "" & Cint(Request.Form("T4")) & ")"

        response.write(strSQL)
        Conn.Execute(strSQL)

smutter i seng igen :-)

Godnat

Jah, min bases felter er defineret som: Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID...

Det hjalp hellerej at sætte aktuel dato ind i stedet...

...og den sidste rettelse fra moejensen inden han gik til køjs hjalp hellerej.

Medl-ID skaber muligvis en konflikt. Prøv med [Medl-ID]

strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, [Medl-ID]) "

det jeg nu var ude efter var ikke feltnavnene, dem kan jeg jo se i din insert setning, men hvordan er de enkelte felter devineret, som string, tal, dato eller hvad?

Oh, hehe, på den måde!!

Overskrift: Tekst
Nyhed: Notat
Dato: Dato og klokkeslet
Link: Tekst
Kilde: Tekst
Medl-ID: Tal

Jeg forsøger lige med at sætte gnyffer om Medl-ID...

Det virkede heller ikke at sætte gnyffer, [], om...

prøv den her:

strSQL = "INSERT INTO t_nyheder("
        strSQL = strSQL & "Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID) "
        strSQL = strSQL & "VALUES( "
        strSQL = strSQL & "'" & Request.Form("T1") & "', "
        strSQL = strSQL & "'" & Request.Form("S1") & "', "
        strSQL = strSQL & "Date(), "
        strSQL = strSQL & "'" & Request.Form("T2") & "', "
        strSQL = strSQL & "'" & Request.Form("T3") & "', "
        strSQL = strSQL & "" & Request.Form("T4") & ")"

        response.write(strSQL)
        Conn.Execute(strSQL)

Lige nu ser min kode således ud:

<% if Request.Querystring("id") = "db_ind" then

' Valider input af felter
'If Request.Form("T1") = "" OR Request.Form("T2") = "" OR Request.Form("T3") = "" OR Request.Form("S1") = "" OR Request.Form("T4") = ""
'    Response.Write "Alle felter skal udfyldes!"
'    Response.End
'End If 

       
        If Request.Form("D1") = "" Then
            Dato=date()
        else
            Dato=Request.Form("D1")
        End If
         
        If left(Request.Form("T3"),7) = "http://" Then
            Link=Request.Form("T3")
        else
            Link="http://" & Request.Form("T3")
        End If 
       
        Overskrift=Request.Form("T1")
        nyhed=Request.Form("S1")
        bruger=Request.Form("T4")

%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/arda.mdb")
Conn.Open DSN
%>
<%
set rs = Conn.Execute("Select * from t_nyheder")

        strSQL = "INSERT INTO t_nyheder (Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID)"
        strSQL = strSQL & "VALUES('"&Overskrift&"','"&nyhed&"','"&Dato&"','"&Link&"','"&Kilde&"','"&bruger&"')"
        Conn.Execute (strSQL)
%>

Min form-kode ser således ud:

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="ny_nyhed.asp?id=db_ind">
                                Titel
                                <input type="text" name="T1" size="33">
                               
                                Tekst
                                <textarea rows="12" name="S1" cols="27"></textarea>
                               
                                Dato
                                <input type="text" value="<%=date()%>" name="D1" size="33"> (<%=date()%>)
                               
                               
                                Kilde
                                <input type="text" name="T2" size="33">
                           
                                Link
                                <input type="text" name="T3" size="33">
                               
                           
                                Bruger:
                            <%
                            set rs = Conn.Execute("Select * from t_medlemmer where user = '"& Session("user") &"'")
                            DO
                            response.write rs("User") & "<br>" & rs("Medl-ID")

                            medlID = rs("medl-ID")

                            rs.MoveNext
                            Loop While Not rs.eof
                            %>

                                Bruger-ID:<input type="hidden" value="<%medlID%>" name="T4" size="33">
   
                            <input name="submit" type="submit" value="Upload">


Stadig klynker serveren over en syntaksfejl i INSERT INTO-sætningen...

Nogen idéer?? :)

yep, prøv det jeg skrev før:

strSQL = "INSERT INTO t_nyheder (Overskrift, Nyhed, Dato, Link, Kilde, Medl-ID)"
        strSQL = strSQL & "VALUES('"&Overskrift&"','"&nyhed&"',Dato(),'"&Link&"','"&Kilde&"',"&bruger&")"
        Conn.Execute (strSQL)

Hvis du alligevel bruger Dato() i fin form, kan du lige så godt sætte den direkte ind i SQL sætnigen, ellers kan det godt blive et større arbejde at på tilpasset stringen ind i date/time feltet i databasen.

Det virker heller ikke....

prøv:

strSQL = "INSERT INTO t_nyheder (Overskrift,Nyhed,Dato,Link,Kilde,Medl-ID)"
        strSQL = strSQL & "VALUES('"&Overskrift&"','"&nyhed&"',Date(),'"&Link&"','"&Kilde&"',"&bruger&")"
        Conn.Execute (strSQL)

Den har jeg også prøvet, virker heller ikke...

har du tjekket at der er skriverettigheder på databasen?

og ken du ikke lige prøve at lave sådan en her:

Response.write strSQL
Response.end

så vi kan se den sql der kommer ud.

så tror jeg at jeg har fundet din fejl.

Du skal ikke have dette her i dit form tag: ENCTYPE="multipart/form-data"

Hvordan tjekker jeg det??

så fik jeg den til at virke:

strSQL = "INSERT INTO t_nyheder (Overskrift, Nyhed, Dato, Link, Kilde, [Medl-ID]) VALUES('"&Overskrift&"','"&nyhed&"','"& Date()&"','"&Link&"','"&Kilde&"',"&bruger&")"

og så skal du fjerne ENCTYPE="multipart/form-data" fra formen, for ellers sender den ikke noget.

Jah jeg har rettet og prøvet hvad du fik til at virke...
jeg får nu:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.
/stardust/apps/ny_nyhed.asp, line 43

og sendte følgende:
POST Data:
T1=test&S1=test&D1=14-03-2005&T2=www.google.com&T3=www.google.com&T4=2&submit=Upload

Det skyldes så at der ikke er skriverettigheder på din database.

Okay... Hmmm...
Jamen, *pivpiv*, hvordan ændrer jeg dem?

du skal sikre dig at IUSR_SERVERNAVN har skrive og læserettigheder til databasen.

http://www.webwizguide.info/asp/faq/server_permissions.asp

DOH!!!! Jah, som du selv siger, virker det fint nu!! :D
Tusind tak! Du får hermed dine fortjente 200points...

jeg takker mange gange :-)