<% Dim adRotator Dim strPicture Set adRotator = Server.Createobject("MSWC.AdRotator") If IsObject(adRotator) Then strPicture = adRotator.GetAdvertisement("adrotator.txt") Else strPicture = "Kan ej hämta bild från server." End If %>

Välkommen till hemsidan för Malmhaug IBK!
<%= strPicture %>
<% Dim rsNews Dim strNews, strDatum ' flytta till Nyheter: strNews = "SELECT * FROM `tblNews` WHERE TeamID = 1 ORDER BY newsDate DESC LIMIT 5" Set rsNews = malmhaugRS(strNews) If rsNews.EOF Or rsNews.BOF Then Response.Write "Inga nyheter för tillfället" Else Do while not rsNews.EOF strDatum = FormatDateTime(rsNews("NewsDate"), vbShortDate) & " kl " & FormatDateTime(rsNews("NewsDate"), vbShortTime) strDatum = Replace(strDatum, "/", "-") Response.Write "" rsNews.MoveNext Loop End If CloseDB(rsNews) %> Senaste nyheterna för Malmhaug (ej lag): " & rsNews("headLine") & " " & strDatum & "
Vill du spela med Malmhaug? Läs mer här eller under de olika lagens egna sidor.
Besökare:	Även: wap.malmhaug.se
© 2006 Malmhaug IBK Kontakta Webmaster