line decor
line decor

                                        ข้อมูลทำเนียบผู้เชี่ยวชาญทั้งหมด

                                             สามารถค้นหาข้อมูลงาน หรือชื่อผู้เชี่ยวชาญ

<% vtxtfind=request("txtfind") 'response.write(vtxtfind) 'cQuery = "select * from km_search where search_name like '%" & vtxtfind & "%' or search_key like '%" & vtxtfind & "%'" cQuery = "select * from plan2 where subject like '%" & vtxtfind & "%' or name like '%" & vtxtfind & "%'" 'cQuery = "select * from plan2 " 'response.write(cQuery) Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "km_odbc","spd","spd" set master = server.CreateObject("ADODB.Recordset") master.open cQuery,conn,1,3 %>

<% vtxtfind=request("txtfind") 'response.write(vtxtfind) 'cQuery = "select * from km_search where search_name like '%" & vtxtfind & "%' or search_key like '%" & vtxtfind & "%'" cQuery = "select * from plan2 where subject like '%" & vtxtfind & "%' or name like '%" & vtxtfind & "%'" 'cQuery = "select * from plan2 " 'response.write(cQuery) Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "km_odbc","spd","spd" set master = server.CreateObject("ADODB.Recordset") master.open cQuery,conn,1,3 %> <% c = 0 Do while not master.eof c = c+1 %> <% master.movenext Loop master.CLOSE %>
ข้อมูล : ค้นหา
ลำดับ
งานที่เชี่ยวชาญ
                  ชื่อผู้เชี่ยวชาญ
<%=c%>
  <%=master("subject")%>
 <%=master("name")%>
" ; ?>


    

<% vtxtfind=request("txtfind") 'response.write(vtxtfind) 'cQuery = "select * from km_search where search_name like '%" & vtxtfind & "%' or search_key like '%" & vtxtfind & "%'" cQuery = "select * from plan2 where subject like '%" & vtxtfind & "%' or name like '%" & vtxtfind & "%'" 'cQuery = "select * from plan2 " 'response.write(cQuery) Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "km_odbc","spd","spd" set master = server.CreateObject("ADODB.Recordset") master.open cQuery,conn,1,3 %>

aa
ย้อนกลับ
aa