SITE UNDER CONSTRUCTION <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=mssql03.1and1.com;UID=dbo128437344;PWD=cfrEKF8a;DATABASE=db128437344" 'This code block will create a recordset Set rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from tblcustomer" rs.open SQL, conn 'will iterate to display the records got from the database While Not rs.EOF response.write(rs("id") & " " & rs("price")) rs.MoveNext Wend 'closes the connection rs.close conn.close Set rs = Nothing Set conn = Nothing %>