<! 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
%>
จำนวน : 49 บรรทัด