set Conn1 = Server.Createobject("ADODB.Connection") Conn1.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Network.mdb"),"" , "" strSQL = "UPDATE Reserve INNER JOIN [" & Server.MapPath("mydatabase.mdb") & "].[MyTable] b ON Reserve.IP=b.IP and Reserve.Port = b,Port " strSQL = strSQL&"SET Status = 'Used' " strSQL = strSQL& "where b.Reserve = 'Used' and Reserve.Status = 'Reserve'" Set objExec = Conn1.Execute(strSQL)
set Conn1 = Server.Createobject("ADODB.Connection") Conn1.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Network.mdb"),"" , "" strSQL = "UPDATE Reserve " strSQL = strSQL&"SET Status = 'Used' " strSQL = strSQL& "where EXISTS (Select b.Reserve = 'Used' From Reserve a INNER JOIN [" & Server.MapPath("mydatabase.mdb") & "].[MyTable] b ON a.IP=b.IP and a.Port = b.Port where a.Status = 'Reserve' and b.Reserve = 'Used' )" Set objExec = Conn1.Execute(strSQL)
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง