<%@ Language=VBScript %> <% Dim conn set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "driver={SQL Server};" & _ "server=11.111.11.111;" & _ "Address=11.111.11.111,1433;" & _ "Network=DBMSSOCN;" & _ "uid=myusername;" & _ "pwd=mypwd;" & _ "database=mysqldatabase;" Dim strSQL, rs strSQL = "Select veldnaam from tabelnaam" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, conn do while not rs.EOF Response.Write rs("Veldnaam") Response.Write "
" rs.MoveNext loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>