<%
public function getBookName(ByVal bookID)
Dim Conn1, RS1
Set Conn1 = CreateObject("ADODB.Connection")
Set RS1 = Server.CreateObject("ADODB.RecordSet")
Conn1.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn1.Open Server.MapPath("../database/bookstore.mdb")
sql = "select bookname from top10info where id = " & bookID
RS1.open sql,Conn1,3,1
getBookName = rs1("bookName")
end function
%>
