<% if request("submit") = "OK" then email = request("email") Set Conn=Server.CreateObject("ADODB.Connection") dbname="CbaoMember0948.mdb" dbpath="DBQ=" & server.mappath(dbname) Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbpath sql = "SELECT * FROM register WHERE emailAddress = '" & email & "' and id > 7055 and mType <> 'x' Order By ID DESC" set rs = Conn.execute(sql) email1 = request("email") alpha = array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"," ",".",",","-","_","@","0","1","2","3","4","5","6","7","8","9") num = array("01","03","05","07","09","11","13","15","17","19","21","23","25","27","29","31","33","35","37","39","41","43","45","47","49","51","53","55","57","59","61","63","65","67","69","71","73","75","77","79","81","83") 'email = request("email") lenemail=len(email1) for i=0 to lenemail-1 getcode=lcase(mid(email1,i+1,1)) for j=0 to 41 if alpha(j) = getcode then encode = encode & num(j) end if next next if not rs.eof then demail = email if rs("mType") = "m" or rs("mType") = "mc" then BodyMsg = "ยินดีต้อนรับคุณ : " & rs("name") & " ( " & rs("nickName") & " )

ทางทีมงานพบว่าคุณเป็นสมาชิกอยู่แล้ว

กรุณาคลิ๊กที่นี่ โดยสามารถเข้าไปดูรายละเอียดหรือหากท่านลืมรหัสผ่าน สามารถข้อได้จากหน้าดังกล่าวเช่นกัน

ขอบคุณครับ

เว็บมาสเตอร์คาราบาว.เน็ต
Webmaster@carabao.net


Carabao Band Official Website
P.O.Box 78 Yannawa Post
Bangkok 10120

" else BodyMsg = "ยินดีต้อนรับคุณ : " & rs("name") & " ( " & rs("nickName") & " )

อีเมล์ของท่านได้ผ่านการตรวจสอบเบื้องต้นแล้ว

เนื่องจากว่าท่านได้เป็นสมาชิกในระบบเดิมอยู่แล้ว เราจึงสงวนสิทธิในการตั้ง ชื่อนามแฝงในกระทู้ และ User Name ให้แก่ท่านก่อน

โดย
User Name คือ " & rs("userName") & "
ชื่อนามแฝงในกระทู้ คือ " & rs("nickName") & "

กรุณาคลิ๊กที่นี่ เพื่อเข้าสู่การกรอกข้อมูลการสมัครต่อไป

ขอบคุณครับ

เว็บมาสเตอร์คาราบาว.เน็ต
Webmaster@carabao.net


Carabao Band Official Website
P.O.Box 78 Yannawa Post
Bangkok 10120

" end if else demail = email BodyMsg = "ยินดีต้อนรับคุณ : " & email & "

อีเมล์ของท่านได้ผ่านการตรวจสอบเบื้องต้นแล้ว

กรุณาคลิ๊กที่นี่ เพื่อเข้าสู่การกรอกข้อมูลการสมัครต่อไป

ขอบคุณครับ

เว็บมาสเตอร์คาราบาว.เน็ต
Webmaster@carabao.net


Carabao Band Official Website
P.O.Box 78 Yannawa Post
Bangkok 10120

" end if response.Write("


อีเมล์ได้ถูกส่งไปที่ " & email & "

กรุณาเปิดอีเมล์นี้ และคลิกที่ลิงค์ยืนยันเพื่อให้การลงทะเบียนในขั้นตอนต่อไป




