Hvad kræves der af webhotel, for dette??

Hej jeg vil lige høre hvad der kræves af webhotel for at et script noget ligningde dette, kan fugere...?

<%
If Request.Form(\"garder\") <> \"\" then
    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"garder.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
    SQL = \"select * from garder where Indkaldelse like \'%\" & Request.Form(\"garder\") & \"%\' or Navn like \'%\" & Request.Form(\"garder\") & \"%\'\"
    SQL2 = \"select top 1 * from garder order by ID desc\"
    Set rs = db.Execute (SQL)
    If not rs.eof then
        Response.Write \"<table>\"
        Response.Write \"<tr><td><font face=verdana size=3><b>Navn</b></font></td><td width=40></td><td><font face=verdana size=3><b>Indkaldelse</b></font></td><td width=10></td><td><font face=verdana size=3><b>E-mail</b></font></td><td width=20></td><td><font face=verdana size=3><b>Mobil</b></font></td><td width=15></td><td><font face=verdana size=3><b>Telefon</b></font></td><td width=15></td></tr>\"
        Do until rs.eof
            Indkaldelse = rs(\"Indkaldelse\")
            Response.Write \"<tr><td><font face=verdana size=2>\" & rs(\"Navn\") & \"</font></td><td width=40></td><td><font face=verdana size=2>\" & rs(\"Indkaldelse\") & \"</font></td><td width=10></td><td><font face=verdana size=2><a href=\'mailto:\" & rs(\"email\") & \"\'>\" & rs(\"email\") & \"</font></td><td width=20></td><td><font face=verdana size=2>\" & rs(\"Mobil\") & \"</font></td><td width=15></td><td><font face=verdana size=2>\" & rs(\"Telefon\") & \"</font></td><td width=15></td></tr>\"
            rs.movenext
           
        Loop
       
       
       
        Response.Write \"</table>\"
    Else
        Response.Write \"<b>Der var ingen garder der matchede din søgekriterier! Prøv kun at skrive et ord!</b>\"
   
   
   

    End if
End if

%>