Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ASP paging to CFM 1

Status
Not open for further replies.
joelxez

joelxez

Programmer
Apr 18, 2002
67
PH
Anyone who could help me to convert this to cfm?



<html>
<head>
<TITLE>Page</TITLE>
<

</head>


<%

'Constants
Const MIN_PAGESIZE = 5 'Minimum pagesize
Const MAX_PAGESIZE = 20 'Maximum pagesize
Const DEF_PAGESIZE = 10 'Default pagesize


'Variables
Dim strSearch
Dim strURL
Dim objCn 'ADO DB connection object
Dim objRs 'ADO DB recordset object
Dim blnWhere 'True/False for have WHERE in sql already
Dim intRecord 'Current record for paging recordset
Dim intPage 'Requested page
Dim intPageSize 'Requested pagesize
Dim sql 'Dynamic sql query string


'Create objects
Set objCn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

'Set/initialize variables
intRecord = 1
blnWhere = False

'-Get/set requested page
intPage = MakeLong(Request("page"))
If intPage < 1 Then intPage = 1

'-Get/set requested pagesize
If IsEmpty(Request("pagesize")) Then 'Set to default
intPageSize = DEF_PAGESIZE
Else
intPageSize = MakeLong(Request("pagesize"))
'Make sure it fits our min/max requirements
If intPageSize < MIN_PAGESIZE Then
intPageSize = MIN_PAGESIZE
ElseIf intPageSize > MAX_PAGESIZE Then
intPageSize = MAX_PAGESIZE
End If
End If

'-Build dynamic sql
'sql = "SELECT * FROM tbl_Guestbook "




sql = "SELECT * FROM tblPost_Job " _
& "ORDER BY datereleased DESC;"





'Create and open connection object
With objCn
.CursorLocation = adUseClient
.ConnectionTimeout = 15
.CommandTimeout = 30
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("database/database.mdb") & ";"
.Open
End With

'Create and open recordset object
With objRs
.ActiveConnection = objCn
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Source = sql
.PageSize = intPageSize
.Open
Set .ActiveConnection = Nothing 'Disconnect the recordset
End With

'Creates a long value from a variant, invalid always set to zero
Function MakeLong(ByVal varValue)
If IsNumeric(varValue) Then
MakeLong = CLng(varValue)
Else
MakeLong = 0
End If
End Function

'Returns a neatly made paging string, automatically configuring for request
'variables, regardless of in querystring or from form, adjust output to your needs.
Function Paging(ByVal intPage, ByVal intPageCount, ByVal intRecordCount)
Dim strQueryString
Dim strScript
Dim intStart
Dim intEnd
Dim strRet
Dim i

If intPage > intPageCount Then
intPage = intPageCount
ElseIf intPage < 1 Then
intPage = 1
End If

If intRecordCount = 0 Then
strRet = "No Records Found"
'ElseIf intPageCount = 1 Then
' strRet = "End Of Hits"
Else
For i = 1 To Request.QueryString.Count
If LCase(Request.QueryString.Key(i)) <> "page" Then
strQueryString = strQueryString & "&"
strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Key(i)) & "="
strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Item(i))
End If
Next

For i = 1 To Request.Form.Count
If LCase(Request.Form.Key(i)) <> "page" Then
strQueryString = strQueryString & "&"
strQueryString = strQueryString & Server.URLEncode(Request.Form.Key(i)) & "="
strQueryString = strQueryString & Server.URLEncode(Request.Form.Item(i))
End If
Next

If Len(strQueryString) <> 0 Then
strQueryString = "?" & Mid(strQueryString, 2) & "&"
Else
strQueryString = "?"
End If

strScript = Request.ServerVariables("SCRIPT_NAME") & strQueryString



If intPage <= 10 Then
intStart = 1
Else
If (intPage Mod 10) = 0 Then
intStart = intPage - 9
Else
intStart = intPage - (intPage Mod 10) + 1
End If
End If

intEnd = intStart + 9
If intEnd > intPageCount Then intEnd = intPageCount

strRet = "Page " & intPage & " of " & intPageCount & ": "

