<% @language="vbscript" %><!--#include file="conn.asp"-->
<!--#include file=fuction.asp -->
<%
response.buffer=true
Response.Expires=0
radiobutton=nosql(Request("radiobutton"))
mail=nosql(Request("mail"))
'submit=requst("submit")
If mail="" Then
response.write "SORRY <br>"
response.write "你的信箱沒有填寫"
response.end
end if
if Instr(mail,"@")=0 Then
 response.write "SORRY <br>"
 response.write "你的箱地址難道是這個？<br>一看就是假的！"
 response.end
end if
if Instr(mail,".")=0 Then
 response.write "SORRY <br>"
 response.write "你地址難道是這個？<br>一看就是假的！"
 response.end
end if

if radiobutton="ding" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mail"
rs.open sql,conn,1,3
rs.addnew
rs("mail")=mail
rs("date")=now()
rs("ip")=Request.ServerVariables("REMOTE_HOST")
rs.update
rs.close
response.write "謝謝您的訂閱 <br>"
%>
<%=mail%>
<%
response.write "<script language=javascript>alert('您的郵箱地址已經成功加入我們的郵件列表中，感謝您的支持！');history.go(-1);</script>"
 'response.write " 您的郵箱地址已經成功加入我們的郵件列表中，感謝您的支持<br>"
 'response.write "<a href=javascript:window.close()>關閉本窗口 </a>"
 else
Set rs = Server.CreateObject("ADODB.Recordset")
 sql="delete from mail where mail='"&mail&"' "
  conn.Execute sql
  conn.Close
  set conn=Nothing      
%><%=mail%><%
response.write "<script language=javascript>alert('已經刪除，謝謝您的退訂閱！');history.go(-1);</script>"
response.End
end if
%>