Og så lige en fejl, når man prøve at dimme en array med en dynamisk længde.. det kan man jo ikke i vbscript.
Så man skal lige via en dim og en redim, så skulle den jo være løs:
---
Hej VTMServer
Her er en kode som skulle hjælpe dig med dit problem, og den skulle virker på alle dine tekster, bare du bruger functionen FormaterTekst(sText)
mvh
Mr.Spock B)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\web\localuser\pivskid.dk\database\database.mdb"
Conn.Open DSN
' Hent smileys ind i en application variable,
' det forventes at der findes et aktiv felt i smileys
' så man kan se om de smiley er aktiv eller ej
Sub LoadSmileys
If NOT IsArray(application("smileys")) Then
sql = "SELECT count(*) as result FROM smileys where aktiv<>0"
Ser rs = Conn.Execute(sql)
antal = rs("result")
If Not IsNumeric(antal) Then Antal = 1
dim smileyarr()
redim smileyarr(antal-1, 1)
dim idx
idx = 0
sql = "SELECT * FROM smileys where aktiv<>0"
Ser rs = Conn.Execute(sql)
Do While Not rs.EOF
smileyarr(idx, 0) = rs("smileytag")
smileyarr(idx, 1) = rs("filnavn")
rs.MoveNext
idx = idx + 1
Loop
application.lock
application("smileys")=smileyarr
application.unlock
End If
End Sub
Function ReplaceTag(ByVal sText, ByVal sTag, ByVal sReplace)
Dim result
result = Replace(sText, sTag, sReplace, 1, -1, 1)
ReplaceTag = result
End function
Function UdskiftSmileys(ByVal sText)
Dim idx, sTemp
sTemp = Trim(sText & "")
LoadSmileys
FOR idx = 0 TO UBound(application("smileys"))
sTemp = ReplaceTag(sTemp, application("smileys")(idx,0), "<img src='"application("smileys")(idx,1)&"' alt='"&application("smileys")(idx,0)&"'>" )
NEXT
UdskiftSmileys = sTemp
End Function
Function FormaterTekst(ByVal sText)
Dim sTemp
sTemp = Trim(sText & "")
sTemp = UdskiftSmileys( sTemp )
FormaterTekst = sTemp
End Function
commentID = request.querystring("id")
commentID = Replace(commentID, "'", "´")
SQLstringK = "SELECT * FROM kommentar WHERE id2 = '" & commentID & "' order by id desc"
SET rs = Conn.Execute(SQLstringK)
IF rs.BOF OR rs.EOF THEN
response.write "Piveren her har desværre ikke modtaget nogen beskeder endnu...<br><br>"
ELSE
LOOP
response.write "<table border='1' width='100%' id='table2' style='border-collapse: collapse' bordercolor='#666666'>" & vbNewLine
response.write " <tr>" & vbNewLine
response.write " <td width='40%' bgcolor='#6699FF'> <a href='profil.asp?id=" & rs("afsender") & "'>" & rs("navn") & "</a></td>" & vbNewLine
response.write " <td bgcolor='#CCCCCC'> " & rs("dato") & "</td>" & vbNewLine
response.write " </tr>" & vbNewLine
response.write " <tr>" & vbNewLine
response.write " <td colspan='2' bgcolor='#999999'> " & FormaterTekst( rs("kommentar") ) & "</td>" & vbNewLine
response.write " </tr>" & vbNewLine
response.write "</table>" & vbNewLine
if Trim( rs("id") & "") = Trim( Session("login") & "") then
response.write "<a href='profil_slet_tagwall.asp?id=" & rs2("id")&"'>"
response.write "<img border='0' src='iconer/delete.gif' width='44' height='14'></a>"
response.write "<br><br>" & vbNewLine
end if
Response.Write "<br>" & vbNewLine
rs.MoveNext
UNTIL Rs.eof
END IF
%>
---
