comboshipvia.inc

来自「能实现用户注册」· INC 代码 · 共 21 行

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsSV = server.createObject("ADODB.recordset")
sSQL="SELECT "
sSQL=sSQL & "ShipViaID, s_ShipVia "
sSQL=sSQL & "FROM tbl_ShipVia "
sSQL=sSQL & "ORDER BY ShipViaID"
rsSV.open sSQL, conn, 3, 3 'read

response.write "<Select Size='1' NAME='cboShipViaID'>"

DO WHILE NOT (rsSV.EOF)
	selected=""
	if rsSV("ShipViaID")=ShipViaID then selected=" SELECTED"
	response.write "<option value='" & rsSV("ShipViaID") & "'" & selected & "> " & rsSV("s_ShipVia") & " </option>"
	rsSV.movenext
LOOP
rsSV.CLOSE
set rsSV=nothing
response.write "</Select>"
%>