<%@LANGUAGE="VBSCRIPT"%> <% Dim rscounter Dim rscounter_numRows Set rscounter = Server.CreateObject("ADODB.Recordset") rscounter.ActiveConnection = MM_ParadiseDSN_STRING rscounter.Source = "SELECT * FROM tblcounter ORDER BY counter DESC" rscounter.CursorType = 0 rscounter.CursorLocation = 2 rscounter.LockType = 1 rscounter.Open() rscounter_numRows = 0 %> <% '------------------------------------------- Dim sqlinsert ' sql statement Dim connstring ' connection string to ODBC Dim rscount ' recordset object Dim ipaddress ipaddress = Request.ServerVariables("REMOTE_ADDR") connstring = MM_ParadiseDSN_STRING '<--- generate from ultradev ' define the sql statement needed to open a recordset sqlinsert = "INSERT INTO tblcounter(ipaddress) Values('"& ipaddress & "')" ' create and open the recordset Set rscount = Server.CreateObject("ADODB.Connection") rscount.Open connstring rscount.execute(sqlinsert) rscount.Close Set rscount = Nothing '------------------------------------------- %>

	Malolos City, Bulacan, Philippines
Welcome to DJ Paradise Resort & Hotel—Bulacan’s Total Resort! Only 45 minutes from Manila and nestled in the historic Malolos City, Bulacan, DJ Paradise awaits you to relax and unwind in its natural haven of bliss and adventure. Our superior amenities assure you that each stay makes for wonderful priceless memories. When you want to go places and unwind, visit Malolos City, Bulacan and rediscover Paradise.
Copyright© 2007 DJ Paradise Resort, Inc. All rights reserved. Website developed and hosted by Intellego. Visitor No.: <%=(rscounter.Fields.Item("counter").Value)%>

<% rscounter.Close() Set rscounter = Nothing %>