Ret nyhed.....
jeg står og mangler en funktion i mit nyheds modul og det er muligheden for at rette i de nyheder der er lavet.Håber der er en af jer derude der kan hjælpe mig med det.
I kan se mit modul her :
www.theforge.dk/michael/admin_demo/
Koden der smider nyheden ind i databasen ser sådan her ud:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../../db/admin_nyheder.mdb")
Conn.Open DSN
Function fncTextChange(strText)
strTekst = Trim(strText)
strTekst = Replace(strTekst,vbCrLf,"<BR>")
strTekst = Replace(strTekst,"'","´")
fncTextChange = strTekst
End Function
indhold = fncTextChange(request.form("nyhed"))
' SQL sætning opbygges
strSQL = "INSERT INTO nyheder (titel, nyhed, dato, forfatter) VALUES('"& Request.Form("titel") &"','"& indhold &"','"& now() &"','"& Request.Form("forfatter") &"')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1 align="center"><br>
<br>
Nyheden er nu blevet<br>
tilføjet til websitet !</h1>
På forhånd tak for hjælpen.
