<% displayRecs = 20 recRange = 10 ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' No Default Filter DefaultFilter = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("news_OB") = OrderBy Then If Session("news_OT") = "ASC" Then Session("news_OT") = "DESC" Else Session("news_OT") = "ASC" End if Else Session("news_OT") = "ASC" End If Session("news_OB") = OrderBy Session("news_REC") = 1 Else OrderBy = Session("news_OB") If OrderBy = "" Then OrderBy = DefaultOrder Session("news_OB") = OrderBy Session("news_OT") = DefaultOrderType End If End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open MM_kendwa_conn_STRING ' Build SQL strsql = "SELECT * FROM [experience]" If DefaultFilter <> "" Then whereClause = whereClause & "(" & DefaultFilter & ") AND " End If If dbwhere <> "" Then whereClause = whereClause & "(" & dbwhere & ") AND " End If If Right(whereClause, 5)=" AND " Then whereClause = Left(whereClause, Len(whereClause)-5) If whereClause <> "" Then strsql = strsql & " WHERE " & whereClause End If If OrderBy <> "" Then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("news_OT") End If 'Response.Write strsql Set rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("news_REC") = startRec ElseIf Request.QueryString("pageno").Count > 0 Then pageno = Request.QueryString("pageno") If IsNumeric(pageno) Then startRec = (pageno-1)*displayRecs+1 If startRec <= 0 Then startRec = 1 ElseIf startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 Then startRec = ((totalRecs-1)\displayRecs)*displayRecs+1 End If Session("news_REC") = startRec Else startRec = Session("news_REC") If Not IsNumeric(startRec) Or startRec = "" Then startRec = 1 ' Reset start record counter Session("news_REC") = startRec End If End If Else startRec = Session("news_REC") If Not IsNumeric(startRec) Or startRec = "" Then startRec = 1 'Reset start record counter Session("news_REC") = startRec End If End If %> KENDWA BREEZES
 
<% Dim RS,SQL,A ' Count Last updated Resources '===================================================== '----------------------------------------------------- Set conn = Server.CreateObject("ADODB.Connection") conn.Open MM_kendwa_conn_STRING SQL = "SELECT fname,lname,email,comments FROM experience WHERE e_status=True " '----------------------------------------------------- '===================================================== SQL = SQL & "ORDER BY ID DESC" Set RS = conn.Execute (SQL) ''A=RS("link_name") %> <% Do While Not RS.EOF %> <% '' Response.Write & RS("fname") & "' target='_parent'>"%> <% Response.write "

   " & RS("fname") &" "& RS("lname") & "
"& vbCRLF %> <%'' Response.Write RS("lname") & "
" & vbCRLF '' Response.Write RS("email") & "
" & vbCRLF %> <% Response.Write Left(RS("comments"),150) &"

" & vbCRLF RS.MoveNext Loop RS.Close Set RS = Nothing %>

<% ' Close recordset and connection ''rs.Close ''Set rs = Nothing ''conn.Close ''Set conn = Nothing %> <% ' Display page numbers If totalRecs > 0 Then rsEof = (totalRecs < (startRec + displayRecs)) ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %> Prev <% End If If (isPrev Or (Not rsEof)) Then x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > totalRecs Then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy1+recRange-1 End If While x <= totalRecs If x >= dx1 And x <= dx2 Then If CLng(startRec) = CLng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 ElseIf x >= (dx1-displayRecs*recRange) And x <= (dx2+displayRecs*recRange) Then If x+recRange*displayRecs < totalRecs Then %> <%=y%>-<%=y+recRange-1%> <% Else ny=(totalRecs-1)\displayRecs+1 If ny = y Then %> <%=y%> <% Else %> <%=y%>-<%=ny%> <% End If End If x=x+recRange*displayRecs y=y+recRange Else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rsEof Then NextStart = startRec + displayRecs isMore = True %> Next <% Else isMore = False End If %>
<% If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs stopRec = startRec + displayRecs - 1 recCount = totalRecs - 1 If rsEOF Then recCount = totalRecs If stopRec > recCount Then stopRec = recCount %> <% Else %> No records found <% End If %>
 
Share your experiences with us