<% If Session("MAGuest") = False Or IsNull(Session("MAGuest")) = True Then Response.Redirect"login.asp?what=fail" End If %> <% Response.Buffer = True Session.LCID = 1053 intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 '===================================================================================================================== 'Öppnar databasen '===================================================================================================================== Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=gurkmeja;dbq=" & Server.MapPath("../../../data/album.mdb") Set RSShow = Server.CreateObject("ADODB.Recordset") Radera = "SELECT * FROM Album ORDER BY Datum DESC, ID DESC" With RSShow .ActiveConnection = Connect .Source = Radera .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %>

Välkommen till Alice & Tilde's Album!

Logga ut

<% If Not RSShow.EOF Then strNewDate = RSSHow("Datum") RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount TotalPosts = RSShow.Recordcount Call PageNavigation(intPage, intTotalPages) %> <% x = 0 Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSShow.MoveNext Loop RSShow.Close Set RSShow = Nothing Connect.Close Set Connect = Nothing %>
Rubrik Taget Inlagd
<% If RSShow("Datum") = strNewDate AND RSShow("Datum") > DateAdd("d", -14, Now) Then %><% End If %>" target="_blank"><% =RSShow("Rubrik") %>  <% =RSShow("Taget") %>  <% =RSShow("Datum") %> 

<% Call PageNavigation(intPage, intTotalPages) %><% Else Response.Write "
Inga Objekt hittade..." End If %>