<% set con = server.createobject("ADODB.Connection") 'Application("DSNseagull")="Driver=SQL Server; Database=Seagull08; UID=sa; PWD=lnsel; SERVER=.\sql2k5;" 'Application("DSNseagull")="Driver=SQL Server; Database=Seagull08; UID=sa; PWD=sel123!@#; SERVER=69.64.64.133\SQLEXPRESS;" Application("DSNseagull")="Driver={SQL Server};Server=205.178.152.123;Database=seagull08;Uid=seagullindia;Pwd=Seagullindia2002;" con.Open Application("DSNseagull") vitemid=request.querystring("prodid") Set rsImage=Server.CreateObject("Adodb.Recordset") qryImage="Select * from BookStore Where ItemId=" & vitemId rsImage.Open qryImage,con,3 if rsImage.RecordCount > 0 then ImagePath=rsImage("BackgroundImage") 'ImagePath=Replace(ImagePath,"\","/") end if %> <% '''**** Created by sujit on 22/1/2002 *********** ''****** Last edited by sujit on 6/5/2002 ******** set mycmd=server.CreateObject("ADODB.Command") mycmd.ActiveConnection=con mycmd.CommandType=adcmdstoredproc mycmd.CommandText="retbookdetails" set prm1=mycmd.CreateParameter("itemid",adInteger,adParamInput,4,vitemid) mycmd.Parameters.Append prm1 set rsbooksearch=server.createobject("ADODB.recordset") rsbooksearch.ActiveConnection=con rsbooksearch.CursorType=adopenstatic rsbooksearch.PageSize=10 rsbooksearch.CursorLocation=3 'rsbooksearch.Open qry,con rsbooksearch.Open mycmd if rsbooksearch.RecordCount>0 then %>
In this series
    <% Set rsBookDetail=Server.CreateObject("Adodb.recordset") qryBookDetail="Select * From tblRelatedBooks Inner Join bookstore On tblRelatedBooks.RelatedItemId=BookStore.ItemId Where tblRelatedBooks.ItemId = " & vitemid rsBookDetail.Open qryBookDetail,con,3 if rsBookDetail.RecordCount >0 then do while not rsBookDetail.Eof %>
  • " class="textsmalllink" ><%=rsBookDetail("BookName")%>
    <%=rsBookDetail("author")%>
  • <% rsBookDetail.movenext Loop end if %>
<% if rsbooksearch("authordetails")<>"" then%> <%end if %> <%if rsbooksearch("description")<>"" then%> <%end if %>
" width="90" border="0">
<% if rsbooksearch("bookname")<>"" then%> <%end if %> <% if rsbooksearch("author") <> "--" then%> <%end if %> <% if rsbooksearch("pubname")<>"" then%> <%end if %> <% if rsbooksearch("publicationdt")<>"" then%> <% set rsbook=server.CreateObject("ADODB.Recordset") sql="SELECT * FROM bookstore WHERE bookname='" & rsbooksearch("bookname") &"' and author='" & rsbooksearch("author") &"' and pubcode='" & rsbooksearch("pubcode") &"' " rsbook.Open sql,con do while not rsbook.eof %> <% if rsbook("isbn")<>"" then%> <%end if%>

<%=(rsbooksearch("authordetails"))%>

<% rsbooksearch.close con.close %>