%@CODEPAGE="65001"%>
<%
tmpDate = date
tmpY = year(tmpDate)
tmpM = month(tmpDate)
tmpD = day(tmpDate)
%>
<%
Function fixSql(text)
if text <> "" then
fixSql = replace(text,"'","''")
else
fixSql = text
end if
end Function
if request("strAction") <> "" then
area = request("area")
if trim(replace(area,",","")) = "" then
area = ""
else
area = trim(replace(area,","," "))
end if
Randomize
onlydate = Cint(Rnd*10000) & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) & Cint(Rnd*10000)
strSql = "insert into member(fromweb,type,company,name,sex,email,area,phone_country,phone_area," &_
"phone_number,phone_ext,mobile,code,address,title,work,category,other,onlydate) values(1,1,'" &_
fixSql(trim(request("company"))) & "','" &_
fixSql(trim(request("name"))) & "','" &_
fixSql(trim(request("sex"))) & "','" &_
fixSql(trim(request("email"))) & "','" &_
area & "','" &_
fixSql(trim(request("phone_country"))) & "','" &_
fixSql(trim(request("phone_area"))) & "','" &_
fixSql(trim(request("phone_number"))) & "','" &_
fixSql(trim(request("phone_ext"))) & "','" &_
fixSql(trim(request("mobile"))) & "','" &_
fixSql(trim(request("code"))) & "','" &_
fixSql(trim(request("address"))) & "','" &_
fixSql(trim(request("title"))) & "','" &_
fixSql(trim(request("work"))) & "','" &_
fixSql(trim(request("category"))) & "','" &_
fixSql(trim(request("other"))) & "','" & onlydate & "')"
conn.execute strSQL
strMessage = "您已經成功訂購廣登電子報,謝謝。"
end if
%>
台灣廣登(上海旭谷)股份有限公司
|
|
 |
|
<%if strMessage = "" then%>
<%else%>
<%end if%>
|
|
 |
|
| |
|
|
<%call endConnection()%>