<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001 %> <% dbCon = "DSN=Db-tekbyr-GK3GI;DATABASE=Db-tekbyr-EK6UI;pwd=6173;" Set conMitt = Server.CreateObject("ADODB.Connection") conMitt.Open dbCon 'Hämtar typ typ = Request.Querystring("typ") 'Sätter statiska data if typ = "tb" then t_typ = "tekniskabyran.se - Senaste nytt" t_link = "http://www.tekniskabyran.se" t_copy = "tekniskabyran.se" t_mail = "info@tekniskabyran.se (Tekniska Byrån)" elseif typ = "intelli" then t_typ = "Intelli-House - Senaste nytt" t_link = "http://www.intelli-house.net" t_copy = "tekniskabyran.se" t_mail = "info@tekniskabyran.se (Tekniska Byrån)" elseif typ = "knx" then t_typ = "KNX - Senaste nytt" t_link = "http://www.smartavillor.se/knx" t_copy = "tekniskabyran.se" t_mail = "info@tekniskabyran.se (Tekniska Byrån)" else t_typ = typ & " - www.tekniskabyran.se" t_link = "http://www.tekniskabyran.se" t_copy = "tekniskabyran.se" t_mail = "info@tekniskabyran.se (Tekniska Byrån)" end if datum=date ddNamn = dag(WeekDay(datum)) dd = Day(datum) mm = manad(Month(datum)) yy = Year(datum) tid = "02:00:00 +0100" feedpubdate = ddNamn & ", " & dd & " " & mm & " " & yy & " " & tid 'Skapar rss-channel XML = "" XML = XML & "" XML = XML & "" XML = XML & "" & t_typ & "" & t_link & "" XML = XML & "De senaste nyheterna, " & t_typ & "" XML = XML & "" & feedpubdate & "" XML = XML & "" & t_link & "" XML = XML & "sv" XML = XML & "" & t_link & "http://www.tekniskabyran.se/tekniskabyran/bildarkiv/trilogo32.jpg" & t_typ & "120400" XML = XML & "" & feedpubdate & "" XML = XML & "Copyright " & t_copy & ". All Rights Reserved." XML = XML & "" & t_mail & "" 'Hämtar nyheter från databas If LCase(typ) = "tb" or LCase(typ) = "intelli" or LCase(typ) = "knx" Then SQL = "SELECT * FROM Nyhet WHERE Kategori LIKE '%" + typ + "%' AND Aktiv = 'Aktiv' AND SkapatD <= Date() AND SistaD >= Date() ORDER BY SkapatD DESC" Else SQL = "SELECT * FROM Nyhet WHERE x5 LIKE '%;" + typ + ";%' AND Aktiv = 'Aktiv' AND SkapatD <= Date() AND SistaD >= Date() ORDER BY SkapatD DESC" End If Set rs = conMitt.Execute(SQL) cnt =0 'Skapar nyhetslista While not rs.eof title=rs("Rubrik") ingress=rs("Inledning") ingress=Replace(ingress, "
", "") text=rs("Body") text=Replace(text, "
", "") datum=rs("SkapatD") ddNamn = dag(WeekDay(datum)) dd = Day(datum) mm = manad(Month(datum)) yy = Year(datum) tid = "10:00:00 +0100" pubdate = ddNamn & ", " & dd & " " & mm & " " & yy & " " & tid link=rs("Lank") if trim(link) = "" or isnull(link) then link = t_link end if bild=rs("Bild") 'Löpnummer för GUID cnt = cnt + 1 'Skapar ett Item (en nyhet) XML = XML & "" XML = XML & "" & t_link & "/"& cnt &"" XML = XML & ""& title &"" XML = XML & "" & ingress & "..." & "" XML = XML & ""& link &"" XML = XML & ""& pubdate &"" 'XML = XML & "" & t_typ & "" XML = XML & "" & t_typ & " News" 'XML = XML & "" & link & "http://www.tekniskabyran.se/tekniskabyran/bildarkiv/trilogo.jpg" & t_typ & "120400" XML = XML & "" XML = XML & "" XML = XML & "

" & ingress & "

" XML = XML & "


" & text & "

" 'XML = XML & "


" & bild & "

" XML = XML & "" if trim(bild) = "" or isnull(bild) then 'XML = XML & "

" else XML = XML & "

" end if 'Eventuell textspalt under bild 'XML = XML & "
Text i spalt 2" XML = XML & "

]]>" rs.movenext WEND rs.close If cnt = 0 Then XML = XML & "" XML = XML & "" & t_link & "/"& cnt &"" XML = XML & ""& title &"" XML = XML & "Inga nyheter att visa" XML = XML & ""& t_link &"" XML = XML & ""& feedpubdate &"" 'XML = XML & "" & t_typ & "" XML = XML & "" & t_typ & " News" XML = XML & "" End If XML = XML & "" XML = XML & "" response.write (XML) 'Funktioner f;r att skapa datum Function dag(nr) Dim temp Select case nr case 1 temp = "Sun" case 2 temp = "Mon" case 3 temp = "Tue" case 4 temp = "Wed" case 5 temp = "Thu" case 6 temp = "Fri" case 7 temp = "Sat" End select dag = temp End function Function manad(nr) Dim temp Select case nr case 1 temp = "Jan" case 2 temp = "Feb" case 3 temp = "Mar" case 4 temp = "Apr" case 5 temp = "May" case 6 temp = "Jun" case 7 temp = "Jul" case 8 temp = "Aug" case 9 temp = "Sep" case 10 temp = "Oct" case 11 temp = "Nov" case 12 temp = "Dec" End select manad = temp End function %> Error processing SSI file