<%
pagevar = Request.QueryString("page")
iPageSize = 5
If Val(pagevar) = 0 Then
strPageCurrent = 1
Else
strPageCurrent = Val(pagevar)
End If
If ddlNameCategory.SelectedValue <> 0 Then
strsql = "SELECT News.NewsID, News.NewsCategory, NewsCategory.NewsCategoryName, News.NewsHeader, News.NewsText, News.NewsDate" _
& " FROM News INNER JOIN NewsCategory ON News.NewsCategory = NewsCategory.NewsCategoryID where News.NewsCategory='" & ddlNameCategory.SelectedValue & "' order by cint(News.NewsID) desc"
Else
strsql = "SELECT News.NewsID, News.NewsCategory, NewsCategory.NewsCategoryName, News.NewsHeader, News.NewsText, News.NewsDate" _
& " FROM News INNER JOIN NewsCategory ON News.NewsCategory = NewsCategory.NewsCategoryID order by cint(News.NewsID) desc"
End If
' Session("catit") = ddlNameCategory.SelectedValue
rs.Open(strsql, conn.Upcon, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, -1)
' rs = conn.Upcon.Execute(strsql)
If rs.EOF <> True Then
rs.PageSize = iPageSize
strPageCount = rs.PageCount
If strPageCurrent < 1 Then
strPageCurrent = 1
End If
If strPageCurrent > strPageCount Then
strPageCurrent = strPageCount
End If
rs.AbsolutePage = strPageCurrent
' rs.a()
Dim incnt As Integer = 1
While incnt <= rs.PageSize
%>
|
Date :
<%=rs("NewsDate").Value%> |
|
<%=rs("NewsHeader").Value%> |
|
|
|
|
<%=rs("NewsText").Value%>
|
|
|
|
|
|
|
|
<% incnt = incnt + 1
rs.MoveNext()
If rs.EOF Then Exit While
End While
End If
rs.Close()%>
|