Problem med Replace i min gæstebog
Hej jeg får en fejlmeddelse når jeg prøver at åbne min gæste bog fejlen lyder sådan her ::Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A005E)
Null er brugt ugyldigt: 'Replace'
/myweb/Team_2006/Users/gbog.asp, line 88
Scriptet ser sådan her ud ::
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="layout.css" rel="stylesheet" type="text/css">
</head>
<body>
<% If Request("action") = "" then %>
<table align="center" border="1" width="400">
<tr>
<td class="overskrift">
<Form method="post" action="gbog.asp?action=skriv">
Overskrift:
<input class="formOverskrift" type="text" name="Overskrift">
</td>
</tr>
<tr>
<td class="overskrift">
Tekst:
</td>
</tr>
<tr>
<td>
<textarea class="formText" cols="50" rows="10" name="Kommentar"></textarea>
</td>
</tr>
<table align="center" border="1" width="430">
<tr>
<td class="overskrift">
<div align="center">
<input class="formNavn" type="text" name="Navn" value="Navn">
<input class="formNavn" type="text" name="E-mail" value="E-mail">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input class="formOpdater" type="submit" name="Submit" value="Opdater" />
</Form>
</div>
</td>
</tr>
</table>
</table>
<% End if %>
<!---------------------------------- Start på script til indskrivning i database --------------------------->
<%
If Request("action") = "skriv" then
%>
<!--#include file="../725718/inc_forbindelse.asp" -->
<%
Set bog = Server.CreateObject("ADODB.Recordset")
bog.Open "comment", database, 2, 2
bog.AddNew
bog("Overskrift") = Request.Form("Overskrift")
bog("Kommentar") = Request.Form("Kommentar")
bog("Navn") = Request.Form("Navn")
bog("E-mail") = Request.Form("E-mail")
bog("dato") = Date()
bog.Update
Response.Redirect("gbog.asp")
%>
<% End If %>
<!--#include file="../725718/inc_forbindelse.asp" -->
<%
Set bog = Server.CreateObject("ADODB.Recordset")
bog.Open "SELECT * FROM comment ORDER BY dato DESC", database
%>
<%
While NOT bog.EOF
%>
<table align="center" border="1">
<tr>
<td class="tabelOverskrift">
<% = bog.Fields("Overskrift")%>
</td>
</tr>
<tr>
<td class="tabelText">
<% strText = bog.Fields("Kommentar")
strText = Replace(strText, "<", "<")
strText = Replace(strText, ">", ">")
strText = Replace(strText, ":-)", "<img src=warning.gif>")
strText = Replace(strText, ":-(", "<img src=Emoticon-dolph-sad.gif>")
strText = Replace(strText, ":)", "<img src=Bart.gif>")
strText = Replace(strText, vbCrlf, "<br>")%>
<% = strText %>
</td>
</tr>
<tr>
<td class="tabelNavn">
<% strNavn = bog.Fields("Navn")
strNavn = Replace(strNavn, "kasper", "Kenny bøss bøss")
strNavn = Replace(strNavn, "thusan", "2san :)")
strNavn = Replace(strNavn, ":)", "<img src=Bart.gif>")%>
<span style="font-style:italic; font-size:8pt;">Skrevet af: </span><% = strNavn %>
</td>
<tr/>
<tr>
<td class="tabelEmail">
<span style="font-style:italic; font-size:8pt;">E-mail: </span><% = bog.Fields("E-mail")%>
</td>
</tr>
</table>
<br/>
<%
bog.MoveNext
Wend
%>
</div>
</body>
</html>
