<% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("recordID") <> "") Then Recordset1__MMColParam = Request.QueryString("recordID") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_nav_STRING Recordset1_cmd.CommandText = "SELECT No_, Name, Search_Name, Name_2, Address, Address_2, City, Contact, Phone_No_, Our_Account_No_ FROM null.Customer WHERE No_ = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, Recordset1__MMColParam) ' adVarChar Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %>
Comments
Old ODBC drivers are not stable. If you are on sql use the sql native drivers.
Independent Consultant/Developer
blog: https://dynamicsuser.net/nav/b/ara3n
thanks for your help
Independent Consultant/Developer
blog: https://dynamicsuser.net/nav/b/ara3n