Er der en der kan fortælle mig hvorfor dette ikke virker?

php=asp

Din id indeholder ikke noget... Så den ser sådan her ud:
<form action="blog.asp?id=&Action="Sendt" method="post">
i browseren.. Tror du ikke du skal bruge noget ala rs("id") i stedet?

Hvordan udskriver du dine blogs?

altså sådan?
<form action="RS("id")=<%= request.QueryString("id")%>&Action="Sendt" method="post">

Sådan:
<%
    Session.LCID = 1030
    %>   

    <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("min_blog.mdb") & " ;"
        Conn.Open DataSource
    SQL_blog = "SELECT TOP 30 * FROM blog ORDER BY id DESC"
    Set RS = Conn.Execute(SQL_blog)
        IF RS.EOF THEN
        Response.Write "der er ingen data"
        ELSE
    WHILE NOT RS.EOF
    Dim strblog
    strblog=rs("indhold")
    if strblog <> "" then
    strblog=Replace(strblog,vbCrLf,"<br/>")
    else
    strblog = ""
    end if
    %>
    <h4><%=RS("overskrift")%></h4><%=RS("billede")%>
    <FONT SIZE="1"><%=RS("dato")%>&nbsp;&nbsp;<%=RS("forfatter")%></font>
    <br><br>
    <%=strblog%>
    <br>

Nej sådan her:
<form action="blog.asp?id=<%=RS("id")%>&Action="Sendt" method="post">

Hvis altså dit recordset hedder RS..

Og det gør det :0 Så det skulle virke ;)

Det virker stadig ikke :-(

Kunne man få lov til at se hele koden til den fil der udskriver bloggen??

Værsågod :-)

<%
    Session.LCID = 1030
    %>   

    <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("blog.mdb") & " ;"
        Conn.Open DataSource
    SQL_blog = "SELECT TOP 30 * FROM blog ORDER BY id DESC"
    Set RS = Conn.Execute(SQL_blog)
        IF RS.EOF THEN
        Response.Write "der er ingen data"
        ELSE
    WHILE NOT RS.EOF
    Dim strblog
    strblog=rs("indhold")
    if strblog <> "" then
    strblog=Replace(strblog,vbCrLf,"<br/>")
    else
    strblog = ""
    end if
    %>
    <h4><%=RS("overskrift")%></h4><%=RS("billede")%>
    <FONT SIZE="1"><%=RS("dato")%>&nbsp;&nbsp;<%=RS("forfatter")%></font>
    <br><br>
    <%=strblog%>
    <br>


<%
if request.QueryString("Action") = "Sendt" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentar.mdb")
Conn.Open DSN

strSQL = "INSERT INTO kommentar (blogid, navn, besked) Values ('" & request.QueryString("id") & "', '" & request.Form("Navn") & "', '" & request.Form("Tekst") & "')"

Set RS = Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
end if
%>

<font size="2">
<div id="menu1" class="menu" onclick="event.cancelBubble=true">

<a href="#" onclick="var st=document.getElementById('showAnswer1').style;st.display=st.display!='block'?'block':'none';return false;">&raquo; Kommentaren virker ikke &laquo;</a><br>
<div id="showAnswer1" style="display:none;">&nbsp;&nbsp;&nbsp;&nbsp;

<form action="blog.asp?id=<%=RS("id")%>&Action="Sendt" method="post">
Dit navn:<br><input type="Tekst" name="navn"><br>
Din kommentar:<br><textarea name="Tekst" id="Tekst" style="width:90%; height:100px"></textarea><br>
<input type="submit" value="Send">
</form>

</div>
</div>
</font>

    <br><br>
   
    <%
    RS.MoveNext
    WEND
    END IF
    RS.Close
    Conn.close
    Set Conn = Nothing
    %>

Prøv lige med det her:

<%
    Session.LCID = 1030
    %>   

    <%
        Set Conn = Server.CreateObject("ADODB.Connection")
        DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("blog.mdb") & " ;"
        Conn.Open DataSource
    SQL_blog = "SELECT TOP 30 * FROM blog ORDER BY id DESC"
    Set RS = Conn.Execute(SQL_blog)
        IF RS.EOF THEN
        Response.Write "der er ingen data"
        ELSE
    WHILE NOT RS.EOF
    Dim strblog
    strblog=rs("indhold")
    BlogID = rs("id")
    if strblog <> "" then
    strblog=Replace(strblog,vbCrLf,"<br/>")
    else
    strblog = ""
    end if
    %>
    <h4><%=RS("overskrift")%></h4><%=RS("billede")%>
    <FONT SIZE="1"><%=RS("dato")%>&nbsp;&nbsp;<%=RS("forfatter")%></font>
    <br><br>
    <%=strblog%>
    <br>


<%
if request.QueryString("Action") = "Sendt" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentar.mdb")
Conn.Open DSN

strSQL = "INSERT INTO kommentar (blogid, navn, besked) Values ('" & request.QueryString("id") & "', '" & request.Form("Navn") & "', '" & request.Form("Tekst") & "')"

