<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="db_conn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/comm.asp"-->
<%
dim ssort_questdo(21),w,sql_d,rs_d,p
for w=0 to 21
ssort_questdo(w)=my_request("ssort_do"&w,0)
response.write ssort_questdo(w)
response.write "<br>"
next
sql_d="select zm_username,zm_address,zm_phone,zm_lvnums,zm_dy,zm_holp,zm_ydtime,zm_cometime,zm_backtime,zm_otherthing,zm_qq,zm_age,zm_email,zm_homepage,zm_mobile,zm_fax,zm_workplace,zm_idcard,zm_postal,zm_think,zm_otherthink,zm_lineid from ssort_order"
set rs_d=server.createobject("adodb.recordset")
rs_d.open sql_d,conn,1,3
rs_d.addnew
for p=0 to 21
rs_d(p)=ssort_questdo(p)
next
rs_d.update
rs_d.close
set rs_d=nothing
response.redirect "orderok.asp?id="&ssort_questdo(21)
%>