<% const adOpenForwardOnly=0 const adOpenStatic=3 const adLockReadOnly=1 const adLockOptimistic=3 const adCmdText=1 dbWhere = server.MapPath("sriburin.mdb") set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbWhere set rs = Server.CreateObject("ADODB.RecordSet") set rs10 = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP 1 * FROM tbCounter" rs.open strSQL,conn,adOpenForwardOnly,adLockReadOnly,adCmdText if not(rs.eof) then visitor_no=rs("fVisitor_no") else visitor_no=0 end if rs.close if session("visitor")="" then visitor_no = visitor_no+1 strSQL = "UPDATE tbCounter SET fVisitor_no=" & visitor_no & "" rs.open strSQL,conn,adOpenStatic,adLockOptimistic,adCmdText session("visitor")=visitor_no end if dim visitor_show(8) visitor_text = right("0000000" & (visitor_no),7) for flag_visitor=1 to 7 visitor_show(flag_visitor)=mid(visitor_text,flag_visitor,1) next %> ---- คลินิกความงาม --- Beauty Zone ----


     จากรับสมัครผู้เข้าร่วมการ ประกวด Miss KAC 2008 มีเข้าร่วมประกวด 100 กว่าคน คัดเหลือ 31 คน และในวันที่ 28 มิย 51
จะคัดเหลือเพียง 10 ท่าน และจะเหลือ เพียง 3 ท่านที่จะได้เป็นตัวแทนสาวสวยหน้าใส ของศูนย์เลเซอร์และศัลยกรรมความงาม
     คุณรัตนา จงสุทธนามณี นายก อบจ จังหวัดเชียงรายได้ให้เกียรติมาเป็นประธานเปิดงาน โดยมี พญ.ทรงพร ปัญญาดี ผช.ผอแพทย์
ประจำศูนย์เลเซอร์และศัลยกรรมความงาม กล่าวเปิดงานโดยมีผู้เข้าร่วมงานจำนวนมาก


     การแสดงของน้องๆ ผู้เข้าร่วมประกวด ซึ่งแต่ละคนโชว์ความสามารถจนคณะกรรมการลำบากใจไปตามๆ กัน......

     ติดตามกันใหม่นะคะ ยังมีอีกเพียบ ........เดียวจะทยอยลงให้ดู นี่แค่ ออเดิฟค่ะ .......................................เว็บมาสเตอร์