<!--------------------------------------------Tjejer---------------------------------------------> Testa: Ändra:Replace!
<% If Request.Querystring("kat") = "tjejer" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\vackrast\db\databas.mdb"
Set RecSet=Connect.Execute("SELECT * FROM kommentar_tjejer where tillid=" & Request.Querystring("id") & " order by datum DESC")%>
<%
Function smile(kommentar)
kommentar = Server.HTMLEncode(RecSet("kommentar"))
kommentar = Replace(kommentar,":)","<img src=""smile/smile.gif"">")
kommentar = Replace(kommentar,":@","<img src=""smile/angry.gif"">")
kommentar = Replace(kommentar,":D","<img src=""smile/biggrin.gif"">")
kommentar = Replace(kommentar,":c","<img src=""smile/clown.gif"">")
kommentar = Replace(kommentar,":dd","<img src=""smile/dead.gif"">")
kommentar = Replace(kommentar,":j","<img src=""smile/devil.gif"">")
kommentar = Replace(kommentar,":(","<img src=""smile/frown.gif"">")
kommentar = Replace(kommentar,":o","<img src=""smile/oh.gif"">")
kommentar = Replace(kommentar,":p","<img src=""smile/tongue.gif"">")
kommentar = Replace(kommentar,";)","<img src=""smile/wink.gif"">")
kommentar = TRIM(kommentar)
kommentar = Replace(kommentar,vbcrlf," <br>")
smile = kommentar
End Function
%>
<html>
<head>
<title>Kommentar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FF7979" text="#FFFFFF">
<img src="kommentar.gif" width="450" height="60"> <br>
<table width="450" border="0">
<tr>
<td height="39">
<%
If Recset.EOF Then
Response.Write "Inga meddelande än!"
Else
Do Until Recset.EOF
%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Meddelande:</b><br>
<%= smile(RecSet("kommentar")) %>
Får felmeddelandet:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'Server.HTMLEncode'
/vackrast/visa_kommentar.asp, line 15
Line 15 är:
kommentar = Server.HTMLEncode(RecSet("kommentar"))Sv: Replace!
kommentar = Server.HTMLEncode(RecSet("kommentar").Value)
Annars skickar du fält objektet som referens till funktionen.Sv: Replace!
kommentar = Server.HTMLEncode(RecSet("kommentar"))
Till:
kommentar = Server.HTMLEncode(kommentar)
Då ska det fungera.
//Jonas