Storing Data

Code:
<%
Dim rsDB
Dim strSQL
Dim name
Dim price
Set rsDB = Server.CreateObject("ADODB.Recordset" )
strSQL = "SELECT ProductName, ProductPrice FROM Products WHERE ProductID=" & Request("ProductID" )
rsDB.Open strSQL, Application("strConn" )

' put fields into variables
name=rsDB("ProductName" )
price=rsDB("ProductPrice" )
%>
I am trying to store some data from my database (access) into some variables so that I don't have to keep on opening up the database everytime I want to display the data. Dont know what I am doing wrong but i keep getting an internal server error 500.