<%
if action="subscibe" then
'on error goto 0
subscibe=Trim(Request("subscibe"))
set rs=server.createobject("adodb.recordset")
sql = "select * from [email] where email='" & subscibe & "'"
rs.open sql,conn,1,1
if rs.EOF or rs.BOF then
'
else
response.Write("非常抱歉,您的Email已经登记过了!")
response.End()
end if
rs.close
SQL="select * from [email]"
rs.open sql,conn,1,3
'Set RS=Conn.ExeCute(SQL,conn,1,3)
if (Instr(subscibe,".")>0 and Instr(subscibe,"@"))>0 then
rs.addnew
rs("email")=subscibe
rs("myname")=Trim(Request("myname"))
rs("pro")=Trim(Request("pro"))
rs("myyear")=Trim(Request("myyear"))
rs("own")=Trim(Request("own"))
rs("skill")=Trim(Request("skill"))
rs.update
else
response.Write("邮件地址不正确!请点浏览器后退键修改。")
response.End()
end if
if err.number= 0 then
response.Write("
您好!感谢您一直以来对Honda的关注,现在Honda开始提供有关 Honda统一车型赛 挑战我的CBF150活动 的信息订阅。该E-mail信息订阅(免费)为有意向参赛或观摩的人提供。如果您想要注销CBF150 E-mail咨询订阅的话,请从http://www.honda-motorcycle.com.cn/dm/办理手续。
")
call sendmail("New","您好!感谢您一直以来对Honda的关注,现在Honda开始提供有关 Honda统一车型赛 挑战我的CBF150活动 的信息订阅。该E-mail信息订阅(免费)为有意向参赛或观摩的人提供。如果您想要注销CBF150 E-mail咨询订阅的话,请从http://www.honda-motorcycle.com.cn/dm/办理手续。",subscibe)
else
response.Write("
非常抱歉,发生错误了,请稍候尝试。
")
end if
elseif action="unsubscibe" then
'on error goto 0
unsubscibe=Trim(Request("unsubscibe"))
set rs=server.createobject("adodb.recordset")
SQL="delete * from [email] where email='"&unsubscibe&"'"
rs.open sql,conn,1,3
'Set RS=Conn.ExeCute(SQL,conn,1,3)
if err.number= 0 then
response.Write("
您的邮箱地址已从系统中删除,欢迎以后再次订阅!
")
call sendmail("取消订阅CBF150资讯","您已经取消了订阅Honda的CBF150活动资讯,我们将不会再发送最新的信息到您的邮箱,期待您在未来再次到我们网站订阅我们的活动资讯。",unsubscibe)
else
response.Write("
非常抱歉,发生错误了,请确认您的邮箱在我们列表或请稍候尝试。
")
end if
else
%>
注册获得E-mail信息为有意向参赛或观摩"挑战我的CBF150活动"的人提供信息。