Redigering af database-relateret login-script

Hejsa jeg har lige fået et domain og ønkser så derfor at flytte min side(r) derop.
Men fra domainhostens side lyder det at jeg skal bruge følgende for at connecte til en database:

---------------------------------------------
dim conn

function OpenConn( DBName )

Set Conn = Server.CreateObject(\"ADODB.Connection\")
ODBCpath = left(request.servervariables(\"PATH_TRANSLATED\"), instrrev(request.servervariables(\"PATH_TRANSLATED\"), \"\\\"))
Conn.Open \"DBQ=\" & ODBCpath & DBName & \";DefaultDir=\" & ODBCpath & \";Driver={Microsoft Access Driver (*.mdb)}\"

end function

OpenConn(\"xxx.mdb\")
---------------------------------------------

Så er det at jeg spørger, hvor meget af følgende script skal erstattes af ovenstående ?

<%
Bruger=request.form(\"Brugerval\")
Kode=request.form(\"Adgangval\")

set ConnLogin=Server.Createobject(\"ADODB.connection\")

ConnLogin.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=******.mdb\"
sqlbruger=\"SELECT * FROM adgang WHERE Brugernavn= \' \" & Bruger & \" \' AND Adgangskode= \' \" & Kode & \" \' \"

set ValLogin=ConnLogin.execute(sqlbruger)

If ValLogin.eof then
session(\"logon\")=false
response.write \"Brugernavn eller Adgangskode er forkert\"

ValLogin.close
    ConnLogin.close
    set ValLogin= nothing
    set ConnLogin= nothing
response.end
else
session(\"logon\")=true
response.redirect \"visdata.asp?name=\" & bruger
end if
%>