<! version 2.Feb14 by burin rujjanapan from yonok.ac.th>
<!--#include file="header.asp"-->
<center><form action=newsletter.asp method=post><table width=500 bgcolor=#808080 border=0><td bgcolor=#dddddd align=center>
Your e-mail : <input name=femail size=20>
<br><input type=submit name=process value="สมัครรับจดหมายข่าว">
<hr color=#808080>ถ้าต้องการยกเลิก การรับจดหมายข่าวลำปาง<br>ให้ e-mail แจ้งความจำนงไปที่ webmaster@lampang.go.th<br>โดยเขียน Subject ว่า <b>ยกเลิกจดหมายข่าว</b>
</td></table>
</form><center><font color=red size=4>
<!--#include file="connectnews.asp"-->

<%
  if (len(request.form("femail")) < 8 or len(request.form("femail")) > 50) then
    response.write("E-mail ของท่านสั้น หรือยาวเกินไป หรือไม่ได้กรอก<br>ตัวอย่างที่ถูก เช่น <b>burin@yonok.ac.th</b>")
  else 
    i = split(request.form("femail"),"@",-1,1)
    if (ubound(i) > 0) then 
      j = split(i(1),".",-1,1)
      if (ubound(j) > 0) then
        if (len(i(0)) < 2 or len(i(1)) < 5 or len(j(0)) < 2 or len(j(1)) < 5) then
          errormsg
        else	
          sql = "select * from newsletter where email = '"& request.form("femail") &"'"
          set rs = server.createobject("ADODB.recordset")
          rs.open sql,connect,1,3
          tots = rs.recordcount
          if tots > 0 then
            response.write("E-mail นี่สมัคร News letter เรียบร้อยแล้ว<br>จึงไม่มีความจำเป็นต้องสมัคร .. อีกครั้ง")
          else
            sql = "insert into newsletter(email,applydate) values ('"& request.form("femail") &"','"& Now &"')"
            connect.execute(sql)
            response.write("ผลการสมัครใช้บริการจดหมายข่าว ของ<br><font color=blue><b>"& request.form("femail") &"</b></font><br>เสร็จสิ้นสมบูรณ์")
          end if
        end if 
      else
        errormsg
      end if 
    else
      errormsg
    end if
  end if
%>
</font><!--#include file="footer.asp"-->
</body></html>

<%
sub errormsg
  response.write("รูปแบบ E-mail ของท่านไม่ถูกต้อง<br>ตัวอย่างที่ถูก เช่น <b>burin@yonok.ac.th</b>")
end sub
%>