<%response.Charset="gb2312"%>
<!--#include file="../mycartconn/conn.asp" -->
<%
response.write "var myurl= '"& myurl &"';"&  vbcrlf
response.write "var my_url= '"& my_url &"';"&  vbcrlf
response.write "var my_name= '"& my_name &"';"&  vbcrlf
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from A_cate order by cateid"
rs.open sql,conn,1,1
my_count=rs.recordcount
response.write "var cate= ["
ii=1
Do While Not rs.eof
	If CInt(ii)=CInt(my_count) Then
		response.write "'"&Trim(rs("cate"))&"'"
	else
		response.write "'"&Trim(rs("cate"))&"',"
	End if
	rs.movenext
	ii=ii+1
Loop
rs.close
Set rs=nothing
response.write "];"
conn.close
Set conn=nothing
%>
