Include file

<i><b>Originally posted by : stevebn (steven@smarttransact.com)</b></i><br /><SCRIPT LANGUAGE=vbscript RUNAT=Server><br />Dim i = 1<br />Set objConn = Server.CreateObject("ADODB.Connection")<br /><br />Sub fnSelectSQL(Records,statement)<br /> <br /> Application.contents("I_VALUE") = i<br /> <br /> Set objCmd = Server.CreateObject("ADODB.Command")<br /> <br /> Application("EB_ConnectionString") = "Provider=MSDASQL.1;Connect Timeout=15;Extended Properties=""DRIVER=SQL Server;SERVER=456.456.456.456;UID=sa;WSID=aaaa;DAT ABASE=EB;Address=456.456.456.456,1433"";Locale Identifier=4455;User Id=abc;PASSWORD=456456;" <br /> objConn.ConnectionString=Application("EB_ConnectionString")<br /> objConn.CursorLocation=adUseClient<br /> objConn.Open <br /> <br /> <br /> objCmd.ActiveConnection=objConn<br /> objCmd.CommandType=adCmdText<br /> <br /> 'execute the SQL statement<br /> objCmd.CommandText=statement<br /> set Records = objCmd.Execute<br /> <br />End Sub<br /><br /></SCRIPT>