<%
IF Request("state") = "add" Then
ChkNum = Request.Form("ChkNum")
IF ChkNum="" Or Cstr(ChkNum) <> Cstr(Session("ChkNum")) Then Call Alert("驗證碼輸入錯誤",0,0) End IF
IF Request("service") <> 1 Then Call Alert("請勾選服務條款",0,0) End IF
Set Acounter = connCon.Execute("SELECT * FROM counter Where mem_auto = 1")
order_num = Acounter("counter_num")
connCon.execute("UPDATE counter SET counter_num = "&Acounter("counter_num")+1&" WHERE mem_auto = 1")
connCon.execute("UPDATE member SET mem_card = '個企',mem_numB = '"&order_num&"' Where mem_num = '"&Session("mem_num")&"'")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM sky_form"
rs.Open SQL,connCon,1,3
rs.addnew
rs("company_name") = Request("company_name")
rs("company_num") = Request("company_num")
rs("mem_name") = Request("mem_name")
rs("mem_name2") = Request("mem_name2")
rs("mem_phone") = Request("mem_phone")
rs("mem_mobile") = Request("mem_mobile")
rs("mem_fax") = Request("mem_fax")
rs("mem_mail") = Request("mem_mail")
rs("mem_line") = Request("mem_line")
rs("mem_fb") = Request("mem_fb")
rs("mem_address") = Request("mem_address")
rs("mem_url") = Request("mem_url")
rs("mem_1") = Request("mem_1")
rs("mem_phone2") = Request("mem_phone2")
rs("mem_address2") = Request("mem_address2")
rs("mem_2") = Request("mem_2")
rs("mem_3") = Request("mem_3")
rs("mem_4") = Request("mem_4")
rs("mem_5") = Request("mem_5")
rs.update
rs.close
Set rs = nothing
Call Alert("歡迎您參加雲端特展，請使用雲網站管理","/member_company_fix2",0)
Response.end
End IF
%>
<%
Set Rmem = Server.CreateObject("ADODB.Recordset")
Rmem.open "SELECT * FROM member Where mem_num = '"&Session("mem_num")&"' ORDER BY mem_time DESC", connCon, 1, 1
%>
<%
Set S2 = connCon.Execute("SELECT * FROM city_area ORDER BY zipcode ASC")
Set S3 = connCon.Execute("SELECT * FROM city_name ORDER BY city ASC,zipcode ASC")
%>
天空商城雲端特展報名表
