<% Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "Driver={Mysql};Server=innodb.levonline.com;Database=c0050100_innodb1;UID=c0050101;PWD=79j8T3sn" Const perSida = 3 Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 Else sida = Sidan End If rs.CursorLocation = 3 rs.CacheSize = perSida SQL = "SELECT * From nyheter Order By Id Desc" rs.Open SQL, MinCon rs.MoveFirst rs.PageSize = perSida rs.AbsolutePage = sida Sidor = rs.PageCount Count = 0 Do While Not rs.EOF And Count < rs.PageSize %> <%=rs("rubrik")%>

<%=Replace(left(rs("nyhet"),100),vbCrLf,"
")%>..

">>> Läs hela
<%=rs("namn")%> - <%=rs("datum")%>

<% Count = Count + 1 rs.MoveNext Loop rs.Close MinCon.Close %> Tidigare Nyheter: <%If Sidor = 1 Then%> <%Else%> <%End If%> <%If Sidor <> 1 Then%> <%For Sid = 1 To Sidor%> <%If (Int(Sid)) = (Int(sida)) Then%> <%=Sid%> <%Else%> <%=Sid%> <%End If%> <%Next%> <%End If%>
<% Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open "Driver={Mysql};Server=innodb.levonline.com;Database=c0050100_innodb1;UID=c0050101;PWD=79j8T3sn" Set rs = Conn.Execute("SELECT Count(*) As news FROM nyheter") %> Det finns totalt <%=rs("news")%> nyheter i databasen. <% rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %>