Returntryk

Hvad mener du med returtryk, ENTER ?

Måske er det bar noget med Response.Write Replace(tekst, vbCrLf, "<BR>")


Dette erstatter et manuelt linieskift med HTML's linieskift, <BR>

Her skrives de:

strSQL = "INSERT INTO GuestBook " & _
            "(guestname, guestemail, guestmessage, datesubmitted) " & _
            "VALUES (" & _
            "'" & request("guestname") & "', " & _
            "'" & request("guestemail") & "', " & _
            "'" & request("guestmessage") & "', " & _
            "Date()" & _
            ")"

Og her hentes de:

strSQL = "SELECT guestid, guestname, guestemail, guestmessage, datesubmitted from GuestBook " & strWhere  & "ORDER BY datesubmitted DESC"
    set objRS = server.CreateObject("ADODB.Recordset")
    with objRS
        .open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
    if not .EOF then
        arrRows = .GetRows(5)
    end if
        .close
    end with
    set objRS = Nothing
   
    if isArray(arrRows) then
        intFromID = arrRows(0, ubound(arrRows,2))
        for i = 0 to ubound(arrRows,2)
            response.write "<div align=""left""><font size=""3"" face=""Arial, Helvetica, sans-serif"">" & arrRows(0,i) & ". " & arrRows(1,i) & "<br>" & arrRows (2,i) & "<br>" & arrRows(3,i) & "<br>" & arrRows(4,i) & "<hr></div>"
        next


Det er jo så guestmessage / arrRows(3,i) der skal formatteres...

Vil du vise hvordan ?

response.write "<div align=""left""><font size=""3"" face=""Arial, Helvetica, sans-serif"">" & arrRows(0,i) & ". " & arrRows(1,i) & "<br>" & arrRows (2,i) & "<br>" & Replace(arrRows(3,i), vbCrLf, "<BR>") & "<br>" & arrRows(4,i) & "<hr></div>"

Jep. det er glimrende.