<% Option Explicit Dim aldaw ' ADO constants used in this page Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdTableDirect = &H0200 Const adUseClient = 3 %> Philippine National Police - La Union Police Provincial Office <% Function Modified() Dim objFSO Dim objFile Dim dateModified Dim FileName FileName = Request.Servervariables("Script_Name") ' Creates the object and assigns it to our variable. Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get access to the file Set objFile = objFSO.GetFile(Server.MapPath(FileName)) ' Get last modified property dateModified = objFile.DateLastModified If DateDiff("d", Now, dateModified) < 7 Then End If ' You can format it as you like using the FormatDateTime command 'Modified = ShowDateTime(dateModified) Modified = dateModified ' Kill our objects Set objFile = Nothing Set objFSO = Nothing End Function %>
                                                                                                                          

 

 


 


 

LA UNION CRIME MAP

The Crime Map application has been developed to highlight the approximate location of crimes that have occurred in the province.

Here you can get crime statistics in the city and different municipalities in the province. It also provides information about reported crime to the public so people have a more comprehensive view of what is occurring in their neighborhood.

2008 2009
January January
February February
March March
April April
May May
June June
July July
August August
September September
October October
November November
December December<% Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("_db\connection.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 5 rs.CursorLocation = adUseClient rs.Open "SELECT * FROM video ORDER BY id", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect If Len(Request("pagenum")) = 0 Then rs.AbsolutePage = 1 Else If CInt(Request("pagenum")) <= rs.PageCount Then rs.AbsolutePage = Request("pagenum") Else rs.AbsolutePage = 1 End If End If Dim abspage, pagecnt, msgcnt abspage = rs.AbsolutePage pagecnt = rs.PageCount msgcnt = rs.recordcount If Not rs.EOF Then Response.Write "" Response.Write "
" If abspage = 1 Then Response.Write "«« Previous Page" Else Response.Write "«« Previous Page" End If Response.Write " | " Response.Write "Page " & abspage & " of " & rs.PageCount Response.Write " | " If abspage < pagecnt Then Response.Write "Next Page »»" Else Response.Write "Next Page »»" End If Response.Write "
" Response.Write "
" Response.Write "" %><% Dim fldF, intRec For intRec=1 To rs.PageSize If Not rs.EOF Then %>