<% dim objRS, objConn, strSQL call connectdb(objConn) strSQL = "SELECT title, excerpt FROM books WHERE book_id=" & request("id") set objRS = objConn.Execute(strSQL) if not objRS.EOF then Response.Write("

Excerpt from " & objRS(0) & "

") Response.Write("

" & objRS(1) & "

") else Response.Write("

No Excerpt.

") end if set objRS = nothing set objConn = nothing %>