rediger i database.

http://www.html.dk/tutorials/asp/ lektion 17 - 22 så har du styr på det.

mvh.
Questis.dk

Det kan du nemt..... men det er nok bedst at læse lidt på lektien selv.. først..

Du skal hente dine dat ud fra DB sætte dem som Value på et textarea og så sende informationer tilbage til din DB med en SQL update sætning

http://www.w3schools.com/sql/sql_update.asp

OK prøver når jeg kommer hjem ;)

\\izemate

hmm jeg kan ikke hitte ud af det! er der nogen der gider lave det??? det skal lige siges at det hele har en ID ! så vil jeg blive meget glad :D

\\izemate

send mig den database så kan jeg kigg elidt på det.

for jeg er ikke ret godt til asp :(

\\izemate

ok har du en e-mail adresse?? skal du også have lidt kode med eller`?

\\izemate

jeg koder det bare forfra, hvis det er ok ?

mail: questis@questis.dk

jaja det er fint :)

jeg sender det lige...

\\izemate

Så skulle den være sendt.
skriver du ikke lige hvis du har problemer, eller du er færdig :)

\\izemate

kigger lige på det.... er du online ?

arr desvære jeg køre med isdn så det ville nok blive lidt svært.... men hvis du bare poster spm, her eller sender det til min e-mail... jeg får nemlig sms over min e-mail så jeg er der med det samme!

\\izemate

svært = $$$ 8)

\\izemate

ok, giver lyd når jeg er færdig, det bliver nok inden for en time....

ok

Kan du få det til at virke??

\\izemate

mangler kun at få update spl'en til at makke ret, men kan ikke se feglen, vi sideer og kigge rpå det nu.

så skulle den være færdig... har sendt dig scriptet, og poster det lige her så folk kan se jeg ikke snød:

index.asp:

<HTML>
<HEAD>
<TITLE>Redigering af mail</TITLE>

</HEAD>
<BODY>
<table cellpadding="0" cellspacing="0" border="0" width="500px">
<tr>
    <td><b>Vælg hvilken mail du ønsker at rette</b></td>
</tr>
<tr>
    <td height="5px"></td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "SELECT * FROM nyhed"
set rs = conn.execute(strSQL)

if not rs.eof then
do while not rs.eof
%>
<tr>
    <td><a href="rediger.asp?id=<%= rs("ID") %>"><%= rs("overskrift") %></A></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</BODY>
</HTML>
<%
conn.close
set conn = nothing
%>

rediger.asp:

<% if request.querystring("mode") = "opdater" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "update nyhed set message='" & replace(request.form("nyindhold"),"'","''") & "' WHERE id=" & request.form("id")
response.write(strSQL)
conn.execute(strSQL)

response.redirect("rediger.asp?mode=ok")
%>
<% elseif request.querystring("mode") = "ok" then %>

Emnet er opdatert.<br><br>

<a href="index.asp">Tilbage</a>

<% else %>
<HTML>
<HEAD>
<TITLE>Redigering af mail</TITLE>

</HEAD>
<BODY>
<form action="rediger.asp?mode=opdater" method="post">
<table cellpadding="0" cellspacing="0" border="0" width="500px">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")

strSQL = "SELECT * FROM nyhed where id = " & request.querystring("id")
set rs = conn.execute(strSQL)
%>
<tr>
    <td><%= rs("overskrift") %></td>
</tr>
<tr>
    <td><input type="hidden" name="id" value="<%= rs("id") %>"><textarea cols="40" rows="10" name="nyindhold"><%= rs("message") %></textarea></td>
</tr>
<tr>
    <td><input type="submit" value="gem"></td>
</tr>
<tr>
    <td><br><br><a href="index.asp">Tilbage</a></td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
conn.close
set conn = nothing

end if
%>

håber at du kan bruge det

Det virker bare super :) rigtig mange tak for hjælpen ;)

\\izemate

var så lidt :-)