<% dim cn,rs,rs1,rs2,conn set cn = Server.CreateObject("Adodb.Connection") set rs = server.CreateObject("Adodb.Recordset") set rs1 = server.CreateObject("Adodb.Recordset") set rs2 = server.CreateObject("Adodb.Recordset") 'Connection string conn = "Provider=sqloledb; Data Source=SQLHosting01.myhosting.com; Initial Catalog=DB_0EE077; User Id=User_0EE077; Password=H4wkster7!4;" cn.Open conn Dim id if request.querystring("id") = "" then id = "1" else id = request.querystring("id") end if sqlstring = "SELECT * FROM db_portfolio where id = " & id rs.open sqlstring, cn sqlstring1 = "SELECT count(*) as total FROM db_portfolio;" rs1.open sqlstring1, cn sqlstring2 = "SELECT * FROM db_portfolio ORDER BY id;" rs2.open sqlstring2, cn %>