Hjælp. Database skrammel

Hejsa

Jeg har siden www.befriminmobil.dk, men har desværre ikke rigtigt haft tid til at vedligeholde den.... Jeg har nu fået flere henvendelser om at siden www.befriminmobil.dk/order.asp ikke virker. Siden er hosted ved B-one

Scriptet som er omtalt i fejlen er flg:

<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/udbydere.mdb")
set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
set rs = myConn.Execute("Select land from operatorer order by land asc;")
Do until rs.EOF or rs.BOF
set rsFlere = myConn.Execute("Select * from operatorer where land = '" & rs("land") & "' order by navn desc;")
If not rsFlere("land") = foerland Then
Response.Write "store['" & rs("land") & "']= new Array("
Do until rsFlere.EOF or rsFlere.BOF
operatorer = operatorer & "'" & rsFlere("navn") & "',"
rsFlere.movenext
loop
rsFlere.close
set rsFlere = nothing
Response.Write left(operatorer,len(operatorer)-1) & ");" & VbCrlf
foerland = rs("land")
operatorer = ""
End If
rs.movenext
loop
rs.close
set rs = nothing
myConn.close
set myConn = nothing
%>

Hvad går der galt? Jeg har selv prøvet at rode lidt med scriptet, men kan ikke finde ud af det...