 |
        |
 |
|
 |
|
|
|
|
|
|
|
|
|
Weather Report | What's New | General Information | Container Tracking | Photo Gallery | New Tenders |
|
Vessel Booking | TPT Regulations | Sethusamudram | Cruise Tourism | Contact Us |
|
<%
Dim cntr
Dim updt
Dim sql
Set con = Server.CreateObject("ADODB.Connection")
fn=server.mappath("WriteReadData/hitcount.mdb")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &fn
sql="select counter from hcount"
Set rs2 = con.Execute(sql)
cntr=rs2.Fields(0)
if cntr = 0 then
DataAvl="N"
else
DataAvl="A"
End if
ctr=len(cntr)
for i = 1 to ctr
%>
|
|
|
%>.gif)
<%
next
cntr=cntr+1
sql = "update [hcount] set [counter] =" & cntr
con.Execute(sql)
rs2.Close
con.Close
Set con = nothing
set rs2=nothing
%>
