Indsæt i database virker ikke

Hej.

jeg har forsøgt mig med at lave en databasestyret side, men jeg kan ikke få min tilføj side til at virke... Koden i mit ASP dokument ser således ud:

<%@LANGUAGE="VBSCRIPT"%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/XXXXXXXX/db/drinks.mdb")
%>


<%
Set drinks = Server.CreateObject("ADODB.Recordset")
drinks.Open = "drinks", database, 2, 2
%>

<%
drinks.AddNew
    drinks("navn") = Request.QueryString("navn")
    drinks("indhold") = Request.QueryString("indhold")
    drinks("beskrivelse") = Request.QueryString("beskrivelse")
    drinks("pris") = Request.QueryString("pris")
drinks.Update

Response.Redirect("tilfojdrink.asp")
%>


Jeg får så en "HTTP 500 - Internal server error" når jeg sender data til siden fra min formular. Det er skrevet direkte af fra et hæfte der omhandler emnet, så jeg går ud fra at det er mit webhotel der har nogle bestemte krav til hvordan tingene skal være. Er mit hæfte forældet eller hvad?

/Morten