Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=SQLOLEDB;Data Source=192.168.1.100;database=eleart;User ID=sa;Password=;" Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM ea_netstr where MM_film_no ='"&request("MM_sn_search")&"'" rs.open sql,conn,1,1,1 if not rs.eof then if request("C1")=1 then call sn_search_all() else call sn_search_single() end if
