Chuột 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 

G6-Mitsumi Scroll Mouse PS/2 - White

Đang có

4 USD

3 tháng

2 

G6-Mitsumi Scroll Mouse PS/2 - Black

Đang có

4.5 USD

3 tháng

3 

SamSung Scroll Mouse PS/2 - SW-700B/W

Đang có

4 USD

3 tháng

4 

Logitech Scroll Mouse Ivorry / Office (Black) PS/2

Đang có

6 USD

3 tháng

5 

JVJ Optical Scroll Mouse

Đang có

6 USD

3 tháng

6 

Genius Optical Scroll Mouse PS/2

Đang có

6.5 USD

3 tháng

7 

Nimbus Optical Scroll Mouse USB

Đang có

6 USD

3 tháng

8 

SamSung Optical Scroll Mouse - 1310/SPM-710B

Đang có

7 USD

3 tháng

9 

Mitsumi Optical Scroll Web Mouse PS2

Đang có

7.5 USD

3 tháng

10 

Mitsumi Optical Scroll Web Mouse USB for Notebook

Đang có

8 USD

3 tháng

Trang:  1 2 3 4 >> 

<%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