tekstfelt

du skal lave en erstatning - så din udskrivning fra databasen kunne se sådan ud;

Response.Write \"<span class=\"\"tekst\"\">\" & replace(rs(\"tekst\"),VbCrLf,\"<br>\") & \"\"

og så skal jeg nok lige fjerne alt unødigt...

Response.Write \"\" & replace(rs(\"tekst\"),VbCrLf,\"<br>\") & \"\"

Har lige prøvet, og jeg kan sgu ikke få det til at virke.

Koden har jeg lavet således:

<!--#include file=\"clssfd.asp\"-->

<%
Dim rsSvar
Set rsSvar = Server.CreateObject(\"ADODB.RecordSet\")
rsSvar.Open \"helse\", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable

If Not rsSvar.EOF Then
    Response.Write _
        \"<TABLE BORDER=\"\"1\"\" CELLSPACING=\"\"3\"\" CELLPADDING=\"\"3\"\">\" & _
        \"<TR>\" & _
        \"    <TH><FONT SIZE=\"\"-1\"\">Klik for<BR>at svare</FONT></TH>\" & _
        \"    <TH>Emne</TH>\" & _
        \"    <TH>Spørgsmål</TH>\" & _
        \"</TR>\"
    Do While Not rsSvar.EOF
        Response.Write _
            \"<TR ALIGN=CENTER>\" & _
            \"    <TD><A HREF=\"\"svar.asp?Action=Edit&Svar=\" & rsSvar(\"Id\") & \"\"\">\" & _
                        rsSvar(\"Id\") & \"</A></TD>\" & _
            \"    <TD>\" & rsSvar(\"emne\") & \"</TD>\" & _
            \"    <TD>\" & rsSvar(\"question\") & \"</TD>\" & _
            \"</TR>\"
        rsSvar.MoveNext
    Loop
    Response.Write \"</TABLE>\"
Else
    Response.Write \"<CENTER><H2>Der er ikke nogen spørgsmål i øjeblikket</H2></CENTER>\"
End If
rsSvar.Close
%>

I linien hvor du skriver:
"    <TD>" & rsSvar("question") & "</TD>" & _
Skal der stå:
"    <TD>" & replace(rsSvar("question"),VbCrLf,"<br>")  & "</TD>" & _

- hvis det altså er i rsSvar("question") du skal have linieskift...