") '========= send mail ============================================= 'dim objCDO 'Set objCDO = Server.CreateObject("CDO.Message") 'With objCDO ' .To = demail ' .From = "Carabao Official Website " 'femail ' .Subject = "ขอต้อนรับเข้าสู่ระบบสมัครสมาชิกคาราบาว.เน็ต" 'subj ' .BodyPart.Charset = "Tis-620" ' .HtmlBody = BodyMsg ' .Send 'End With '=============================================================== Dim myMail,HTML,strMsg Set myMail = Server.CreateObject("CDO.Message") Dim cdoConfig Set cdoConfig = myMail.Configuration With cdoConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '*** Authentication ***' .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "members@carabao.net" '*** User ***' .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "comrab" '*** Password ***' .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Update End With myMail.Configuration = cdoConfig myMail.BodyPart.Charset = "utf-8" myMail.From = "members@carabao.net" myMail.To = demail myMail.Subject = "ขอต้อนรับเข้าสู่ระบบสมัครสมาชิกคาราบาว.เน็ต" myMail.HTMLBody = BodyMsg myMail.Send Set myMail = Nothing '=============================================================== RS.Close Conn.Close else %>
การสมัครเป็นสมาชิกเว็บไซต์คาราบาว.เน็ต
ข้อตกลงในการใช้เวทีสนทนาภาษา'บาว

Carabao.net Society Carabao's Community Online :)
สังคมคาราบาว.เน็ต สังคมคุณภาพออนไลน์


เวทีสนทนาภาษา'บาว เปิดกว้างสำหรับสุภาพชนทุกท่านให้เข้ามามีส่วนร่วมในการเปิดประเด็นและแสดงความคิดเห็นอย่างมีเสรีภาพ ทั้งนี้คาราบาว.เน็ต ได้มีระบบสมาชิก [MC] Member Certification ขึ้นมา โดยจะรับรองสถานะความมีตัวตน และรักษาสิทธิ์ของสมาชิกคาราบาว.เน็ตทุกท่าน ที่ผ่านการสมัครชิกเข้ามา

สำหรับผู้ที่ต้องการสมัครเป็นสมาชิกคาราบาว.เน็ต นั้น สามารถดำเนินการ ตามขั้นตอนการสมัครได้ พร้อมทั้งรับสิทธิพิเศษต่างๆ ตามรายละเอียดดังนี้

รายละเอียดการสมัครสมาชิกคาราบาว.เน็ต
1. กรอกข้อมูลการสมัครผ่านเว็บไซต์คาราบาว.เน็ต ที่เป็นความจริง ถูกต้อง และครบถ้วน
2. ส่งเอกสารสำเนาบัตรประชาชนไปยังคาราบาว.เน็ต เพื่อแสดงสถานะตัวตน
3. รับเครื่องหมาย [MC] ต่อท้ายชื่อท่าน ในการตั้งประเด็นและแสดงความคิดเห็น
ในเวทีสนทนาภาษาบาว


สิทธิสำหรับสมาชิกคาราบาว.เน็ต [MC]
1. รับข้อมูลข่าวสารผ่านระบบ SMS Email ไปรษณีย์ สำหรับข่าวสารและกิจกรรมต่างๆ
2. รับสิทธิ์พิเศษสำหรับคอนเสิร์ตคาราบาว (เฉพาะข้อกำหนดข้อผู้จัดงาน)
3. สามารถเปิดประเด็นและแสดงความคิดเห็นผ่านเวทีสนทนาภาษา'บาวได้
4. สามารถโพสต์รูปในการตั้งประเด็นและแสดงความคิดเห็นผ่านเวทีสนทนาภาษา'บาวได้
5. กรณีเกิดข้อพิพาทผ่านเวทีสนทนา
คาราบาว.เน็ตจะร่วมสนับสนุนข้อมูลเพื่อหาคู่กรณี


ข้อกำหนดสำหรับผู้ใช้งานทั่วไป [Guest]
1. สามารถตั้งประเด็นและแสดงความคิดเห็นได้อย่างเสรี
2. ไม่สามารถโพสต์รูปประกอบประเด็นและความคิดเห็น
2. แสดงรายละเอียด IP Address วันเวลา ในการตั้งประเด็นและแสดงความคิดเห็น
3. จะถูกบล็อก IP Address ในกรณีโพสต์ข้อความที่ทำให้เกิดความเสียหายทุกกรณี


ถ้าท่านยอมรับข้อตกลง กรุณากรอกอีเมล์แอดเดรสของท่าน เพื่อเข้าสู่การสมัครสมาชิก Email :
<%end if%>