USB Flash Tổng giá hiện tại: 0 USD 

TT

TÊN SẢN PHẨM

KHO HÀNG

GIÁ

BẢO HÀNH

1 

USB Flash 256MB Adata-Jorg USB 2.0

Đang có

13.5 USD

12 tháng

2 

USB Flash 1.0GB KingMax USB 2.0

Đang có

24 USD

12 tháng

Trang:

<%function showCounter()dim conn, rstHits, strIncreaseHits, strShow, strSQLdim strVisitedDate, strVisitedTime, strReferer, strIPAddress, strUserAgent'Initializeset conn = nothing'Create a connection to databaseset conn = Server.CreateObject("ADODB.Connection")conn.Open session("strConn")set rs = conn.Execute("SELECT TOP 1 id, hits FROM settings ORDER BY id")hitsValue = 0sysId=-1if not rs.Eof thenhitsValue = rs("hits")sysId = rs("id")end ifrs.closeset rs = nothing'Get all the parameters via query stringif session("hit") = "" then hitsValue = hitsValue + 1 end if'Update into logsif session("hit") = "" thenif sysId=-1 thensql="INSERT INTO settings ( hits) VALUES ("& hitsValue &")"conn.Execute sqlelse'sql ="UPDATE settings SET hits = "& hitsValue &" WHERE id =" & sysId'conn.Execute sqlend ifend ifsession("hit") = 0'Destroy all the temporary objectsconn.Closeset conn = nothingshowCounter = hitsValueEnd Functionfunction getLogo()'Initializeset conn = nothing'Create a connection to databaseset conn = Server.CreateObject("ADODB.Connection")conn.Open session("strConn")set rs = conn.Execute("SELECT * FROM tblAdv WHERE advName<>'' ORDER BY advOder")str="" & vbCrlf & ""response.write strDo until rs.Eof If rs("advUrl")<>"" Thenstr=""Else str=""End If response.write strrs.MoveNextLoop str = "" & vbCrlf & "
"& rs("advName") &""& rs("advName") &"
"response.write strrs.closeset rs = nothingconn.Closeset conn = nothingend FunctionconnL.closeSet connL = Nothing%>  

     Văn phòng: Số 5A Ngõ 76 Phố An Dương, Phường Yên Phụ, Quận Tây Hồ, Hà Nội

     Điện thoại/Fax: (04) 37191769 - 37191770

@2006 - 2008 VanPhuc Company