dsnless til ODBC

Hej E.

Er her en venlig sjæl som gider ændrer databasekaldet så jeg kan bruge nedenstående?

**********dette vil jeg gerne have sat ind*********

SET DbObj=Server.CreateObject (\"ADODB.Connection\")
DbObj.Open \"DSN=dbwww.b82.dk\"
SET tabel = DbObj.Execute(\"Select * FROM b82_tabeller\")

***************slut*******************

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT * FROM Forums\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    Do While Not rs.EOF
        strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ForumID =\" & rs(\"Id\") & \") ORDER BY ID DESC\"
        Set formatDate = myConn.Execute(strSQL)
        If (formatDate.BOF Or formatDate.EOF) Then
            dtmFormatDate = \"Ingen indlæg\"
        Else
            dtmFormatDate = formatDate(\"FormDate\")
        End If
        strSQL = \"SELECT Count(*) AS ItemCount FROM Entries Where (ForumID = \" & rs(\"Id\") & \")\"
        Set recordCount = myConn.Execute(strSQL)
        strHTML = strHTML & \"<tr><td bgcolor=#BBBB88><strong><font face=Verdana size=2><a href=\"\"forumthreads.asp?forumid=\" & rs(\"ID\") & \"\"\">\" & rs(\"Forum\") & \"</a></strong><br>\" & rs(\"Description\") & \"</font></td>\"
        strHTML = strHTML & \"<td bgcolor=#BBBB88 valign=top><font face=Verdana size=2>\" & recordCount(\"ItemCount\") & \"</font></td>\"
        strHTML = strHTML & \"<td bgcolor=#BBBB88 valign=top><font face=Verdana size=2>\" & dtmFormatDate & \"</font></td></tr>\"
        rs.MoveNext
    Loop
End If
myConn.Close
Set myConn = Nothing
%>