<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "homepage"
Action = Left(UCase(Request("Action")),6)
S = Request("S")
AdvType = Request("AdvType")
%>
The List of Home Pages
<%
If Action = "SEARCH" And S <> "" Then
sql = "SELECT * FROM Homepage WHERE (Title & Email & FirstLine & Body & FirstName & LastName Like '%" & S & "%') ORDER BY ID DESC"
Else
sql = "SELECT * FROM Homepage ORDER BY ID DESC"
End If
RS.Open sql, Conn, adOpenKeyset,adLockReadOnly
RS.PageSize = 10
ScrollAction = Request("ScrollAction")
if ScrollAction <> "" Then
PageNo = mid(ScrollAction, 5)
if PageNo < 1 Then
PageNo = 1
end if
else
PageNo = 1
end if
RS.AbsolutePage = PageNo
RowCount = rs.PageSize
Do While Not RS.EOF and rowcount > 0
%>
- <%=RS("Title")%>
- <%=RS("FirstLine")%>
<%
RowCount = RowCount - 1
RS.MoveNext
Loop
RS.Close
Conn.Close
%>