<%
FName = trim(Request("Name"))
FEMail = trim(Request("EMail"))
if FName = "" then
%>
<%
Else
if instr(FEMail,"@") < 2 then
response.Write "EMAIL位置 輸入錯誤 請回上一頁重新輸入"
response.End()
end if
%>
<%
rs.Open "Select * From UserData Where UserName='" & FName &"'", conn,1, 3
if Rs.eof then
rs.addnew
rs("UserName") = FName
rs("EMAIL") = FEMail
rs.update
%>
訂閱完畢！謝謝您！返回上一頁
<% else
if rs("EMail") = FEMail then
Rs("Send") = "Yes"
rs.update
response.Write("訂閱完畢！謝謝您重新訂閱！返回上一頁 ")
else
%>
用戶名稱 重複 請回上一頁重新輸入
<%
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
End if
%>