методом проб и ошибок я понял, что ошибка где-то в этом sub'e, но понять где именно не могу. На локальной машине выдается ошибка (no source reported). На серевере все выполняется и работает на ура.

sub pick2(ziel)
sql = "SELECT wert AS myEntry FROM rest WHERE zellname = " & "'" & ziel & "'"
picker.open sql, UserCon, 1, 3, &H0001
If not request.form(ziel) = "" and isNumeric(request.form(ziel)) then
if not request.form(ziel) < 0 then picker("myEntry") = request.form(ziel) * faktor
picker.update
end if
end sub

Как я понял — что-то с путям на локальной машине

UserCon="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Session("dbUser")
KoordCon="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Session("dbpath") & "Koordinaten.mdb"
set picker = Server.CreateObject("ADODB.Recordset")
set koordinator = Server.CreateObject("ADODB.Recordset")

Если для ответа информации в вопросе не хватает, то могу дополнить.