<%
dim book_id
book_id=Request.QueryString( "book_id" )

dim conn
set conn=Server.CreateObject( "ADODB.connection" )
conn.Open  "dsn=bookstore" 

conn.Execute  "INSERT INTO basket (book_id, visitor_id) select "  & book_id &  " , "  & session( "visitor_id" )

conn.Close
set conn=nothing

Response.Redirect  "showbasket.asp" 
%>

<% 
dim conn 
set conn=Server.CreateObject( "ADODB.connection" ) 
conn.Open  "dsn=bookstore"  

dim rs, sql 
set rs=Server.CreateObject( "ADODB.recordset" ) 
sql= "select * from basket_list where visitor_id="  & session( "visitor_id" ) 
rs.Open sql,conn,  3