![]() |
![]() |
![]() |
|
![]() |
|
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
%>
|
|
|