% Dim Watching Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/fpdb/download.mdb")) %>
Obtain
your trial copy of KineticsPro here. Use KineticsPro free for up to 30 days. Return to KineticsPro.com anytime to purchase your activation code in order to gain unlimited usage and free upgrades. <% Getit = "/ddemo/kineticspro.prc" %> <% Set Watching1 = objConn.Execute("SELECT [ClickCount] FROM Clicks WHERE URL='/ddemo/kineticspro.prc'") %> <% Response.Write Watching1.Fields("ClickCount") %>
|
Copyright
2002, KineticsPro.com.
For technical website issues,
contact webmaster@kineticspro.com
<% objConn.Close Set objConn= Nothing %>