<%
set connTemp = server.createobject("adodb.connection")
connTemp.open constring
mySQL="select * FROM upcoming"
set rstemp=Server.CreateObject("ADODB.recordSet")
rstemp.open mySQL, connTemp
%>
<%
if not rstemp.eof then
v_adate = rstemp("adate")
v_title = rstemp("title")
v_description = rstemp("description")
%> 
| <%=v_title %> |
| <%=v_description %> |
| Date |
<%=v_adate%> |
<%end if%>
<%
iPageSize = 3 'Change this integer to the number of records to display on page
' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If PID="" then
strSQL = "SELECT * FROM products WHERE catalogID = 100"
else
strSQL = "SELECT * FROM products WHERE PID = " & PID
end if
' Create and open our connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
Set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInfo.PageSize = iPageSize
rsProdInfo.CacheSize = iPageSize
rsProdInfo.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
iPageCount = rsProdInfo.PageCount
If iPageCurrent > iPageCount Then
iPageCurrent = iPageCount
end if
If iPageCurrent < 1 Then
iPageCurrent = 1
end if
If iPageCount = 0 Then
Response.Write " |
Sorry, there are no items in this category. Come back soon. |
"
Else
'Move to the selected page
rsProdInfo.AbsolutePage = iPageCurrent
%>
:: Back to product list ::
<% iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not rsProdInfo.EOF
%>
<% if not rtrim(rsProdInfo("pName")) = "" then %>
<%else%>
<% end if %>
<%
iRecordsShown = iRecordsShown + 1
rsProdInfo.MoveNext
Loop
End if
%>
<%
rsProdInfo.Close
set rsProdInfo = Nothing
%>
<%
If iPageCurrent <> 1 Then
%>
<%
End If
If iPageCurrent < iPageCount Then
%>
<%
End If
%>
* All prices on this web site are in Canadian dollars
