Mellemrum og enter

når du viser indholdet fra databasen skal du gøre følgende for at få Enter til at virke;

Replace(rs("kolonne"),VbCrLf,"<br>")

Der burde ikke være problemer med space.

"Dumme mig"

Det var ikke space. det var hvis der bliver indskrevet et link eller mail

MK

Her er en kode, hvor bruger indskriver nyhed...

---

<%

Dim rsSave

If Request.ServerVariables ("Content_Length") <> 0 Then

'Creating the Recordset Object
Set rsSave = Server.CreateObject("ADODB.RecordSet")

'Creating a DSN-Less connection to your Database
strDSN = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:\home\nfknetdk\db\nfk.mdb;"

rsSave.open "nyhed", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
   
rsSave.addnew

rsSave("dato") = Date
rsSave("Overskrift") = request.form("Overskrift")
rsSave("Tekst") = request.form("Tekst")
rsSave("Forfatter") = request.form("forfatter")
rsSave("email") = request.form("email")

rsSave.update

response.redirect("forside2.asp")
'response.redirect "www.nfknet.dk" target="_top"


Else
%>

---

Hvor skal koden indsættes

MK

her er koden hvor nyheden bliver vist...

---

<%
Set myConn = Server.CreateObject("ADODB.Connection")
'myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("news.mdb")
myConn.open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:\home\nfknetdk\db\nfk.mdb;"

If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM nyhed WHERE (ID = " & Request.QueryString ("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
    Response.write "<TABLE WIDTH=""100%"" BORDER=""1"" BGCOLOR=""#008000"" BORDERCOLOR=""#008000""><TR VALIGN=""top""><TD><font face ""verdana"" Size""2"" color=""FFFFFF""><B>" & rs("overskrift") & "</B></FONT></td></tr>  <tr><td BGCOLOR=""#ffffff""><BR><FONT face=""verdana"" SIZE=""1""> Dato " & rs("dato") & "</FONT><BR><br><FONT face=""verdana"" size=""2"">" & rs("tekst") & "</FONT><BR><br><FONT SIZE=""1"">Forfatter: " & rs("forfatter") & "</FONT></TD></TR></TABLE><BR>"

        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
    End If
End If
%>

----

Er det her koden skal ind

for mig at se laver du flere mystiske ting - hvorfor kører du fx update der hvor du trækker data ud?

hvilket felt er det du vil have enter til at virke på?

Mht til link og email så kig her; http://www.eksperten.dk/spm/724331

Det er en kode jeg har "lånt" fra netcoders.dk

Det er i feltet ("tekst") jeg vil have enter til at virke på

MK

så udskifter du bare " & rs("tekst") & " med " & replace(rs("tekst"),VbCrLf,"<br>") & "</

Tusind tak

det virker