If intPage <> 1 Then
strRet = strRet & "<a href=""" & strScript
strRet = strRet & "page=" & intPage - 1
strRet = strRet & """>&lt;&lt;Prev</a> "
End If

For i = intStart To intEnd
If i = intPage Then
strRet = strRet & "<b>" & i & "</b> "
Else
strRet = strRet & "<a href=""" & strScript
strRet = strRet & "page=" & i
strRet = strRet & """>" & i & "</a>"
If i <> intEnd Then strRet = strRet & " "
End If
Next

If intPage <> intPageCount Then
strRet = strRet & " <a href=""" & strScript
strRet = strRet & "page=" & intPage + 1
strRet = strRet & """>Next&gt;&gt;</a> "
End If
End If

Paging = strRet
End Function
%>



<div align="left" style="width: 599; height: 24">



<!--Search Form-->
<form name="frmSearch" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="Post">


<p align="center">


<%If objRs.EOF Then%>
<!--No Records Found-->



<b><font face="verdana" size="2">No Records found!</font></b>
</div>
<table>
</tr>

<%Else%>
<!--Records Found-->
<tr>
<td width="885" height="97">
<div align="left">
<table border="0" width="595" cellpadding="0" cellspacing="1" height="206">
<tr><td colspan=7 width="482" height="52" align="right" </b>
<p align="right"><span style="position: absolute; left: 400; top: 114"><img border="0" src="../listofvacant.jpg" width="360" height="58"></span></td></tr>
<tr><td colspan=7 width="482" height="13"><b><font face="Verdana" size="2">Job(s)&nbsp; Found:
<%=objRs.RecordCount%></font> </b></td></tr>
<tr><td align="center" colspan="7" width="482" bgcolor="#FFFFFF" height="21"><font face="Verdana" size="1">
<p align="left"><%=Paging(intPage, objRs.PageCount, objRs.RecordCount)%></font></td></tr>

<tr>
<td align="center" colspan="7" width="482" height="18"></td>
</tr>

<tr bgcolor="#efefef">
<td width="85" align="center" height="25"><font face="Verdana" size="1">Type</font></td>
<td width="78" align="center" height="25"><font face="Verdana" size="1">Position</font></td>
<td width="73" align="center" height="25"><font face="Verdana" size="1">Agency</font></td>
<td width="157" align="center" height="25"><font face="Verdana" size="1">Item No</font></td>
<td width="187" align="center" height="25"><font face="Verdana" size="1">Salary Grade</font></td>
<td align="center" width="105" height="25"><font face="Verdana" size="1">Requirements</font></td>
<td align="center" width="111" height="25"><font face="Verdana" size="1">Date&nbsp; Released</font></td>
</tr>

<%
If objRs.PageCount < intPage Then intPage = objRs.PageCount
objRs.AbsolutePage = intPage

Dim strRowColor
strRowColor = "#ffffff"

Do While Not objRs.EOF And intRecord <= intPageSize
%>

<tr bgcolor="<%=strRowColor%>">
<td nowrap width="85" align="center" bgcolor="#D3E6CC" height="21"><font face="Verdana" size="1"><%=objRs("jobtype").Value%></font></td>
<td nowrap width="78" align="center" bgcolor="#D3E6CC" height="25"><font face="Verdana" size="1"><%=objRs("jobposition").Value%></font></td>
<td width="73" align="center" bgcolor="#D3E6CC" height="21"><font face="Verdana" size="1"><%=objRs("agency").Value%></font></td>
<td width="157" align="center" bgcolor="#D3E6CC" height="21"><font face="Verdana" size="1"><%=objRs("itemno").Value%></font></td>
<td width="187" align="center" bgcolor="#D3E6CC" height="21"><font face="Verdana" size="1"><%=objRs("salarygrade").Value%></font></td>
<td nowrap align="center" width="105" bgcolor="#D3E6CC" height="21">
<p align="center"><font face="Verdana" size="1"><%=objRs("requirements").Value%></font></td>
<td nowrap align="center" width="111" bgcolor="#D3E6CC" height="21"><font face="Verdana" size="1"><%=objRs("datereleased").Value%></font></td>
</tr>
<%
If strRowColor = "#91B998" Then strRowColor = "#90ee90" Else strRowColor = "#91B998"
intRecord = intRecord + 1
objRs.MoveNext
Loop
%>
<tr><td colspan="7" width="482" height="21"></td></tr>
<tr><td align="center" colspan="7" width="482" bgcolor="#FFFFFF" height="21"><font face="Verdana" size="1">
<p align="left"><%=Paging(intPage, objRs.PageCount, objRs.RecordCount)%></font></td></tr>
</table>
</div>
</td>
</tr>

<%End If%>

<%
'Object cleanup
If IsObject(objRs) Then
If Not objRs Is Nothing Then
If objRs.State = adStateOpen Then objRs.Close
Set objRs = Nothing
End If
End If

If IsObject(objCn) Then
If Not objCn Is Nothing Then
If objCn.State = adStateOpen Then objCn.Close
Set objCn = Nothing
End If
End If

%>
</table>

</div>

</td>
</tr>
<tr>
<td width="1%" height="21" valign="top" align="left"></td>
<td width="102%" height="21"></td>
</tr>
<tr>
<td width="100%" height="191" colspan="2"></td>
</tr>
</table>
</body>
</html>




Joel,
 
Sort by date Sort by votes
I can show you an example of paging in cf, but I can't convert your asp code to cf.

Would that help?
 
Upvote 0 Downvote
Hi PushCode,

can u send me an example of this?

joelxez@yahoo.com

Joel,
 
Upvote 0 Downvote
Here you go Joel:

Code: 
<cfset CurrentPage=GetFileFromPath(GetTemplatePath())>
<cfparam name="PageNum" default="1">

<cfset MaxRows=5>
<cfset StartRow=Min((PageNum-1)*MaxRows+1,Max(get_all_prod.RecordCount,1))>
<cfset EndRow=Min(StartRow+MaxRows-1,get_all_prod.RecordCount)>
<cfset TotalPages=Ceiling(get_all_prod.RecordCount/MaxRows)>
<cfset QueryString=Iif(CGI.QUERY_STRING NEQ "",DE("&"&CGI.QUERY_STRING),DE(""))>
<cfset tempPos=ListContainsNoCase(QueryString,"PageNum=","&")>
<cfif tempPos NEQ 0>
  <cfset QueryString=ListDeleteAt(QueryString,tempPos,"&")>
</cfif>

<table>
<cfoutput query="any_query" startRow="#StartRow#" maxRows="#MaxRows#">
  <tr bgcolor="###iif(currentrow MOD 2,DE('ffffff'),DE('efefef'))#">
	<td width="20%"><a href="index.cfm?viewState=detail&id=#product_id#&catID=#page.category_id#<cfif isDefined('page.subCatID')>&subCatID=#page.subCatID#</cfif>" title="#title#"><cfif product_image IS NOT ""><img src="../assets/pics/market/#product_image#" width="72" height="90" border="0" alt="#title#"><cfelse><img src="../assets/pics/market/no_image.gif" width="72" height="90" border="0" alt="Image not provided by Merchant"></cfif></a></td>
	<td width="20%"><a href="index.cfm?viewState=detail&id=#product_id#&catID=#page.category_id#<cfif isDefined('page.subCatID')>&subCatID=#page.subCatID#</cfif>" title="#title#">#title#</a></td>
	<td width="20%">#description#</td>
	<td width="20%">#DollarFormat(price)#</td>
	<td width="20%">#percentage# %</td>
  </tr>
</cfoutput>
</table>

<table width="100%" cellpadding="2" cellspacing="0" border="0">
<cfoutput> 
    <tr> 
      <td class="gray">
	  <cfif PageNum GT 1><a href="#CurrentPage#?PageNum=1#QueryString#"><img src="../assets/pics/first.gif" width="11" height="11" border="0"></a><cfelse><img src="../assets/pics/first_light.gif" width="11" height="11" border="0"></cfif>  
	  <cfif PageNum GT 1><a href="#CurrentPage#?PageNum=#Max(DecrementValue(PageNum),1)##QueryString#"><img src="../assets/pics/previous.gif" width="11" height="11" border="0"></a><cfelse><img src="../assets/pics/previous_light.gif" width="11" height="11" border="0"></cfif>  &nbsp;
	  <cfset tween = 1>
	  <cfif TotalPages GT 9>
	    <cfset loopto = 10>
	  <cfelse>
	    <cfset loopto = TotalPages>
	  </cfif>
	  <cfloop from="1" to="#loopto#" index="i">
	    <a href="#CurrentPage#?PageNum=#tween##QueryString#">
		<cfif tween GT 9>...#TotalPages#<cfelse>#tween#</cfif></a> &nbsp;
		<cfset tween = 1 + i>
	  </cfloop> 
	  <cfif PageNum LT TotalPages><a href="#CurrentPage#?PageNum=#Min(IncrementValue(PageNum),TotalPages)##QueryString#"><img src="../assets/pics/next.gif" width="11" height="11" border="0"></a><cfelse><img src="../assets/pics/next_light.gif" width="11" height="11" border="0"></cfif>
	  <cfif PageNum LT TotalPages><a href="#CurrentPage#?PageNum=#TotalPages##QueryString#"><img src="../assets/pics/last.gif" width="11" height="11" border="0"></a><cfelse><img src="../assets/pics/last_light.gif" width="11" height="11" border="0"></cfif>
	  </td>
	  <td align="right">Page #PageNum# of #TotalPages# total pages.</td>	
    </tr>
  </cfoutput> 
</table>
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

sirnose1
  • Locked
  • Question
CFIF for CFmail
Replies
0
Views
688
sirnose1
sirnose1
fazilkhader
  • Locked
  • Question
Classic ASP Paging
Replies
1
Views
291
Wullie
Wullie
RosieGp
  • Locked
  • Question
How to read string of 0s and 1s 1
Replies
3
Views
738
LyndonOHRC
LyndonOHRC
lwfg
  • Locked
  • Question
getting form values from ColdFusion programn to asp.net program
Replies
2
Views
321
LyndonOHRC
LyndonOHRC
Mike Lewis
  • Locked
  • Question
Using Dreamweaver to maintain a site not created in Dreamweaver
Replies
2
Views
716
Mike Lewis
Mike Lewis

Part and Inventory Search

Sponsor

Back
Top