<% Set Conn=Server.CreatObject("ADODB.Connection") Set rs=Server.CreatObject("ADODB.Connection") Conn.Open "pin" userstring=request("keyword") sqlTmp="select * from cabinet" sqlTmp=sqlTmp & "where pin Like '%" & userstring & "%'" sqlTmp=sqlTmp & "or Tel_Number Like '%" & userstring & "%'" sqlTmp=sqlTmp & "or pin_out Like '%" & userstring & "%'" 'เปิดฐานข้อมูลตามเงื่อนไขของชุดคำสั่ง SQL rs.Open sqlTmp,Conn,adFordwordOnly,,adCmdText 'ในกรณีที่ไม่มีเรคคอร์ดใดตรงกับเงื่อนไข If rs.BOF and rs.EOF Then response.write "ไม่พบข้อมูลของเบอร์โทรศัพท์ที่ป้อนนี้" response.write vbCrlf Else %>
ผลการค้นหา
คู่ที่
เบอร์โทรศัพท์
คู่สายออก
ชื่อตู้พักสาย
<%While Not rs.EOF%>
<%=rs("Pin")%>
<%=rs("Tel_Number")%>
<%=rs("Pin_Out")%>
<%=rs("Box_Name")%>
การค้นหาคู่สายสำหรับซ่อม
เบอร์โทรศัพท์ที่ต้องการซ่อม :