<% '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=57" 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=57") End If End If set rs1=nothing conn.close %> Thekweni Marine Group

 

The Thekweni Marine Group is an accredited marine and industrial ship maintenance and repair company, providing a service to the marine industry, including cargo services.The THEKWENI MARINE GROUP'S offices are based at Bayhead in Durban and are conveniently situated to provide an efficient marine service to vessels in the port of Durban, including the dry dock and floating dock.

Our services include:
  • Marine Maintenance
  • Grit blasting and painting
  • Tank cleaning
  • Engine room
  • Dock facilities
  • Waste removal
  • Stevedoring
  • Cargo services
  • Fenders
  • Supplies
  • Quality service and safety
  • B.E.E. -Thekweni's top priority
  • Staff Resources
You are Visitor: <%=hits%>
©Copyright 2004