<%@ Language=VBScript %> <% Option Explicit %> Search <% if Request.ServerVariables("CONTENT_LENGTH") = 0 then Dim strUserIPAdd, strRefURL strUserIPAdd=Request.ServerVariables("REMOTE_ADDR") strRefURL=Request.ServerVariables("HTTP_REFERER") if strRefURL="" then strRefURL="Directly" Dim Conn set Conn = Server.CreateObject("ADODB.Connection") Conn.Open conString Conn.Execute("INSERT INTO UserInfo " _ & " (UserIPAdd, RefURL) values " _ & " ('" & strUserIPAdd & "','" & strRefURL & "')") Conn.Close Set Conn=Nothing End If %>

Submit your Product Idea

 Home | Solutions | Team | Clients | Shop | About Us | Contact | Cart | Sales Material | Search

 

 
Search our Web Site

 

Or Click Here to view all Products  

              Http://www.smartinventions.com

 
      http://www.smartinventions.com/siisite.htm

 

Checkout or Change Orders click Here  

Copyright © 2009 Smart Inventions Inc. \ All rights reserved
Smart Mop is U.S. Patented Products.
any company or individual found copying any material from this Site for Commercial use,
or found violating any of our Trademarks, Patents or Copyrights
are in violation of United States Federal Law and will be prosecuted.