<%@ EnableSessionState=False LANGUAGE = VBScript %> <% Option Explicit %> <% Const RECORD_PER_PAGE = 10 'dek. vars Dim strConnStr, strSQL, intPageNR, intRecordNmb, objRS 'vars strConnStr = F_GetConnString( Server.MapPath( "../!@DATABASER@!/panelen.mdb" ) ) strSQL = "SELECT * FROM PANELEN WHERE PUBLISH ORDER BY QID DESC" intRecordNmb = 0 intPageNR = Request.QueryString( "P" ) If intPageNR = "" Then intPageNR = 1 End If 'databasen Set objRS = Server.CreateObject( "ADODB.Recordset" ) objRS.CursorLocation = 3 objRS.Open strSQL, strConnStr objRS.MoveFirst objRS.PageSize = RECORD_PER_PAGE objRS.AbsolutePage = intPageNR 'navigationen Dim blnShowNext, blnShowPrev, strNextP, strPrevP strNextP = intPageNR - 1 strPrevP = intPageNR + 1 If strNextP <> 0 Then blnShowNext = True End If If Not strPrevP > CInt( objRS.PageCount ) Then blnShowPrev = True End If %> www.HERKULES DEN STORE/STARKE.net - Panelen ver 2.0



<% Do While Not objRS.EOF AND intRecordNmb < objRS.PageSize %> <%= objRS( "FromName" ) %> frågar: <%= replace(objRS( "Question" ), "<BR>", "
") %>

Panelen svarar: <%= objRS( "Answer" ) %>

<% objRS.MoveNext intRecordNmb = intRecordNmb + 1 Loop objRS.Close Set objRS = Nothing %> <% If blnShowPrev Then Response.Write "" End If Response.write "Läs äldre svar" If blnShowPrev Then Response.Write "" End If %>   <% If blnShowNext Then Response.Write "" End If Response.write "Läs nyare svar" If blnShowNext Then Response.Write "" End If %>