<%
'*************************************************************************
' ASP Scripting:
' Filename: template_page_nav_bar.asp
' Written by: Wilbert Madarang
' Date: January 25, 2003
'*************************************************************************
' Description: Page Navigational Bars
'*************************************************************************
' Revision History:
'*************************************************************************
%>
<%
'Retrieve Web Parameters
strProductLineId = Request("product_line_id")
strPageNo = Request("page")
nPageNo = CInt( strPageNo )
strUrl = getUrl()
%>
Page 1 of 4 
<%
'*************************************************************************
' Function: getURL
' Description: returns the URL of the requesting string minus any web paramters
' Parameters: none
' Returns:
' Written by: Wilbert Madarang
' Date: January 25, 2003
'*************************************************************************
Function getUrl()
Dim strUrlRequest, strUrl, nDelimiterPos
'GetUrl without WebParameters
strUrlRequest = Request.ServerVariables("HTTP_REFERER")
strDelimiter = "?"
nDelimiterPos = InStr( strUrlRequest, strDelimiter )
If nDelimiterPos = 0 Then
strUrl = strUrlRequest
Else
strUrl = Left( strUrlRequest, nDelimiterPos - 1 ) 'Do not include the delimiter
End If
getUrl = strUrl
End Function
Function getNumberOfPages( strProductLineId )
End Function
%>