søgefunktion fra webhotel!

Jeg har før brugt følgende kode som er en søgefunktion med pagefunktion i en Access database. Før kørte scriptet på min egen server, hvor jeg havde fuld styr over DSN'er, men nu skal scriptet afvikles fra webhotellet wannafind.dk. Det betyder at jeg har lidt svært ved at omskrive det så det fungerer!

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")

'Søgning opbygges
strSQL = "select * from [PersonTabel] WHERE "

' normale indtastnings felter og dropdowns 
Felt = split("Koen,Oejenfarve,Haarfarve",",")

for i = 0 to 2 '2 er det antal felter der står i Felt - 1
    if request(Felt(i)) <> "" then
        strSQL = strSQL & "[" & Felt(i) & "] like '%" & request(Felt(i)) & "%' and "
        tmpFound = true
    end if
next

If request("alder") <> "" Then
strSQL = strSQL & "[Alder] BETWEEN " & Request("alder") & " and " & Request("alder2") & " Order By Fornavn"
alder = request("alder")
alder2 = request("alder2")
else
strSQL = strSQL & "[Alder] BETWEEN 1 and 99 Order By Fornavn"
alder = 1
alder2 = 99
End if

If request("hoejde") <> "" Then
strSQL = strSQL & "[Hoejde] BETWEEN " & Request("hoejde") & " and " & Request("hoejde2") & " Order By Fornavn"
hoejde = request("hoejde")
hoejde2 = request("hoejde2")
else
strSQL = strSQL & "[Hoejde] BETWEEN 1 and 200 Order By Fornavn"
hoejde = 1
hoejde2 = 250
End if

If request("vaegt") <> "" Then
strSQL = strSQL & "[Vaegt] BETWEEN " & Request("vaegt") & " and " & Request("vaegt2") & " Order By Fornavn"
vaegt = request("vaegt")
vaegt2 = request("vaegt2")
else
strSQL = strSQL & "[Vaegt] BETWEEN 1 and 200 Order By Fornavn"
vaegt = 1
vaegt2 = 200
End if

'Variabler overføres
'Fornavn = Request("Fornavn")
'Efternavn = Request("Efternavn")
Koen = Request("Koen")
Haarfarve = Request("Haarfarve")
Oejenfarve = Request("Oejenfarve")
'Nationalitet = Request("Nationalitet")
'Lejrnavn = Request("Lejrnavn")

strDSN = "DSN=Nyt_DSN"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
%>



Jeg ved ikke rigtigt hvilken værdi jeg skal give strDSN nu???



Den kode jeg bruger til at logge på min database ser således ud:

dim myConn

function OpenConn( DBName )

Set myConn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), ""))
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

OpenConn("../../../database/castDB.mdb")


Er der nogen der har nogle gode forslag??

-M