Set RS = Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
end if
%>

<font size="2">
<div id="menu1" class="menu" onclick="event.cancelBubble=true">

<a href="#" onclick="var st=document.getElementById('showAnswer1').style;st.display=st.display!='block'?'block':'none';return false;">&raquo; Kommentaren virker ikke &laquo;</a><br>
<div id="showAnswer1" style="display:none;">&nbsp;&nbsp;&nbsp;&nbsp;

<form action="blog.asp?id=<%=BlogId%>&Action="Sendt" method="post">
Dit navn:<br><input type="Tekst" name="navn"><br>
Din kommentar:<br><textarea name="Tekst" id="Tekst" style="width:90%; height:100px"></textarea><br>
<input type="submit" value="Send">
</form>

</div>
</div>
</font>

    <br><br>
   
    <%
    RS.MoveNext
    WEND
    END IF
    RS.Close
    Conn.close
    Set Conn = Nothing
    %>

Hov du skal lige fjerne " omkring sendt...
<form action="blog.asp?id=<%=BlogId%>&Action=Sendt" method="post">

Jeg er ked af det, men det virker ikke.

Caf

har du uploaded den?

Jeps, men jeg får stadig fejl

Det er denne fejl:

The page cannot be found
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable.
--------------------------------------------------------------------------------

Please try the following:

Make sure that the Web site address displayed in the address bar of your browser is spelled and formatted correctly.
If you reached this page by clicking a link, contact the Web site administrator to alert them that the link is incorrectly formatted.
Click the Back button to try another link.
HTTP Error 404 - File or directory not found.
Internet Information Services (IIS)

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Go to Microsoft Product Support Services and perform a title search for the words HTTP and 404.
Open IIS Help, which is accessible in IIS Manager (inetmgr), and search for topics titled Web Site Setup, Common Administrative Tasks, and About Custom Error Messages.

Okay siden ligger så ikke der hvor den skal åbenbart...

Hvor ligger forsiden henne i forhold til blog.asp?

Prøv med den her i stedet:
<form action="?id=<%=BlogId%>&Action=Sendt" method="post">

Jeg har ingen blog.asp, blogen ligger i index.asp
så det er vel derfor. blog.asp skal rettes til index.asp ikke?

ja det er det.. eller
<form action="/?id=<%=BlogId%>&Action=Sendt" method="post">
Så skulle den også virke..

Har rettet ovenstående og får denne fejl:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/index.asp, line 205

Det er fordi du lukker din conn når du gemmer kommentaren og så vil bruge den igen uden at åbne den..

Prøv lige at skifte en Sendt funktion ud med denne..
<%
if request.QueryString("Action") = "Sendt" then
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentar.mdb")
Conn1.Open DSN

strSQL = "INSERT INTO kommentar (blogid, navn, besked) Values ('" & request.QueryString("id") & "', '" & request.Form("Navn") & "', '" & request.Form("Tekst") & "')"

Conn1.Execute(strSQL)
Conn1.Close
Set Conn1 = Nothing
end if
%>

Prøver lige :-)

Efetr jeg har trykket på Send, kommer denne:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/index.asp, line 180

Og det er denne linie:
Conn1.Execute(strSQL)

hvilke felter har du i din tabel kommentar?

id
blogid
navn   
besked

kan du ikke sende en kopi af databasen til jtpdev@jtpdevelopment.dk så vil jeg lige kigge på den..

Er sendt :-)

Tak for den rettet udgave. Den har leg lige uploaded og jeg får desvære denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/index.asp, line 180

Også er der det når det er access så skal du bruge den her måde til at tilføje noget:

<%
if request.QueryString("Action") = "Sendt" then
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentar.mdb")
Conn1.Open DSN

strSQL = "Select * From kommentar"
rs.Open strSQL, Conn1, adOpenKeyset, adLockOptimistic


rs.AddNew
rs("blogid") = request.QueryString("id")
rs("navn") = request.Form("Navn")
rs("besked") = request.Form("Tekst")
rs.Update

Conn1.Close
Set Conn1 = Nothing
end if
%>

Tak, er rettet

Nu kommer dette:
ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/index.asp, line 179

Det er:
rs.Open strSQL, Conn1, adOpenKeyset, adLockOptimistic

<%
if request.QueryString("Action") = "Sendt" then
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentar.mdb")
Conn1.Open DSN

Set rs1 = Server.CreateObject("ADODB.RecordSet")


strSQL = "Select * From kommentar"
rs1.Open strSQL, Conn1, adOpenKeyset, adLockOptimistic


rs1.AddNew
rs1("blogid") = request.QueryString("id")
rs1("navn") = request.Form("Navn")
rs1("besked") = request.Form("Tekst")
rs1.Update

Conn1.Close
Set Conn1 = Nothing
end if
%>

Det virker heller ikke.
Nu har du brugt så meget tid på mig, så hvis du ikke har lyst mere, må du gerne stoppe
:-)

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/index.asp, line 182

