<%
stext = Request.Form("stext")
if (Len(sText) = 0 or sText = "" or sText = " ") then
stext = Request.Form("stext2")
end if
if Len(sText) > 0 and sText <> " " then
'Connection 객체를 DB와 연결
Set DbConn = Server.CreateObject("ADODB.Connection")
DbConn.Open "homepage", "homepage", "bhc316"
'Recordset 열기
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRs.ActiveConnection = DbConn
SQL = "select count(*) from kirin_product where (search1 like '%"&stext&"%') or (search2 like '%"&stext&"%')"
'Recordset 가져오기
objRs.CursorType = adOpenStatic
objRs.Source = SQL
'Recordset 열기
objRs.Open
pcount = objRs(0)
objRs.close
SQL = "select pcode from kirin_product where (search1 like '%"&stext&"%') or (search2 like '%"&stext&"%')"
'Recordset 가져오기
objRs.CursorType = adOpenStatic
objRs.Source = SQL
'Recordset 열기
objRs.Open
do while (not objRs.eof)
pcodelist = pcodelist + objRs(0)
objRs.MoveNext
loop
objRs.close
SQL = "select ucode from kirin_usage where (search1 like '%"&stext&"%') or (search2 like '%"&stext&"%')"
'Recordset 가져오기
objRs.CursorType = adOpenStatic
objRs.Source = SQL
'Recordset 열기
objRs.Open
do while (not objRs.eof)
ucodelist = ucodelist + objRs(0)
objRs.MoveNext
loop
objRs.close
DbConn.Close
Set objRs = nothing
Set DbConn = nothing
end if
%>
제품소개
