<% 'Create object. In this case Connection to a database Set Conn = Server.CreateObject("ADODB.Connection") 'Select provider Conn.Provider = "Microsoft.Jet.OLEDB.4.0" 'Select data source. 'Server.MapPath function is equivalent to app.path function of VB 'It returns the directory in which the script is present Conn.ConnectionString = "Data Source=" & Server.MapPath ("../webcounter/counter.mdb") 'Open the connection Conn.Open Set Rs1 = Server.CreateObject("ADODB.Recordset") SqlStr1 ="SELECT * from CounterStats Where SiteId=73" Rs1.Open SqlStr1, Conn, 3,3 If not Rs1.EOF THEN hits=Rs1("HitValue") If session("firsttime")="" then session("firsttime")="no" hits=hits+1 Set RS = Conn.execute("UPDATE CounterStats SET HitValue=" & hits &" WHERE SiteId=73") End If End If set rs1=nothing conn.close %> SHILO Freight & Logistics

Shilo Freight & Logistics provide a complete, painless solution to your logistic requirements.

We provide the following inhouse services with our sister company Image Freight & Logistics.

  • Customs clearing
  • International Forwarding
  • Local Transport
  • Warehousing
  • Over border transport
  • Road Bond
  • Consignor Bond

Together with specially selected service providers at the various border posts, a complete logistic loop is achieved.

  

 
 
 
Stats  

©Copyright 2004-2010