<!-- #include virtual="/include/functions.asp" -->
<%

	'if no books redirect to main page
	if request("BookID")="" then Response.Redirect "/"
	
	'Create a connection odject
	Set adoCon = Server.CreateObject("ADODB.Connection")
	Set adoRec = Server.CreateObject("ADODB.Recordset")
	strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
	
	'Open the recordset and do the operation
	adoCon.Open strCon	
	adoRec.LockType = 3
	
	BookID = request("BookID")
	adoRec.Open "select * FROM Books where id=" & BookID, adoCon
	
	adoRec("Download") = adoRec("Download")+1
	adoRec.Update 
		
	Response.Redirect "/lib/Books/" & adoRec("Path")
%>