<%@ Language=VBScript %>
<%
newPageName = "VLServicesPage"
'opens database without dsn**************
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("data/villagedata.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open strconn
Address = request.servervariables("REMOTE_ADDR")
NewAddress = left(Address, 7)
Set MyRecordsetx = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM counter WHERE PageName = '" & newPageName & "'"
MyRecordsetx.Open Query, Connection
on error resume next
if MyRecordsetx("PageName") = "" then
hitTime = now()
lastHitTime = hitTime
PageCount = 1
if NewAddress = "192.168" then
CurrentVillageUsers = 1
CurrentVillageVisitors = 0
end if
if NewAddress <> "192.168" then
CurrentVillageVisitors = 1
CurrentVillageUsers = 0
end if
Connection.Execute "INSERT INTO counter (PageName, PageCount, DateCreated, LastHit, VillageUsers, Visitors) VALUES ('" & newPageName & "'," & PageCount & ",'" & hitTime & "', '" & lastHitTime & "', '" & CurrentVillageUsers & "', '" & CurrentVillageVisitors & "')"
else
myCount = MyRecordsetx("PageCount")
myNewCount = myCount + 1
timeHit = now()
if NewAddress = "192.168" then
CurrentVillageUsers = MyRecordsetx("VillageUsers") + 1
CurrentVillageVisitors = MyRecordsetx("Visitors")
end if
if NewAddress <> "192.168" then
CurrentVillageVisitors = MyRecordsetx("Visitors") + 1
CurrentVillageUsers = MyRecordsetx("VillageUsers")
end if
sqlString = "UPDATE counter"
sqlString = sqlString & " SET PageCount = " & myNewCount & ","
sqlString = sqlString & " LastHit = '" & timeHit & "',"
sqlString = sqlString & " VillageUsers = " & CurrentVillageUsers & ","
sqlString = sqlString & " Visitors = " & CurrentVillageVisitors
sqlString = sqlString & " WHERE ID = " & MyRecordsetx("ID")
Connection.Execute sqlString
end if
MyRecordsetx.Close
Set MyRecordsetx = Nothing
Connection.Close
Set Connection = Nothing
%>
Services and Pricing
Dial-Up Internet Access --
$9.95/Month (1 Yr. Prepay)
- Unlimited Access - Personal Web Space
- Multiple E-mail Addresses - World Wide Web
- Chat - Usenet - Unlimited Phone Support
Repair and Upgrades
- Modem and Installation
- $75
- Hard Drive Installation
- $50
- Memory
Installation
- $25
- Web Page
Design
- $50/hr
- Other
Service
- $45/hr in-house $50/hr
on-site
Additional Services
-
Photo Scanning to CD
$10 first
photo $5 each additional
-
Copies
$.10 ea.
first 20 $.05 ea. additional
-
Fax (Incoming or
Outgoing)
$10 first
photo $5 each additional
Web Page Hosting -- $19.95/Month or $17.00/Month (1 Yr. Prepay)
- 50 MB Web Space
- 10+ Email Accounts (you@yourdomain.com)
- No Setup Fee
- High Traffic Limits
Domain Registration -- $30/Year
- yourdomain.com
- 10+ Email Accounts
- Unlimited Aliasing (www.yourdomain.com, mail.yourdomain.com, etc.)
Call for customized pricing on other Internet or Consulting Services:
(828) 225-7558
(800) 482-0816
|
Comments or questions? Email
US!
[ Return to Main Page ]