replace fel

Hejsan,

när jag kör gästboks scriptet localt på min hårddisk så fungerar den alöldeles utmärkt men när jag däremot laddar upp den till servern får jag detta felmeddelande:

Microsoft VBScript runtime error '800a005e' 

Invalid use of Null: 'Replace' 

/skamt/laggtillskamt/laggtillskamt.asp, line 321

den skriver ut första inlägget men i det andra så får man detta felmeddelande...

så här ser koden där inlägget skrivs in:

<%
function fixatecken(str)
fixatecken = Replace(str, vbCrLf, "<BR>" & vbCrLf)
End function
%>

<%

	'	Skriv ut meddelande

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("datab.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	VisaGbook="SELECT * FROM läggtillskämt ORDER BY ID DESC"
	RecSet.Open VisaGbook, Connect

	count = 0
	Do Until RecSet.EOF OR count = mittantal

%>

  <div align="left">

	<table width="400" border="0" cellspacing="0" cellpadding="1" bgcolor="#000000">
		<tr>
		<td>

        <div align="left">

		<table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#<%=tablecolor%>">
			<tr> 
			<td height="20">&nbsp;Inskickat: <%=RecSet("Datum")%></td>
			</tr>
			<tr align="center"> 
			<td> 

			<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
				<tr>
				<td><img src="transp.gif" width="5" height="1"></td>
				</tr>
				</table>

			</td>
			</tr>
			<tr>
			<td><img src="transp.gif" width="5" height="5"><br>

		<table width="100%" border="0" cellspacing="0" cellpadding="5">
			<tr><td>
			<%=fixatecken(RecSet("Medd"))%>
			</td></tr></table>
			
			<img src="transp.gif" width="5" height="5"></td>
			</tr>
			<tr align="center"> 
			<td>

		<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
			<tr> 
			<td><img src="transp.gif" width="5" height="1"></td>
			</tr>
			</table>

		</td>
		</tr>
		<tr> 
		<td height="20">
		<% If RecSet("Namn") <> "" Then
		response.write(" &nbsp;&#0124; <b>" & Server.HTMLEncode(RecSet("Namn")) & "</b>")
		End If %> 
		&#0124;</td>
		</tr>
		</table>

------------------

"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"

<%
function fixatecken(str)
if Len("" & str) > 0 then
   fixatecken = Replace(str, vbCrLf, "<BR>" & vbCrLf)
else
   fixatecken = ""
end if
End function
%>

------------------
essentitia preter non sans multiplicandum

<%=Replace(Trim(RecSet)"Medd")),vbCrLf,"<br>")%>

[Redigerat av jboy_87 den 30 jan 2002]

Du får inte använda strängfunktioner som Replace, instr(), left(), osv på nullvärden.

Men du kan ju alltid modifiera din funktion till att göra nullvärden till strängar på detta sätt:

<%
function fixatecken(str)
fixatecken = Replace(str [b]& ""[/b], vbCrLf, "<BR>" & vbCrLf)
End function
%>

Mvh,