")
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)=""
rad(5)="http://www.mats-andersson.se/blogg"
rad(6)="Klocklös i Tiden - Mats Anderssons blogg"
'rad(7)=""&left(NOW,10)&"T"&right(NOW,8)&""
rad(7) = "" & pubd & ""
rad(8)="2005"
rad(9)="info@mats-andersson.se"

SQL = "SELECT * FROM anteckningar ORDER BY ID DESC"

objConn.Open koppling&"mbs.mdb"&koppling2
objRS.Open SQL, objConn
rx=9
antal = 1
while not antal > 20
rx=rx+1
rad(rx)=""
rx=rx+1
rad(rx) = ""
rx=rx+1
rad(rx) = "http://www.mats-andersson.se/blogg/show.asp?svarsID="&objRS("ID")&"" 
rx=rx+1
rad(rx) = "" 
anteckning = objRS("anteckning")
'anteckning = replace(objRS("anteckning") & "", "
" ,VbCrLf)
texten = ""
'response.write (len(objRS("anteckning")))
mn=0
'if len(anteckning) = 0 then anteckning = "Tom anteckning"
'response.write(anteckning)
'response.write (len(anteckning))
'if antal = 7 then response.end
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 
x = 1
mn=1
tecken = ""
tecken = "<A HREF='"
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
'-- Kanske ska nedanstående tas bort?
if kle=1 then 
rad(rx) = rad(rx) & texten & ">"
else
rad(rx) = rad(rx) & " " & texten  
end if
'-- Kanske ska ovanstående tas bort?
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 ("")
response.end


	Set Text2 = Server.CreateObject("Scripting.FileSystemObject")
	Set Filen = Text2.CreateTextFile("D:/customers/mats-andersson.se/wwwroot/blogg/rss/rss.txt",true,false)
	
	for i = 1 to rx + 2
	Filen.WriteLine rad(i)
	next
	Filen.Close

%>