<%
searchword = Request("storename")
Dim objConn
Dim objRec
Dim strConn
StoreSQL = "SELECT ord_num,title,qty,discount From salesdetail,titles where stor_id=(SELECT stor_id FROM stores WHERE stor_name ='"& searchword & "') AND titles.title_id=salesdetail.title_id;"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
%>
