ODBC kontakt til SQL server.

Hvis dette script skal bruges på en SQL server DB istedetfor Access, hvad skal der så rettes??

Jeg har lavet et System DSN, ved navn sql_test som linker til eksempel databasen Northwind i SQL server.

Jeg ville blive glad hvis der er en der gider rette scriptet.

Mvh.
Teddy

______________________________________________
<% @LANGUAGE = VBScript %>
<%Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=W;Database=Northwind;"
strConnection = strConnection  & "UID=sa;PWD=;"
objConn.Open strConnection
strQuery = "SELECT Productname, UnitPrice FROM Products "
strQuery = strQuery & "ORDER BY Productname"
Set objRS = objConn.Execute(strQuery)
%>
<HTML>
<BODY>
All products stored in the Products table,
ordered by product name: <BR><BR>
<%
While Not objRS.EOF
  Response.Write objRS("Productname") & " ("
  Response.Write FormatCurrency(objRS("UnitPrice")) & ")<BR>"
  objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>