Skriv resultat fra database

Hej. Denne kode er fuld af fejl. Er der en der kan rette den til, så den viser postens data.

else if (stat="vis") then
vNr = Request.Querystring("nr")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("great.mdb")
Conn.Open DSN

strSQL = "SELECT kate,til,fra,besk FROM great WHERE bnr IS (" & vNr & ")  "

Conn.Execute (strSQL)

response.write Conn("kate") & "<br>"
response.write Conn("til") & "<br>"
response.write Conn("fra") & "<br>"
response.write Conn("besk") & "<br>"

conn.Close
Set conn = nothing
Set strSQL = nothing

response.write(vNr)

end if