<% errmsg=""
if request.form("btnSubmit")="訂閱" then
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstring
sql=" select * from tbl_emaillist where tzse_email_address='" & replace(request.form("txtEmailAdd"),"'","''") & "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
if not(rs.eof) then
errmsg="對不起，資料庫已經存有同樣的資料了，請再輸入其他的電郵地址。"
end if
if errmsg="" then
sql=" insert into tbl_emaillist (tzse_name,tzse_email_address,tzse_ordertype,tzse_created_date) "
sql = sql & " values ('" & replace(request.form("txtname"),"'","''") & "','"
sql = sql & replace(request.form("txtemailAdd"),"'","''") & "','" & request.form("ordertype") & "','" & year(now) & "-" & zeropad(month(now)) & "-" & zeropad(day(now)) & "')"
conn.execute sql
response.redirect("jingsiyu_confirmation.asp?id=order")
end if
elseif request.form("btnSubmit")="終止訂閱" then
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstring
sql=" select * from tbl_emaillist where tzse_email_address='" & replace(request.form("txtEmailAdd"),"'","''") & "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
if rs.eof then
errmsg="對不起，您輸入的電郵地址並沒有儲存在我們的資料庫。"
else
sql="delete from tbl_emaillist where tzse_email_address='" & replace(request.form("txtemailAdd"),"'","''") & "'"
conn.execute sql
response.redirect("jingsiyu_confirmation.asp?id=stop")
end if
elseif request.form("btnSubmit")="修改訂閱" then
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstring
sql=" select * from tbl_emaillist where tzse_email_address='" & replace(request.form("txtEmailAdd"),"'","''") & "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
if rs.eof then
errmsg="對不起，您輸入的電郵地址並沒有儲存在我們的資料庫。"
else
sql="Update tbl_emaillist set tzse_ordertype='" & request.form("ordertype") & "' where tzse_email_address='" & replace(request.form("txtemailAdd"),"'","''") & "'"
conn.execute sql
response.redirect("jingsiyu_confirmation.asp?id=edit")
end if
end if %>
靜思語