Line 38:
Line 39: Dim catalegDS As System.Data.DataSet = icnea.producte(Request("r"), idioma, Session("client"), Funcions.Empresa, Funcions.Password)
Line 40: Nom.Text = catalegDS.Tables("cataleg").Rows(0).Item("nom")
Line 41: Descripcio.Text = catalegDS.Tables("cataleg").Rows(0).Item("descripcio")
Line 42: Title.Text = UCase(Trim(catalegDS.Tables("cataleg").Rows(0).Item("nom"))) & " - " & Funcions.Anagrama
|