1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| <%
Dim etab1
Dim etab1_cmd
Dim etab1_numRows
Set etab1_cmd = Server.CreateObject ("ADODB.Command")
etab1_cmd.ActiveConnection = MM_sqlfncas_STRING
etab1_cmd.ActiveConnection.CursorLocation = 3 '<-- ici
etab1_cmd.CommandText = "SELECT idetablist, codepostaletablis, rce, nometablist, nomusetablist, emailrespetablisst, telrespenquete,villeetablist,adresseetablist, nomresponsableenquete FROM dbo.Etablissements WHERE idetablist = ?"
etab1_cmd.Prepared = true
etab1_cmd.Parameters.Append etab1_cmd.CreateParameter("param1", 5, 1, -1, etab1__MMColParam) ' adDouble
Set etab1 = etab1_cmd.Execute
etab1_numRows = 0
%> |
Partager