Mannschaft B9b 2007

Fehler 94 in Symbios-Script
Invalid use of Null: 'Replace'
Zeile: 21 Zeichen: 4

Response.Write("")
intContentId = "0" 
Text = "" 

Response.Write("" & Chr(13) & Chr(10) &_
"" & Chr(13) & Chr(10) &_
"<div class=""article gradi"">" & Chr(13) & Chr(10) &_
"<h3>Mannschaft B9b 2007</h3>" & Chr(13) & Chr(10) &_
"<p>")
Response.Write( Replace(Text,vbCrLf ,"<br>"))
Response.Write("</p>" & Chr(13) & Chr(10) &_
"")

If( isNumeric(intContentId) )AND ( intContentId <>"")Then
	sql = "SELECT i.[Titel], i.[Description], i.[ImagePfad] FROM [ImagesByNews]i WHERE i.[ContentID] =" & intContentId & " Order By i_Position"
	Set objRs = server.createObject("adodb.recordset")
	Set objRs = Symbiosis.objConnection.execute(sql)
	if( Not(objRs.EOF) )Then
		do until( objRs.EOF )
			If( objRs("ImagePfad").value <> "" )Then
				Response.Write( "<div style=""width:600px; overflow: hidden;""><img src=""" & Symbiosis.SSYS_PATH_WEB & objRs("ImagePfad").value & """ alt=""" & objRs("Titel").value & """ border=""0"">" & vbCrLf &_
								"<h6>" & objRs("Titel").value & "</h6><p>" & Replace(objRs("Description").value,vbCrLf ,"<br>") & "</p></div>")
			End If
			objRs.MoveNext
		loop
	End If
	objRs.close
	'Set objRs = nothing
End If

Response.Write("" & Chr(13) & Chr(10) &_
"</div>")

NEWS (Archiv 2006/2007)