...

Det er fejlen...

Det ser ud som om du prøver at sætte tekst ind i et felt der kun kan have tal... eller omvendt...

Kan vi få koden igen og få af vide hvad linie 182 er for en? :)

<%
        Session.LCID = 1030
        %>   

        <%
            Set Conn = Server.CreateObject("ADODB.Connection")
            DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gjkigdfndhjkuuidguihrellelkvnchfugnmgih.mdb") & " ;"
            Conn.Open DataSource
        SQL_blog = "SELECT TOP 30 * FROM blog ORDER BY id DESC"
        Set RS = Conn.Execute(SQL_blog)
            IF RS.EOF THEN
            Response.Write "der er ingen data"
            ELSE
        WHILE NOT RS.EOF
        Dim strblog
        strblog=rs("indhold")
        BlogID = rs("id")
        if strblog <> "" then
        strblog=Replace(strblog,vbCrLf,"<br/>")
        else
        strblog = ""
        end if
        %>
        <h4><%=RS("overskrift")%></h4><%=RS("billede")%>
        <FONT SIZE="1"><%=RS("dato")%>&nbsp;&nbsp;<%=RS("forfatter")%></font>
        <br><br>
        <%=strblog%>
        <br>


    <%
if request.QueryString("Action") = "Sendt" then
Set Conn1 = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kommentarcafxrea.mdb")
Conn1.Open DSN

Set rs1 = Server.CreateObject("ADODB.RecordSet")


strSQL = "Select * From kommentar"
-->LINIE 182-->rs1.Open strSQL, Conn1, adOpenKeyset, adLockOptimistic


rs1.AddNew
rs1("blogid") = request.QueryString("id")
rs1("navn") = request.Form("Navn")
rs1("besked") = request.Form("Tekst")
rs1.Update

Conn1.Close
Set Conn1 = Nothing
end if
%>


    <font size="2">
    <div id="menu1" class="menu" onclick="event.cancelBubble=true">

    <a href="#" onclick="var st=document.getElementById('showAnswer1').style;st.display=st.display!='block'?'block':'none';return false;">&raquo; Kommentaren virker ikke &laquo;</a><br>
    <div id="showAnswer1" style="display:none;">&nbsp;&nbsp;&nbsp;&nbsp;

    <form action="/?id=<%=BlogId%>&Action=Sendt" method="post">
    Dit navn:<br><input type="Tekst" name="navn"><br>
    Din kommentar:<br><textarea name="Tekst" id="Tekst" style="width:90%; height:100px"></textarea><br>
    <input type="submit" value="Send">
    </form>

    </div>
    </div>
    </font>

        <br><br>
   
        <%
        RS.MoveNext
        WEND
        END IF
        RS.Close
        Conn.close
        Set Conn = Nothing
        %>

-->LINIE 182--> Står ud for linien

Det ser ud til du måske ikke har includeret den fil som definere konstanterne adOpenKeyset og adLockOptimistic... prøv lige og tjek om disse er includeret... jeg husker ikke lige hvad den hedder den fil lige her for jeg har ikke IIS'en installeret...

Hvad sker der hvis du laver denne her om til

Set rs1 = Server.CreateObject("ADODB.RecordSet")


strSQL = "Select * From kommentar"
rs1.Open strSQL, Conn1, adOpenKeyset, adLockOptimistic


rs1.AddNew
rs1("blogid") = request.QueryString("id")
rs1("navn") = request.Form("Navn")
rs1("besked") = request.Form("Tekst")
rs1.Update

Dette her

Conn1.Execute "INSERT INTO kommentar (blogid,navn,besked) VALUES (" & Request.QueryString("id") & ",'" & Request.Form("Navn") & "','" & Request.Form("tekst") & "')"

Kan ikke huske om det er den rigtige måde at lave en INSERT into sætning men håber den virker :p

Ellers skal du kigge efter i DB'en om blogid er et tal felter og de 2 andre er tekst felter...

Så får jeg denne:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/index.asp, line 178

Og det er de linie du gav mig.

Jeg må hellere se på min db i morgen. Har ikke access herhjemme, kun på jobbet.

Det betyder at du ikke har skriverettigheder på din database... Dette skal gøres på filsystem nivau...

Godmorgen

Så kommer der ikke flere fejlmeddelser :-))
og der bliver også skrevet i databasen.

Ja... sådan skal det gøres :p

Har lige opdaget at hvis jeg skriver en besked, så gemmes den 30 gange i databasen. Er det pga. denne:
SQL_blog = "SELECT TOP 30 * FROM blog ORDER BY id DESC"

Øhm... det kommer an på hvor du bruger SQL_blog bagefter... ellers skulle det ikke være den da den kun henter og gemmer ikke noget i db'en

fun22 og tsunami læg et svar så får I point. Tuinde tak for hjælpen og jeres tålmodighed.

Caf

Ok :)

tsunami du får point da fun22 ikke har svaret.
Tak for hjælpen :-)
Caf

Selv tak :)