Hi,

Im trying to display text on an asp page as it was entered into an SQL 2000 DB. I was loosing the shape so i tried this method of relaying it on the page.

Any ideas... See below for text


<%
Dim sText = (recordset1.Fields.Item("MainBody").Value)
sText = Replace(sText, vblf, "<br/>")
%>

but am getting this error

Microsoft VBScript compilation error '800a0401'

Expected end of statement
/test/test.asp, line 309 Dim sText = (recordset1.Fields.Item("MainBody").Value)----------^

You cannot DIMension and set a variable in a single statement in vBScript.

use a colon to seperate the statements.

dim sText : sText = recordset1.Fields.Item("MainBody").Value

Try following:

dim sText : sText = recordset1.Fields.Item("MainBody").Value
sText = Replace (sText&"", Chr(13), "<br>", 1, -1, 0)