| <%
Dim objConn
Dim ObjRset
Dim filePath
Dim strSQL
Dim tombol
Dim hlm
Dim i
'---Mapping file BukuTamu.mdb---
'filePath = Server.MapPath("/../database/calendar.mdb")
'---Definisi pernyataan SQL---
strSQL = "SELECT * FROM events ORDER by event ASC;"
'---Membuka koneksi---
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
objConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=e:\domains\gdvtechnique.com\user\htdocs\fpdb\research.mdb"
'objConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\fpdb\calendar.mdb"
'---Definisi Recordset---
Set objRset = Server.CreateObject("ADODB.Recordset")
'---Menentukan halaman aktif---
tombol = Request.Form("tombol")
If Request.Form("hlm") = "" Then
hlm = 1
Else
hlm = Request.Form("hlm")
End If
'---Menampilkan 5 record per halaman---
objRset.Open strSQL, objConn, adOpenStatic
objRset.PageSize = 10
'---Mengatur halaman---
If tombol = "Prev 10" or tombol = "Next 10" Then
Select Case tombol
Case "Prev 10"
If hlm > 1 Then
hlm = hlm - 1
Else
hlm = 1
End If
Case "Next 10"
If objRset.AbsolutePage < objRset.PageCount Then
hlm = hlm + 1
Else
hlm = objRset.PageCount
End If
Case Else
hlm = 1
End Select
End If
objRset.AbsolutePage = hlm
%>
|
Use this search utility to find an event.
|