<% ScriptName = Request.ServerVariables("SCRIPT_NAME") Set rs = Server.CreateObject("ADODB.Recordset") const NumPerPage = 20 If Request.QueryString("page") = "" then CurrentPage = 1 Else CurrentPage = CInt(Request.QueryString("page")) End If mySQL = "SELECT ueberschrift,id,datum FROM artikel where unterkategorieid Order by datum desc" rs.Open mySQL, conn, 3, 3 If Not rs.EOF Then rs.MoveFirst rs.PageSize = NumPerPage TotalPages = rs.PageCount rs.AbsolutePage = CurrentPage End If Dim Count %> <% Response.write "

" Response.Write "" %> <% Do While Not rs.EOF and Count < rs.PageSize if intRowColor = 0 Then Response.Write "" intRowColor = 1 Else Response.Write "" intRowColor = 0 End if %> " %> <% rs.MoveNext Count = Count + 1 Loop Response.Write "

Últimos Tips

<% dim ueberschrift ueberschrift = server.htmlencode (RS.Fields("ueberschrift")) & "
" Response.Write "" & ueberschrift & "		" & rs.Fields("datum") & "
" %> <% set rs = Nothing conn.Close set conn = Nothing %>