combocatalogbar02.inc

能实现用户注册

<%
Set rsCH2 = server.createObject("ADODB.recordset")
sSQL="SELECT "

if session("type")="qisv" then
	sSQL=sSQL & "SubCategoryID, strDescription, QISV "
else
	sSQL=sSQL & "SubCategoryID, strDescription "
end if

sSQL=sSQL & "FROM tbl_SubCategories "
sSQL=sSQL & "WHERE CatalogHeadingID=" & CatalogHeadingID & " "
if session("type")="qisv" then
	sSQL=sSQL & "ORDER BY QISV, strDescription"
else
	sSQL=sSQL & "ORDER BY strDescription"
end if
rsCH2.open sSQL, conn, 3, 3 'read
'rsCH2.movelast
'NumRows=rsCH2.recordcount
'rsCH2.movefirst

'response.write "<font color='#F01139'><b>Catalog</b></font><BR>"

if HandlesJScript=true then
	response.write "<Select Size='1' NAME='cboCatalogLevel02' onChange='SubmitMe(this.form);'>"
else
	response.write "<Select Size='1' NAME='cboCatalogLevel02'>"
end if

do while not (rsCH2.EOF)
	SubCat=rsCH2("SubCategoryID")
	if session("type")="qisv" then
		response.write "<option value='" & SubCat & "'> " & rsCH2("QISV") & "-" & rsCH2("strDescription") & " </option>"
	else
		if session("build")=1 then
			if SubCat=3380 then
				response.write "<option value='" & SubCat & "' selected> " & rsCH2("strDescription") & " </option>"
			else
				response.write "<option value='" & SubCat & "'> " & rsCH2("strDescription") & " </option>"
			end if
		else
			response.write "<option value='" & SubCat & "'> " & rsCH2("strDescription") & " </option>"
		end if
	end if
	rsCH2.movenext
loop
rsCH2.close
set rsCH2=nothing
response.write "</Select>"
%>