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>