Error when returning string to page. HELP PLEASE!!!

**The Mighty Dub** · 09-21-2009, 02:25 PM

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)----------^

**chrishirst** · 09-21-2009, 02:49 PM

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

use a colon to seperate the statements.

Code:

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

**itHighway** · 09-21-2009, 04:32 PM

Try following:

Quote:

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