<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% Dim bThisWeek Dim vDate Dim iWeekID Dim iYearID bNextWeek = 1 If bNextWeek = 1 Then vDate = Now + 7 Else vDate = Now End If iWeekID = DatePart("ww", vDate, vbMonday, vbFirstFourDays) iYearID = DatePart("yyyy", vDate) function GetHoroscope(iSignID, iYearID, iWeekID) Dim i Dim sPath Dim sTrash sPath = "/se/Data/veckohoroskop/" & iYearId & "/" & iWeekID & ".txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath(sPath), 1) For i = 1 To 12 If i = iSignId Then GetHoroscope = f.ReadLine Else sTrash = f.ReadLine End If Next f.Close Set f=Nothing Set fs=Nothing End Function %>

more..

Horoskop Nyheter Astrologi Litteratur Numerologi Kinesiskt horoskop Horoskop på din site Veckohoroskop Till startsida  Tipsa en vän Det enda du behöver göra är att skriva in din väns email adress och klicka på "skicka" email Ditt Namn(frivilligt) skicka   rensa  Övrigt Kontakt Privacy © 2001 E&L   Veckohoroskop för vecka <% response.write(iWeekID) %> (nästa vecka) Stämmer inte veckonumret? Klicka då på uppdatera eller reload i din webläsare för att rätta till det! Stenbocken (22/12 - 19/1) <% response.write(GetHoroscope(1, iYearID, iWeekID)) %> Vattumannen (20/1 - 18/2) <% response.write(GetHoroscope(2, iYearID, iWeekID)) %> Fiskarna (19/2 - 20/3) <% response.write(GetHoroscope(3, iYearID, iWeekID)) %> Väduren (21/3- 19/4) <% response.write(GetHoroscope(4, iYearID, iWeekID)) %> Oxen (20/4- 20/5) <% response.write(GetHoroscope(5, iYearID, iWeekID)) %> Tvillingarna (21/5 - 20/6) <% response.write(GetHoroscope(6, iYearID, iWeekID)) %> Kräftan (21/6 - 22/7) <% response.write(GetHoroscope(7, iYearID, iWeekID)) %> Lejonet (23/7 - 22/8) <% response.write(GetHoroscope(8, iYearID, iWeekID)) %> Jungfrun (23/8 - 22/9) <% response.write(GetHoroscope(9, iYearID, iWeekID)) %> Vågen (23/9 - 22/10) <% response.write(GetHoroscope(10, iYearID, iWeekID)) %> Skorpionen (23/10 - 21/11) <% response.write(GetHoroscope(11, iYearID, iWeekID)) %> Skytten (22/11 - 21/12) <% response.write(GetHoroscope(12, iYearID, iWeekID)) %> Endast i roande syfte