")
response.write (" " & antal & ". ")
if objRS("url")<>"" then
response.write ("" & objRS("hemsida") & ": ")
end if
if objRS("email") <> "" then
response.write ("")
end if
response.write (objRS("Namn") & " " & left(objRS("tid"),4) & "-" & mid(objRS("tid"),6,2) & "-" & mid(objRS("tid"),9,2) & " " & mid(objRS("tid"),12,5) & "
")
kommentar = (replace(objRS("kommentar") & "", VbCrLf, " ")) & " "
bok = ""
linka = ""
hh = 0
if len(kommentar)>4 then
for ff = 1 to len(kommentar)-4
if mid(kommentar,ff,1) <> "h" then
bok = bok & mid(kommentar,ff,1)
else
if mid(kommentar,ff+1,1) = "t" and mid(kommentar,ff+2,1) = "t" and mid(kommentar,ff+3,1) = "p" then
gg = ff
bok = bok & ""&linka&""
ff=gg-1
if gg = len(kommentar) then hh = 1
else
bok = bok & "h"
end if
end if
next
end if
if hh = 0 then bok = bok & right(kommentar,4)
response.write(bok)
response.write (" |
")
objRS.MoveNext
antal = antal + 1
Wend
objRS.Close
objConn.Close
%>