connect til accesdatabasen

Hej

Jeg havda lavet noget kode der skulle gemme i min access db og det virkede fint her hos mig selv..Men på det webhotel hvor det skal ligge har de følgende regel til at connecte til databasen:

Set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb") & ";UID=;PWD="

Nu har jeg forsøgt at ændre min kode men nu går der helt kage i den..hvem kan gennemskue det og hjælpe mig ?
Det der er udkommenteret er noget af min kode som jeg ikke tror skal med!!!
<%
'Dimension variables
Dim adoCon              'Holds the Database Connection Object
Dim db                      'Holds the recordset for the new record to be added
Dim SQL                  'Holds the SQL query to query the database

'Create an ADO connection object
'Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
'adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("golfscooter.mdb")

Set db = Server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("golfscooter.mdb") & ";UID=;PWD="


'Create an ADO recordset object
'Set rsAddComments = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
SQL = "SELECT * FROM scooter;"

'Set the cursor type we are using so we can navigate through the recordset
db.CursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated
db.LockType = 3

'Open the recordset with the SQL query
db.Open SQL, adoCon

'Tell the recordset we are adding a new record to it
db.AddNew

'Add a new record to the recordset
db.Fields("model")         = Request.Form("model")
db.Fields("beskrivelse") = Request.Form("beskrivelse")
db.Fields("Ip")            = Request.ServerVariables("REMOTE_ADDR")
   

'Write the updated recordset to the database
db.Update


'find id som vi lige har sat ind.
sqlo = "SELECT max(id_no) FROM scooter"
Set rso = adocon.Execute(sqlo)   

oid = Cint(rso(0))

'Reset server objects
db.Close
Set db = Nothing
Set adoCon = Nothing
'response.write rso("maxkommentar_id")


Response.Redirect "billede.asp?id=" & Server.URLEncode(oid)

%>