กำลัง Online อยู่ <% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & " คน" Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 'เวลาที่เราต้องการให้รันไฟล์นี้ครับตอนนี้เซตเป็น ทุกๆ1 นาทีครับ intActiveUserTimeout = 10 'เวลาที่เราจะตัดสินว่าเค้าไม่อยู่ในเวบเราแล้วที่นี้คือ 10 นาทีครับ If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %>

.... ด่านตรวจคนเข้าเมืองแม่สาย ... www.Maesaiimm.com

การรับแจ้งอยู่ในราชอาณาจักร เกิน 90 วัน

วิธีการแจ้ง

คนต่างด้าวแจ้งด้วยตนเองหรือ
คนต่างด้าวมอบหมายให้ผู้อื่นนำหนังสือไปแจ้งหรือ
คนต่างด้าวอาจมีหนังสือแจ้งทางไปรษณีย์ลงทะเบียน
คนต่างด้าวสามารถแจ้งที่พักอาศัยได้ ก่อนหรือหลัง 7 วัน นับจากวันครบกำหนด
คนต่างด้าวมายื่นคำร้องขออยู่ต่อปีแรก ให้ถือเป็นการแจ้งที่พักอาศัยเมื่ออยู่ในราชอาณาจักรเกิน 90 วันโดยอนุโลม

สถานที่รับแจ้ง

สำนักงานตรวจคนเข้าเมือง ซ.สวนพลู(งาน 1 กองกำกับการ 4 กองบังคับการอำนวยการ สำนักงานตรวจคนเข้าเมือง)
กลุ่มงานบริการขออยู่ต่อ ศูนย์รัชดา( BOI )
ด่านตรวจคนเข้าเมืองทุกแห่ง

การปฏิบัติเมื่อแจ้งทางไปรษณีย์ลงทะเบียน

สำเนาหนังสือเดินทางทุกหน้า(ถึงหน้าที่ได้รับอนุญาตให้อยู่ในราชอาณาจักรครั้งสุดท้าย รือหน้าที่ได้รับการตรวจลงตราครั้งสุดท้าย)
สำเนาบัตร ตม.6 ขาออก หน้า-หลัง (TM.6)
ใบรับแจ้งการอยู่เกิน 90 วัน (กรณีที่มีการแจ้งอยู่เกิน90 วันมาแล้ว)
กรอกรายละเอียดในแบบ ตม.47 พร้อมลงลายมือชื่อให้เรียบร้อย
ซองจดหมายพร้อมติดแสตมป์ 5 บาท จ่าหน้าซองถึงคนต่างด้าว เพื่อพนักงานเจ้าหน้าที่จะได้จัดส่งใบนัดส่วนล่างของแบบ ตม.47 เมื่อรับแจ้งอยู่เกิน 90 วัน แล้ว พร้อมแบบ ตม.47 เพื่อใช้แจ้งอยู่เกิน 90 วันในครั้งต่อไป
นำเอกสารตามข้อ 1-5 ใส่ซองและจัดส่งโดยไปรษณีย์ลงทะเบียน ทั้งนี้คนต่างด้าวจะต้องเก็บหลักฐานการลงทะเบียนไว้ โดยจ่าหน้าซองมาที่

งาน 1 กก.4 บก.อก.สตม.(90 วัน)
507 ซ.สวนพล ถ.สาทรใต้
แขวงทุ่งมหาเมฆ เขตสาทร
กรุงเทพมหานคร 10120

หรือ

90 DAYS REGISTRATION
507 IMMIGRATION BUREAU,
SOI SUANPLU,SOUTH SATHORN RD.,
THUNGMAHAMEK SATHORN
BANGKOK. 10120

หมายเหตุ

การแจ้งอยู่เกิน 90 วัน และต่อไปๆไปทุก 90 วัน มิใช่ เป็นการขออยู่ต่อในประเทศแต่อย่างใด
คนต่างด้าวผู้ใดอยู่เกินกว่า 90 วัน ไม่แจ้งที่พักอาศัยต่อพนักงานเจ้าหน้าที่ หรือแจ้งช้ากว่าที่กำหนด ต้องมารายงานตัวด้วยตนเอง และเสียค่าปรับ จำนวน 2,000 บาท หรือคนต่างด้าวถูกจับกุมตัวมาไม่ว่ากรณีใดๆต้องเสียค่าปรับ จำนวน 4,000 บาท
โทรศัพท์ 0-2862774,0-2287-3101-10ต่อ 2240