<% fler = 1
response.ContentType="application/rss+xml"
%>
<%
session.lcid=1033
pubd = left(FormatDateTime(now,1),3) & ", "
session.lcid=2057
dag = day(now())
manad = month(now())
ar = year(now())
if manad = "01" then manad = "Jan"
if manad = "02" then manad = "Feb"
if manad = "03" then manad = "Mar"
if manad = "04" then manad = "Apr"
if manad = "05" then manad = "May"
if manad = "06" then manad = "Jun"
if manad = "07" then manad = "Jul"
if manad = "08" then manad = "Aug"
if manad = "09" then manad = "Sep"
if manad = "10" then manad = "Oct"
if manad = "11" then manad = "Nov"
if manad = "12" then manad = "Dec"
'pubd = pubd & formatdatetime(now,1)
'f = 0
'for n = 1 to len(formatdatetime(now,1))
'if mid(formatdatetime(now,1),n,1) ="," and f = 0 then f = n +1
'next
'pubd = pubd & mid(formatdatetime(now,1),f,len(formatdatetime(now,1))-6)
'pubd = pubd & right(formatdatetime(now,1),5)
session.lcid=1053
pubd = pubd & dag & " " & manad & " " & ar & " " & right(now,8) & " +0100"
dim rad(200)
rad(1)=""
rad(2)=""
rad(3)=""
rad(4)="Klocklös i Tidens kommentarer"
rad(5)="http://www.mats-andersson.se/blogg"
rad(6)="Klocklös i Tiden - Mats Anderssons blogg"
rad(7) = "" & pubd & ""
rad(8)="2005"
rad(9)="info@mats-andersson.se"
SQL = "SELECT * FROM blogg WHERE svarsID > 0 ORDER BY ID DESC"
objConn.Open koppling&"mbs.mdb"&koppling2
objConn2.Open koppling&"mbs.mdb"&koppling2
objRS.Open SQL, objConn
rx=9
antal = 1
while not antal > 20
SQL2 = "SELECT * FROM anteckningar WHERE ID = " & objRS("svarsID")
'response.write (SQL2)
objRS2.Open SQL2, objConn2
if not objRS2.EOF then sss = objRS2("rubrik")
objRS2.Close
objrsnamn = objRS("namn")
if objrsnamn <> "" then objrsnamn = replace(objrsnamn,"<","<")
rx=rx+1
rad(rx)=""
rx=rx+1
rad(rx) = "" & objrsnamn & ", "& sss&""
rx=rx+1
rad(rx) = "http://www.mats-andersson.se/blogg/show.asp?svarsID="&objRS("svarsID")&""
rx=rx+1
rad(rx) = ""
anteckning = objRS("kommentar")
'anteckning = replace(objRS("anteckning") & "", " " ,VbCrLf)
texten = ""
'response.write (len(objRS("anteckning")))
mn=0
texten = "<b>" & objrsnamn & " säger: </b><br>"
for j = 1 to len(anteckning)
'if j < 151 then
x = 0
tecken = mid(anteckning,j,1)
if tecken = "&" then tecken = "&"
if tecken = chr(34) then tecken = """
if tecken = chr(39) then tecken = "'"
if tecken = ">" then tecken = ">"
if tecken = "<" then tecken = "<"
if tecken = "{" then
'if tecken = chr(34) then tecken =
x = 1
mn=1
'tecken = "<A HREF='"
tecken = ""
end if
if mid(anteckning,j,1) = "£" then
x = 1
mn=2
tecken = ""
'tecken = "'>"
end if
if mid(anteckning,j,1) = "}" then
x = 1
mn =0
tecken = ""
'tecken = "</A>"
end if
if mid(anteckning,j,1) = "<" then kle=1
if mid(anteckning,j,1) = ">" then kle=0
if mn <> 1 then texten = texten & tecken
'end if
next
'if kle=1 then
'rad(rx) = rad(rx) & texten & ">"
'else
rad(rx) = rad(rx) & " " & texten
'end if
rad(rx) = rad(rx) & "..."
rx=rx+1
rad(rx) = " "
objRS.MoveNext
antal = antal + 1
wend
objRS.Close
objConn.Close
rad(rx+1) = ""
rad(rx+2) = ""
for i = 1 to rx+2
for j = 1 to len(rad(i))
response.write (mid(rad(i),j,1))
next
next
'response.write(rad(i)&" ")
'next
'response.write ("