%@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 |
| Copyright© 2007 DJ Paradise Resort, Inc. All rights reserved. Website developed and hosted by Intellego. Visitor No.: <%=(rscounter.Fields.Item("counter").Value)%> | |