% 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
<% 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 %>
Rubrik
Taget
Inlagd
<% x = x + 1
RSShow.MoveNext
Loop
RSShow.Close
Set RSShow = Nothing
Connect.Close
Set Connect = Nothing %>
<% 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 %>