<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_facturacio_STRING MM_facturacio_STRING = "dsn=facturacio;" %> <% Dim rsproductes__MMColParam rsproductes__MMColParam = "100102" If (Request("MM_EmptyValue") <> "") Then rsproductes__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsproductes Dim rsproductes_numRows Set rsproductes = Server.CreateObject("ADODB.Recordset") rsproductes.ActiveConnection = MM_facturacio_STRING rsproductes.Source = "SELECT * FROM Productos WHERE Numserie = '" + Replace(rsproductes__MMColParam, "'", "''") + "'" rsproductes.CursorType = 0 rsproductes.CursorLocation = 2 rsproductes.LockType = 1 rsproductes.Open() rsproductes_numRows = 0 %> Ciberpyme

Estem treballant per millorar la nostra web.

Opció properament disponible.

Gràcies per la vostra atenció.

© Ciberpyme • Can Bruixa, 38-40 • Tel. 935 329 982 • 08014 - BARCELONA
<% rsproductes.Close() Set rsproductes = Nothing %>