Databaseopkald ændres

Hej Eksperter

Jeg har skiftet webhotel til wannafind, men de bruger et andet opkald end det jeg før brugte :o(

Jeg har dog fået lavet et opkald som virker, se nedenstående...

<%
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & "../../database/database.mdb"

%>

På en af siderne har en af jer superdrenge tidligere lavet en sql sætning til mig, men jeg fatter ik lige at få den skrevet om til den nye sætning. Normalt kalder jeg bare mit opkald med conn..

<%
Set MyConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../database/database.mdb")
MyConn.Open DSN

set rs = server.createobject ("ADODB.recordset")

SQL = "SELECT TOP 5 jokes.titel, jokes.Id, Avg(Jokes_points.points) AS antal"
SQL = SQL & " FROM Jokes_points LEFT JOIN jokes ON Jokes_points.joke_id = jokes.id "
SQL = SQL & " GROUP BY Jokes_points.joke_id, jokes.titel, jokes.id"
SQL = SQL & " ORDER BY Avg(Jokes_points.points) DESC;"
Set rs = MyConn.Execute(SQL)

n = 1
do while not rs.EOF
%>


Håber I kan hjælpe