// JavaScript Document
	
// varijable naslovnice---------------------------------------------------------------------------------	
	var maginx=250;
	var negativ=250;
	var topMrgin=250;
	var Menimargin=250;
	var scrollStep=1;
	var brojac = document.getElementById('texta').scrollHeight;
    var dal=false
    var timertxt
	var timermov
	var leve=0
	var gdje=20
	var pozicija=1
	var dalmeni=false
	//var program="default.xml"
	var scrap="<br />  Option Strict Off   <br />   Option Explicit On  <br />    <br />    <br />    <br />  summary  <br />  Represents a strongly typed in-memory cache of data.  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0),    <br />   Global.System.Serializable(),    <br />   Global.System.ComponentModel.DesignerCategoryAttribute(code),    <br />   Global.System.ComponentModel.ToolboxItem(true),    <br />   Global.System.Xml.Serialization.XmlSchemaProviderAttribute(GetTypedDataSetSchema),    <br />   Global.System.Xml.Serialization.XmlRootAttribute(mainDataSet),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.DataSet)    <br />  Partial Public Class mainDataSet  <br />  Inherits Global.System.Data.DataSet  <br />    <br />  Private tableT1250B As T1250BDataTable  <br />    <br />  Private schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub New()  <br />  MyBase.New  <br />  Me.BeginInit  <br />  Me.InitClass  <br />  Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged  <br />  AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler  <br />  AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler  <br />  Me.EndInit  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)  <br />  MyBase.New(info, context, false)  <br />  If (Me.IsBinarySerialized(info, context) = true) Then  <br />  Me.InitVars(false)  <br />  Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged  <br />  AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1  <br />  AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1  <br />  Return  <br />  End If  <br />  Dim strSchema As String = CType(info.GetValue(XmlSchema, GetType(String)),String)  <br />  If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then  <br />  Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet  <br />  ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))  <br />  If (Not (ds.Tables(T1250B)) Is Nothing) Then  <br />  MyBase.Tables.Add(New T1250BDataTable(ds.Tables(T1250B)))  <br />  End If  <br />  Me.DataSetName = ds.DataSetName  <br />  Me.Prefix = ds.Prefix  <br />  Me.Namespace = ds.Namespace  <br />  Me.Locale = ds.Locale  <br />  Me.CaseSensitive = ds.CaseSensitive  <br />  Me.EnforceConstraints = ds.EnforceConstraints  <br />  Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)  <br />  Me.InitVars  <br />  Else  <br />  Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))  <br />  End If  <br />  Me.GetSerializationData(info, context)  <br />  Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged  <br />  AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler  <br />  AddHandler Me.Relations.CollectionChanged, schemaChangedHandler  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Browsable(false),    <br />   Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)    <br />  Public ReadOnly Property T1250B() As T1250BDataTable  <br />  Get  <br />  Return Me.tableT1250B  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.BrowsableAttribute(true),    <br />   Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)    <br />  Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode  <br />  Get  <br />  Return Me.schemaSerializationMode  <br />  End Get  <br />  Set  <br />  Me.schemaSerializationMode = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)    <br />  Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection  <br />  Get  <br />  Return MyBase.Tables  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)    <br />  Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection  <br />  Get  <br />  Return MyBase.Relations  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub InitializeDerivedDataSet()  <br />  Me.BeginInit  <br />  Me.InitClass  <br />  Me.EndInit  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Overrides Function Clone() As Global.System.Data.DataSet  <br />  Dim cln As mainDataSet = CType(MyBase.Clone,mainDataSet)  <br />  cln.InitVars  <br />  cln.SchemaSerializationMode = Me.SchemaSerializationMode  <br />  Return cln  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function ShouldSerializeTables() As Boolean  <br />  Return false  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function ShouldSerializeRelations() As Boolean  <br />  Return false  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)  <br />  If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then  <br />  Me.Reset  <br />  Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet  <br />  ds.ReadXml(reader)  <br />  If (Not (ds.Tables(T1250B)) Is Nothing) Then  <br />  MyBase.Tables.Add(New T1250BDataTable(ds.Tables(T1250B)))  <br />  End If  <br />  Me.DataSetName = ds.DataSetName  <br />  Me.Prefix = ds.Prefix  <br />  Me.Namespace = ds.Namespace  <br />  Me.Locale = ds.Locale  <br />  Me.CaseSensitive = ds.CaseSensitive  <br />  Me.EnforceConstraints = ds.EnforceConstraints  <br />  Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)  <br />  Me.InitVars  <br />  Else  <br />  Me.ReadXml(reader)  <br />  Me.InitVars  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema  <br />  Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream  <br />  Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))  <br />  stream.Position = 0  <br />  Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Overloads Sub InitVars()  <br />  Me.InitVars(true)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Overloads Sub InitVars(ByVal initTable As Boolean)  <br />  Me.tableT1250B = CType(MyBase.Tables(T1250B),T1250BDataTable)  <br />  If (initTable = true) Then  <br />  If (Not (Me.tableT1250B) Is Nothing) Then  <br />  Me.tableT1250B.InitVars  <br />  End If  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub InitClass()  <br />  Me.DataSetName = mainDataSet  <br />  Me.Prefix =   <br />  Me.Namespace = http://tempuri.org/mainDataSet.xsd  <br />  Me.EnforceConstraints = true  <br />  Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema  <br />  Me.tableT1250B = New T1250BDataTable  <br />  MyBase.Tables.Add(Me.tableT1250B)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function ShouldSerializeT1250B() As Boolean  <br />  Return false  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)  <br />  If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then  <br />  Me.InitVars  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType  <br />  Dim ds As mainDataSet = New mainDataSet  <br />  Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType  <br />  Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence  <br />  Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny  <br />  any.Namespace = ds.Namespace  <br />  sequence.Items.Add(any)  <br />  type.Particle = sequence  <br />  Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable  <br />  If xs.Contains(dsSchema.TargetNamespace) Then  <br />  Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream  <br />  Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream  <br />  Try   <br />  Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing  <br />  dsSchema.Write(s1)  <br />  Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator  <br />  Do While schemas.MoveNext  <br />  schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)  <br />  s2.SetLength(0)  <br />  schema.Write(s2)  <br />  If (s1.Length = s2.Length) Then  <br />  s1.Position = 0  <br />  s2.Position = 0  <br />    <br />  Do While ((s1.Position  s1.Length)    <br />  AndAlso (s1.ReadByte = s2.ReadByte))  <br />    <br />    <br />  Loop  <br />  If (s1.Position = s1.Length) Then  <br />  Return type  <br />  End If  <br />  End If  <br />    <br />  Loop  <br />  Finally  <br />  If (Not (s1) Is Nothing) Then  <br />  s1.Close  <br />  End If  <br />  If (Not (s2) Is Nothing) Then  <br />  s2.Close  <br />  End If  <br />  End Try  <br />  End If  <br />  xs.Add(dsSchema)  <br />  Return type  <br />  End Function  <br />    <br />  Public Delegate Sub T1250BRowChangeEventHandler(ByVal sender As Object, ByVal e As T1250BRowChangeEvent)  <br />    <br />  summary  <br />  Represents the strongly named DataTable class.  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0),    <br />   Global.System.Serializable(),    <br />   Global.System.Xml.Serialization.XmlSchemaProviderAttribute(GetTypedTableSchema)    <br />  Partial Public Class T1250BDataTable  <br />  Inherits Global.System.Data.TypedTableBase(Of T1250BRow)  <br />    <br />  Private columnzup As Global.System.Data.DataColumn  <br />    <br />  Private columnTvrtka As Global.System.Data.DataColumn  <br />    <br />  Private columnOpisbroja As Global.System.Data.DataColumn  <br />    <br />  Private columnBroj As Global.System.Data.DataColumn  <br />    <br />  Private columnPostanskibroj As Global.System.Data.DataColumn  <br />    <br />  Private columnMjesto As Global.System.Data.DataColumn  <br />    <br />  Private columnUlica As Global.System.Data.DataColumn  <br />    <br />  Private columnEmailWeb As Global.System.Data.DataColumn  <br />    <br />  Private columnOpis As Global.System.Data.DataColumn  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub New()  <br />  MyBase.New  <br />  Me.TableName = T1250B  <br />  Me.BeginInit  <br />  Me.InitClass  <br />  Me.EndInit  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Sub New(ByVal table As Global.System.Data.DataTable)  <br />  MyBase.New  <br />  Me.TableName = table.TableName  <br />  If (table.CaseSensitive  table.DataSet.CaseSensitive) Then  <br />  Me.CaseSensitive = table.CaseSensitive  <br />  End If  <br />  If (table.Locale.ToString  table.DataSet.Locale.ToString) Then  <br />  Me.Locale = table.Locale  <br />  End If  <br />  If (table.Namespace  table.DataSet.Namespace) Then  <br />  Me.Namespace = table.Namespace  <br />  End If  <br />  Me.Prefix = table.Prefix  <br />  Me.MinimumCapacity = table.MinimumCapacity  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)  <br />  MyBase.New(info, context)  <br />  Me.InitVars  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property zupColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnzup  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property TvrtkaColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnTvrtka  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property OpisbrojaColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnOpisbroja  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property BrojColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnBroj  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property PostanskibrojColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnPostanskibroj  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property MjestoColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnMjesto  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property UlicaColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnUlica  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property EmailWebColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnEmailWeb  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property OpisColumn() As Global.System.Data.DataColumn  <br />  Get  <br />  Return Me.columnOpis  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Browsable(false)    <br />  Public ReadOnly Property Count() As Integer  <br />  Get  <br />  Return Me.Rows.Count  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Default ReadOnly Property Item(ByVal index As Integer) As T1250BRow  <br />  Get  <br />  Return CType(Me.Rows(index),T1250BRow)  <br />  End Get  <br />  End Property  <br />    <br />  Public Event T1250BRowChanging As T1250BRowChangeEventHandler  <br />    <br />  Public Event T1250BRowChanged As T1250BRowChangeEventHandler  <br />    <br />  Public Event T1250BRowDeleting As T1250BRowChangeEventHandler  <br />    <br />  Public Event T1250BRowDeleted As T1250BRowChangeEventHandler  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Overloads Sub AddT1250BRow(ByVal row As T1250BRow)  <br />  Me.Rows.Add(row)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Overloads Function AddT1250BRow(ByVal zup As String, ByVal Tvrtka As String, ByVal Opisbroja As String, ByVal Broj As String, ByVal Postanskibroj As String, ByVal Mjesto As String, ByVal Ulica As String, ByVal EmailWeb As String, ByVal Opis As String) As T1250BRow  <br />  Dim rowT1250BRow As T1250BRow = CType(Me.NewRow,T1250BRow)  <br />  Dim columnValuesArray() As Object = New Object() {zup, Tvrtka, Opisbroja, Broj, Postanskibroj, Mjesto, Ulica, EmailWeb, Opis}  <br />  rowT1250BRow.ItemArray = columnValuesArray  <br />  Me.Rows.Add(rowT1250BRow)  <br />  Return rowT1250BRow  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Overrides Function Clone() As Global.System.Data.DataTable  <br />  Dim cln As T1250BDataTable = CType(MyBase.Clone,T1250BDataTable)  <br />  cln.InitVars  <br />  Return cln  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function CreateInstance() As Global.System.Data.DataTable  <br />  Return New T1250BDataTable  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Sub InitVars()  <br />  Me.columnzup = MyBase.Columns(zup)  <br />  Me.columnTvrtka = MyBase.Columns(Tvrtka)  <br />  Me.columnOpisbroja = MyBase.Columns(Opisbroja)  <br />  Me.columnBroj = MyBase.Columns(Broj)  <br />  Me.columnPostanskibroj = MyBase.Columns(Postanskibroj)  <br />  Me.columnMjesto = MyBase.Columns(Mjesto)  <br />  Me.columnUlica = MyBase.Columns(Ulica)  <br />  Me.columnEmailWeb = MyBase.Columns(EmailWeb)  <br />  Me.columnOpis = MyBase.Columns(Opis)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub InitClass()  <br />  Me.columnzup = New Global.System.Data.DataColumn(zup, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnzup)  <br />  Me.columnTvrtka = New Global.System.Data.DataColumn(Tvrtka, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnTvrtka)  <br />  Me.columnOpisbroja = New Global.System.Data.DataColumn(Opisbroja, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnOpisbroja)  <br />  Me.columnBroj = New Global.System.Data.DataColumn(Broj, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnBroj)  <br />  Me.columnPostanskibroj = New Global.System.Data.DataColumn(Postanskibroj, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnPostanskibroj)  <br />  Me.columnMjesto = New Global.System.Data.DataColumn(Mjesto, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnMjesto)  <br />  Me.columnUlica = New Global.System.Data.DataColumn(Ulica, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnUlica)  <br />  Me.columnEmailWeb = New Global.System.Data.DataColumn(EmailWeb, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnEmailWeb)  <br />  Me.columnOpis = New Global.System.Data.DataColumn(Opis, GetType(String), Nothing, Global.System.Data.MappingType.Element)  <br />  MyBase.Columns.Add(Me.columnOpis)  <br />  Me.columnzup.MaxLength = 3  <br />  Me.columnTvrtka.MaxLength = 95  <br />  Me.columnOpisbroja.MaxLength = 120  <br />  Me.columnBroj.MaxLength = 15  <br />  Me.columnPostanskibroj.MaxLength = 5  <br />  Me.columnMjesto.MaxLength = 24  <br />  Me.columnUlica.MaxLength = 45  <br />  Me.columnEmailWeb.MaxLength = 40  <br />  Me.columnOpis.MaxLength = 12  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function NewT1250BRow() As T1250BRow  <br />  Return CType(Me.NewRow,T1250BRow)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow  <br />  Return New T1250BRow(builder)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Function GetRowType() As Global.System.Type  <br />  Return GetType(T1250BRow)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)  <br />  MyBase.OnRowChanged(e)  <br />  If (Not (Me.T1250BRowChangedEvent) Is Nothing) Then  <br />  RaiseEvent T1250BRowChanged(Me, New T1250BRowChangeEvent(CType(e.Row,T1250BRow), e.Action))  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)  <br />  MyBase.OnRowChanging(e)  <br />  If (Not (Me.T1250BRowChangingEvent) Is Nothing) Then  <br />  RaiseEvent T1250BRowChanging(Me, New T1250BRowChangeEvent(CType(e.Row,T1250BRow), e.Action))  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)  <br />  MyBase.OnRowDeleted(e)  <br />  If (Not (Me.T1250BRowDeletedEvent) Is Nothing) Then  <br />  RaiseEvent T1250BRowDeleted(Me, New T1250BRowChangeEvent(CType(e.Row,T1250BRow), e.Action))  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)  <br />  MyBase.OnRowDeleting(e)  <br />  If (Not (Me.T1250BRowDeletingEvent) Is Nothing) Then  <br />  RaiseEvent T1250BRowDeleting(Me, New T1250BRowChangeEvent(CType(e.Row,T1250BRow), e.Action))  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub RemoveT1250BRow(ByVal row As T1250BRow)  <br />  Me.Rows.Remove(row)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType  <br />  Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType  <br />  Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence  <br />  Dim ds As mainDataSet = New mainDataSet  <br />  Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny  <br />  any1.Namespace = http://www.w3.org/2001/XMLSchema  <br />  any1.MinOccurs = New Decimal(0)  <br />  any1.MaxOccurs = Decimal.MaxValue  <br />  any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax  <br />  sequence.Items.Add(any1)  <br />  Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny  <br />  any2.Namespace = urn:schemas-microsoft-com:xml-diffgram-v1  <br />  any2.MinOccurs = New Decimal(1)  <br />  any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax  <br />  sequence.Items.Add(any2)  <br />  Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute  <br />  attribute1.Name = namespace  <br />  attribute1.FixedValue = ds.Namespace  <br />  type.Attributes.Add(attribute1)  <br />  Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute  <br />  attribute2.Name = tableTypeName  <br />  attribute2.FixedValue = T1250BDataTable  <br />  type.Attributes.Add(attribute2)  <br />  type.Particle = sequence  <br />  Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable  <br />  If xs.Contains(dsSchema.TargetNamespace) Then  <br />  Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream  <br />  Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream  <br />  Try   <br />  Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing  <br />  dsSchema.Write(s1)  <br />  Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator  <br />  Do While schemas.MoveNext  <br />  schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)  <br />  s2.SetLength(0)  <br />  schema.Write(s2)  <br />  If (s1.Length = s2.Length) Then  <br />  s1.Position = 0  <br />  s2.Position = 0  <br />    <br />  Do While ((s1.Position  s1.Length)    <br />  AndAlso (s1.ReadByte = s2.ReadByte))  <br />    <br />    <br />  Loop  <br />  If (s1.Position = s1.Length) Then  <br />  Return type  <br />  End If  <br />  End If  <br />    <br />  Loop  <br />  Finally  <br />  If (Not (s1) Is Nothing) Then  <br />  s1.Close  <br />  End If  <br />  If (Not (s2) Is Nothing) Then  <br />  s2.Close  <br />  End If  <br />  End Try  <br />  End If  <br />  xs.Add(dsSchema)  <br />  Return type  <br />  End Function  <br />  End Class  <br />    <br />  summary  <br />  Represents strongly named DataRow class.  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0)    <br />  Partial Public Class T1250BRow  <br />  Inherits Global.System.Data.DataRow  <br />    <br />  Private tableT1250B As T1250BDataTable  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)  <br />  MyBase.New(rb)  <br />  Me.tableT1250B = CType(Me.Table,T1250BDataTable)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property zup() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.zupColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column zup in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.zupColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Tvrtka() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.TvrtkaColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Tvrtka in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.TvrtkaColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Opisbroja() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.OpisbrojaColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Opisbroja in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.OpisbrojaColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Broj() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.BrojColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Broj in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.BrojColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Postanskibroj() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.PostanskibrojColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Postanskibroj in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.PostanskibrojColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Mjesto() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.MjestoColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Mjesto in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.MjestoColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Ulica() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.UlicaColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Ulica in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.UlicaColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property EmailWeb() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.EmailWebColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column EmailWeb in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.EmailWebColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property Opis() As String  <br />  Get  <br />  Try   <br />  Return CType(Me(Me.tableT1250B.OpisColumn),String)  <br />  Catch e As Global.System.InvalidCastException  <br />  Throw New Global.System.Data.StrongTypingException(The value for column Opis in table T1250B is DBNull., e)  <br />  End Try  <br />  End Get  <br />  Set  <br />  Me(Me.tableT1250B.OpisColumn) = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IszupNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.zupColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetzupNull()  <br />  Me(Me.tableT1250B.zupColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsTvrtkaNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.TvrtkaColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetTvrtkaNull()  <br />  Me(Me.tableT1250B.TvrtkaColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsOpisbrojaNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.OpisbrojaColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetOpisbrojaNull()  <br />  Me(Me.tableT1250B.OpisbrojaColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsBrojNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.BrojColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetBrojNull()  <br />  Me(Me.tableT1250B.BrojColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsPostanskibrojNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.PostanskibrojColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetPostanskibrojNull()  <br />  Me(Me.tableT1250B.PostanskibrojColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsMjestoNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.MjestoColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetMjestoNull()  <br />  Me(Me.tableT1250B.MjestoColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsUlicaNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.UlicaColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetUlicaNull()  <br />  Me(Me.tableT1250B.UlicaColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsEmailWebNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.EmailWebColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetEmailWebNull()  <br />  Me(Me.tableT1250B.EmailWebColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function IsOpisNull() As Boolean  <br />  Return Me.IsNull(Me.tableT1250B.OpisColumn)  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub SetOpisNull()  <br />  Me(Me.tableT1250B.OpisColumn) = Global.System.Convert.DBNull  <br />  End Sub  <br />  End Class  <br />    <br />  summary  <br />  Row event argument class  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0)    <br />  Public Class T1250BRowChangeEvent  <br />  Inherits Global.System.EventArgs  <br />    <br />  Private eventRow As T1250BRow  <br />    <br />  Private eventAction As Global.System.Data.DataRowAction  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub New(ByVal row As T1250BRow, ByVal action As Global.System.Data.DataRowAction)  <br />  MyBase.New  <br />  Me.eventRow = row  <br />  Me.eventAction = action  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property Row() As T1250BRow  <br />  Get  <br />  Return Me.eventRow  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public ReadOnly Property Action() As Global.System.Data.DataRowAction  <br />  Get  <br />  Return Me.eventAction  <br />  End Get  <br />  End Property  <br />  End Class  <br />  End Class  <br />    <br />  Namespace mainDataSetTableAdapters  <br />    <br />  summary  <br />  Represents the connection and commands used to retrieve and save data.  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0),    <br />   Global.System.ComponentModel.DesignerCategoryAttribute(code),    <br />   Global.System.ComponentModel.ToolboxItem(true),    <br />   Global.System.ComponentModel.DataObjectAttribute(true),    <br />   Global.System.ComponentModel.DesignerAttribute(Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner&amp;    <br />  , Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter)    <br />  Partial Public Class T1250BTableAdapter  <br />  Inherits Global.System.ComponentModel.Component  <br />    <br />  Private WithEvents adapter As Global.System.Data.OleDb.OleDbDataAdapter  <br />    <br />  Private connection As Global.System.Data.OleDb.OleDbConnection  <br />    <br />  Private transaction As Global.System.Data.OleDb.OleDbTransaction  <br />    <br />  Private commandCollection() As Global.System.Data.OleDb.OleDbCommand  <br />    <br />  Private clearBeforeFill As Boolean  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Sub New()  <br />  MyBase.New  <br />  Me.ClearBeforeFill = true  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter  <br />  Get  <br />  If (Me.adapter Is Nothing) Then  <br />  Me.InitAdapter  <br />  End If  <br />  Return Me.adapter  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection  <br />  Get  <br />  If (Me.connection Is Nothing) Then  <br />  Me.InitConnection  <br />  End If  <br />  Return Me.connection  <br />  End Get  <br />  Set  <br />  Me.connection = value  <br />  If (Not (Me.Adapter.InsertCommand) Is Nothing) Then  <br />  Me.Adapter.InsertCommand.Connection = value  <br />  End If  <br />  If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then  <br />  Me.Adapter.DeleteCommand.Connection = value  <br />  End If  <br />  If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then  <br />  Me.Adapter.UpdateCommand.Connection = value  <br />  End If  <br />  Dim i As Integer = 0  <br />  Do While (i  Me.CommandCollection.Length)  <br />  If (Not (Me.CommandCollection(i)) Is Nothing) Then  <br />  CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value  <br />  End If  <br />  i = (i + 1)  <br />  Loop  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction  <br />  Get  <br />  Return Me.transaction  <br />  End Get  <br />  Set  <br />  Me.transaction = value  <br />  Dim i As Integer = 0  <br />  Do While (i  Me.CommandCollection.Length)  <br />  Me.CommandCollection(i).Transaction = Me.transaction  <br />  i = (i + 1)  <br />  Loop  <br />  If ((Not (Me.Adapter) Is Nothing)    <br />  AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then  <br />  Me.Adapter.DeleteCommand.Transaction = Me.transaction  <br />  End If  <br />  If ((Not (Me.Adapter) Is Nothing)    <br />  AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then  <br />  Me.Adapter.InsertCommand.Transaction = Me.transaction  <br />  End If  <br />  If ((Not (Me.Adapter) Is Nothing)    <br />  AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then  <br />  Me.Adapter.UpdateCommand.Transaction = Me.transaction  <br />  End If  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()  <br />  Get  <br />  If (Me.commandCollection Is Nothing) Then  <br />  Me.InitCommandCollection  <br />  End If  <br />  Return Me.commandCollection  <br />  End Get  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property ClearBeforeFill() As Boolean  <br />  Get  <br />  Return Me.clearBeforeFill  <br />  End Get  <br />  Set  <br />  Me.clearBeforeFill = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub InitAdapter()  <br />  Me.adapter = New Global.System.Data.OleDb.OleDbDataAdapter  <br />  Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping  <br />  tableMapping.SourceTable = Table  <br />  tableMapping.DataSetTable = T1250B  <br />  tableMapping.ColumnMappings.Add(zup, zup)  <br />  tableMapping.ColumnMappings.Add(Tvrtka, Tvrtka)  <br />  tableMapping.ColumnMappings.Add(Opisbroja, Opisbroja)  <br />  tableMapping.ColumnMappings.Add(Broj, Broj)  <br />  tableMapping.ColumnMappings.Add(Postanskibroj, Postanskibroj)  <br />  tableMapping.ColumnMappings.Add(Mjesto, Mjesto)  <br />  tableMapping.ColumnMappings.Add(Ulica, Ulica)  <br />  tableMapping.ColumnMappings.Add(EmailWeb, EmailWeb)  <br />  tableMapping.ColumnMappings.Add(Opis, Opis)  <br />  Me.adapter.TableMappings.Add(tableMapping)  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub InitConnection()  <br />  Me.connection = New Global.System.Data.OleDb.OleDbConnection  <br />  Me.connection.ConnectionString = Global.exe.My.MySettings.Default.conn  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Sub InitCommandCollection()  <br />  Me.commandCollection = New Global.System.Data.OleDb.OleDbCommand(4) {}  <br />  Me.commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand  <br />  Me.commandCollection(0).Connection = Me.Connection  <br />  Me.commandCollection(0).CommandText = SELECT * FROM T1250B  <br />  Me.commandCollection(0).CommandType = Global.System.Data.CommandType.Text  <br />  Me.commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand  <br />  Me.commandCollection(1).Connection = Me.Connection  <br />  Me.commandCollection(1).CommandText = SELECT DISTINCT Mjesto FROM T1250B  <br />  Me.commandCollection(1).CommandType = Global.System.Data.CommandType.Text  <br />  Me.commandCollection(2) = New Global.System.Data.OleDb.OleDbCommand  <br />  Me.commandCollection(2).Connection = Me.Connection  <br />  Me.commandCollection(2).CommandText = SELECT * FROM T1250B WHERE Tvrtka=? AND zup=?  <br />  Me.commandCollection(2).CommandType = Global.System.Data.CommandType.Text  <br />  Me.commandCollection(2).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter(Tvrtka, Global.System.Data.OleDb.OleDbType.WChar, 95, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), Tvrtka, Global.System.Data.DataRowVersion.Current, false, Nothing))  <br />  Me.commandCollection(2).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter(zup, Global.System.Data.OleDb.OleDbType.WChar, 3, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), zup, Global.System.Data.DataRowVersion.Current, false, Nothing))  <br />  Me.commandCollection(3) = New Global.System.Data.OleDb.OleDbCommand  <br />  Me.commandCollection(3).Connection = Me.Connection  <br />  Me.commandCollection(3).CommandText = SELECT DISTINCT zup FROM  T1250B&amp;Global.Microsoft.VisualBasic.ChrW(13)&amp;Global.Microsoft.VisualBasic.ChrW(10)  <br />  Me.commandCollection(3).CommandType = Global.System.Data.CommandType.Text  <br />  Me.commandCollection(4) = New Global.System.Data.OleDb.OleDbCommand  <br />  Me.commandCollection(4).Connection = Me.Connection  <br />  Me.commandCollection(4).CommandText = SELECT DISTINCT  Tvrtka, zup  FROM T1250B WHERE (zup = ?)  <br />  Me.commandCollection(4).CommandType = Global.System.Data.CommandType.Text  <br />  Me.commandCollection(4).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter(zup, Global.System.Data.OleDb.OleDbType.WChar, 3, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), zup, Global.System.Data.DataRowVersion.Current, false, Nothing))  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)    <br />  Public Overloads Overridable Function Tdarko(ByVal dataTable As mainDataSet.T1250BDataTable) As Integer  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(0)  <br />  If (Me.ClearBeforeFill = true) Then  <br />  dataTable.Clear  <br />  End If  <br />  Dim returnValue As Integer = Me.Adapter.Fill(dataTable)  <br />  Return returnValue  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)    <br />  Public Overloads Overridable Function GetData() As mainDataSet.T1250BDataTable  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(0)  <br />  Dim dataTable As mainDataSet.T1250BDataTable = New mainDataSet.T1250BDataTable  <br />  Me.Adapter.Fill(dataTable)  <br />  Return dataTable  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)    <br />  Public Overloads Overridable Function FillByMjesto(ByVal dataTable As mainDataSet.T1250BDataTable) As Integer  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(1)  <br />  If (Me.ClearBeforeFill = true) Then  <br />  dataTable.Clear  <br />  End If  <br />  Dim returnValue As Integer = Me.Adapter.Fill(dataTable)  <br />  Return returnValue  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)    <br />  Public Overloads Overridable Function FillByTvrtka(ByVal dataTable As mainDataSet.T1250BDataTable, ByVal Tvrtka As String, ByVal zup As String) As Integer  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(2)  <br />  If (Tvrtka Is Nothing) Then  <br />  Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value  <br />  Else  <br />  Me.Adapter.SelectCommand.Parameters(0).Value = CType(Tvrtka,String)  <br />  End If  <br />  If (zup Is Nothing) Then  <br />  Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value  <br />  Else  <br />  Me.Adapter.SelectCommand.Parameters(1).Value = CType(zup,String)  <br />  End If  <br />  If (Me.ClearBeforeFill = true) Then  <br />  dataTable.Clear  <br />  End If  <br />  Dim returnValue As Integer = Me.Adapter.Fill(dataTable)  <br />  Return returnValue  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)    <br />  Public Overloads Overridable Function FillByZupanije(ByVal dataTable As mainDataSet.T1250BDataTable) As Integer  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(3)  <br />  If (Me.ClearBeforeFill = true) Then  <br />  dataTable.Clear  <br />  End If  <br />  Dim returnValue As Integer = Me.Adapter.Fill(dataTable)  <br />  Return returnValue  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapter),    <br />   Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)    <br />  Public Overloads Overridable Function Tvrtka(ByVal dataTable As mainDataSet.T1250BDataTable, ByVal zup As String) As Integer  <br />  Me.Adapter.SelectCommand = Me.CommandCollection(4)  <br />  If (zup Is Nothing) Then  <br />  Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value  <br />  Else  <br />  Me.Adapter.SelectCommand.Parameters(0).Value = CType(zup,String)  <br />  End If  <br />  If (Me.ClearBeforeFill = true) Then  <br />  dataTable.Clear  <br />  End If  <br />  Dim returnValue As Integer = Me.Adapter.Fill(dataTable)  <br />  Return returnValue  <br />  End Function  <br />  End Class  <br />    <br />  summary  <br />  TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0),    <br />   Global.System.ComponentModel.DesignerCategoryAttribute(code),    <br />   Global.System.ComponentModel.ToolboxItem(true),    <br />   Global.System.ComponentModel.DesignerAttribute(Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD&amp;    <br />  esigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a),    <br />   Global.System.ComponentModel.Design.HelpKeywordAttribute(vs.data.TableAdapterManager)    <br />  Partial Public Class TableAdapterManager  <br />  Inherits Global.System.ComponentModel.Component  <br />    <br />  Private updateOrder As UpdateOrderOption  <br />    <br />  Private backupDataSetBeforeUpdate As Boolean  <br />    <br />  Private connection As Global.System.Data.IDbConnection  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property UpdateOrder() As UpdateOrderOption  <br />  Get  <br />  Return Me.updateOrder  <br />  End Get  <br />  Set  <br />  Me.updateOrder = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Property BackupDataSetBeforeUpdate() As Boolean  <br />  Get  <br />  Return Me.backupDataSetBeforeUpdate  <br />  End Get  <br />  Set  <br />  Me.backupDataSetBeforeUpdate = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Browsable(false)    <br />  Public Property Connection() As Global.System.Data.IDbConnection  <br />  Get  <br />  If (Not (Me.connection) Is Nothing) Then  <br />  Return Me.connection  <br />  End If  <br />  Return Nothing  <br />  End Get  <br />  Set  <br />  Me.connection = value  <br />  End Set  <br />  End Property  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),    <br />   Global.System.ComponentModel.Browsable(false)    <br />  Public ReadOnly Property TableAdapterInstanceCount() As Integer  <br />  Get  <br />  Dim count As Integer = 0  <br />  Return count  <br />  End Get  <br />  End Property  <br />    <br />  summary  <br />  Update rows in top-down order.  <br />  /summary  <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function UpdateUpdatedRows(ByVal dataSet As mainDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer  <br />  Dim result As Integer = 0  <br />  Return result  <br />  End Function  <br />    <br />  summary  <br />  Insert rows in top-down order.  <br />  /summary  <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function UpdateInsertedRows(ByVal dataSet As mainDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer  <br />  Dim result As Integer = 0  <br />  Return result  <br />  End Function  <br />    <br />  summary  <br />  Delete rows in bottom-up order.  <br />  /summary  <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function UpdateDeletedRows(ByVal dataSet As mainDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer  <br />  Dim result As Integer = 0  <br />  Return result  <br />  End Function  <br />    <br />  summary  <br />  Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first  <br />  /summary  <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()  <br />  If ((updatedRows Is Nothing)    <br />  OrElse (updatedRows.Length  1)) Then  <br />  Return updatedRows  <br />  End If  <br />  If ((allAddedRows Is Nothing)    <br />  OrElse (allAddedRows.Count  1)) Then  <br />  Return updatedRows  <br />  End If  <br />  Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)  <br />  Dim i As Integer = 0  <br />  Do While (i  updatedRows.Length)  <br />  Dim row As Global.System.Data.DataRow = updatedRows(i)  <br />  If (allAddedRows.Contains(row) = false) Then  <br />  realUpdatedRows.Add(row)  <br />  End If  <br />  i = (i + 1)  <br />  Loop  <br />  Return realUpdatedRows.ToArray  <br />  End Function  <br />    <br />  summary  <br />  Update all changes to the dataset.  <br />  /summary  <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Overridable Function UpdateAll(ByVal dataSet As mainDataSet) As Integer  <br />  If (dataSet Is Nothing) Then  <br />  Throw New Global.System.ArgumentNullException(dataSet)  <br />  End If  <br />  If (dataSet.HasChanges = false) Then  <br />  Return 0  <br />  End If  <br />  Dim workConnection As Global.System.Data.IDbConnection = Me.Connection  <br />  If (workConnection Is Nothing) Then  <br />  Throw New Global.System.ApplicationException(TableAdapterManager contains no connection information. Set each TableAdapterMana&amp;    <br />  ger TableAdapter property to a valid TableAdapter instance.)  <br />  End If  <br />  Dim workConnOpened As Boolean = false  <br />  If ((workConnection.State And Global.System.Data.ConnectionState.Closed)    <br />  = Global.System.Data.ConnectionState.Closed) Then  <br />  workConnection.Open  <br />  workConnOpened = true  <br />  End If  <br />  Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction  <br />  If (workTransaction Is Nothing) Then  <br />  Throw New Global.System.ApplicationException(The transaction cannot begin. The current data connection does not support transa&amp;    <br />  ctions or the current state is not allowing the transaction to begin.)  <br />  End If  <br />  Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)  <br />  Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)  <br />  Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)  <br />  Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)  <br />  Dim result As Integer = 0  <br />  Dim backupDataSet As Global.System.Data.DataSet = Nothing  <br />  If Me.BackupDataSetBeforeUpdate Then  <br />  backupDataSet = New Global.System.Data.DataSet  <br />  backupDataSet.Merge(dataSet)  <br />  End If  <br />  Try   <br />  ---- Prepare for update -----------  <br />    <br />    <br />  ---- Perform updates -----------  <br />    <br />  If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then  <br />  result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))  <br />  result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))  <br />  Else  <br />  result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))  <br />  result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))  <br />  End If  <br />  result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))  <br />    <br />  ---- Commit updates -----------  <br />    <br />  workTransaction.Commit  <br />  If (0  allAddedRows.Count) Then  <br />  Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow  <br />  allAddedRows.CopyTo(rows)  <br />  Dim i As Integer = 0  <br />  Do While (i  rows.Length)  <br />  Dim row As Global.System.Data.DataRow = rows(i)  <br />  row.AcceptChanges  <br />  i = (i + 1)  <br />  Loop  <br />  End If  <br />  If (0  allChangedRows.Count) Then  <br />  Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow  <br />  allChangedRows.CopyTo(rows)  <br />  Dim i As Integer = 0  <br />  Do While (i  rows.Length)  <br />  Dim row As Global.System.Data.DataRow = rows(i)  <br />  row.AcceptChanges  <br />  i = (i + 1)  <br />  Loop  <br />  End If  <br />  Catch ex As Global.System.Exception  <br />  workTransaction.Rollback  <br />  ---- Restore the dataset -----------  <br />  If Me.BackupDataSetBeforeUpdate Then  <br />  Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))  <br />  dataSet.Clear  <br />  dataSet.Merge(backupDataSet)  <br />  Else  <br />  If (0  allAddedRows.Count) Then  <br />  Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow  <br />  allAddedRows.CopyTo(rows)  <br />  Dim i As Integer = 0  <br />  Do While (i  rows.Length)  <br />  Dim row As Global.System.Data.DataRow = rows(i)  <br />  row.AcceptChanges  <br />  row.SetAdded  <br />  i = (i + 1)  <br />  Loop  <br />  End If  <br />  End If  <br />  Throw ex  <br />  Finally  <br />  If workConnOpened Then  <br />  workConnection.Close  <br />  End If  <br />  If (0  adaptersWithAcceptChangesDuringUpdate.Count) Then  <br />  Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter  <br />  adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)  <br />  Dim i As Integer = 0  <br />  Do While (i  adapters.Length)  <br />  Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)  <br />  adapter.AcceptChangesDuringUpdate = true  <br />  i = (i + 1)  <br />  Loop  <br />  End If  <br />  End Try  <br />  Return result  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)  <br />  Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean  <br />  If (Not (Me.connection) Is Nothing) Then  <br />  Return true  <br />  End If  <br />  If ((Me.Connection Is Nothing)    <br />  OrElse (inputConnection Is Nothing)) Then  <br />  Return true  <br />  End If  <br />  If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then  <br />  Return true  <br />  End If  <br />  Return false  <br />  End Function  <br />    <br />  summary  <br />  Update Order Option  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0)    <br />  Public Enum UpdateOrderOption  <br />    <br />  InsertUpdateDelete = 0  <br />    <br />  UpdateInsertDelete = 1  <br />  End Enum  <br />    <br />  summary  <br />  Used to sort self-referenced tables rows  <br />  /summary  <br />  Global.System.CodeDom.Compiler.GeneratedCodeAttribute(System.Data.Design.TypedDataSetGenerator, 2.0.0.0)    <br />  Private Class SelfReferenceComparer  <br />  Inherits Object  <br />  Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)  <br />    <br />  Private relation As Global.System.Data.DataRelation  <br />    <br />  Private childFirst As Integer  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)  <br />  MyBase.New  <br />  Me.relation = relation  <br />  If childFirst Then  <br />  Me.childFirst = -1  <br />  Else  <br />  Me.childFirst = 1  <br />  End If  <br />  End Sub  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Private Function IsChildAndParent(ByVal child As Global.System.Data.DataRow, ByVal parent As Global.System.Data.DataRow) As Boolean  <br />  Global.System.Diagnostics.Debug.Assert((Not (child) Is Nothing))  <br />  Global.System.Diagnostics.Debug.Assert((Not (parent) Is Nothing))  <br />  Dim newParent As Global.System.Data.DataRow = child.GetParentRow(Me.relation, Global.System.Data.DataRowVersion.[Default])  <br />    <br />  Do While ((Not (newParent) Is Nothing)    <br />  AndAlso ((Object.ReferenceEquals(newParent, child) = false)    <br />  AndAlso (Object.ReferenceEquals(newParent, parent) = false)))  <br />  newParent = newParent.GetParentRow(Me.relation, Global.System.Data.DataRowVersion.[Default])  <br />    <br />  Loop  <br />  If (newParent Is Nothing) Then  <br />  newParent = child.GetParentRow(Me.relation, Global.System.Data.DataRowVersion.Original)  <br />  Do While ((Not (newParent) Is Nothing)    <br />  AndAlso ((Object.ReferenceEquals(newParent, child) = false)    <br />  AndAlso (Object.ReferenceEquals(newParent, parent) = false)))  <br />  newParent = newParent.GetParentRow(Me.relation, Global.System.Data.DataRowVersion.Original)  <br />    <br />  Loop  <br />  End If  <br />  If Object.ReferenceEquals(newParent, parent) Then  <br />  Return true  <br />  End If  <br />  Return false  <br />  End Function  <br />    <br />  Global.System.Diagnostics.DebuggerNonUserCodeAttribute()    <br />  Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare  <br />  If Object.ReferenceEquals(row1, row2) Then  <br />  Return 0  <br />  End If  <br />  If (row1 Is Nothing) Then  <br />  Return -1  <br />  End If  <br />  If (row2 Is Nothing) Then  <br />  Return 1  <br />  End If  <br />    <br />  Is row1 the child or grandchild of row2  <br />  If Me.IsChildAndParent(row1, row2) Then  <br />  Return Me.childFirst  <br />  End If  <br />    <br />  Is row2 the child or grandchild of row1  <br />  If Me.IsChildAndParent(row2, row1) Then  <br />  Return (-1 * Me.childFirst)  <br />  End If  <br />  Return 0  <br />  End Function  <br />  End Class  <br />  End Class  <br />  End Namespace"


			preload_image = new Image()
			preload_image.src="img/center.jpg"
			preload_image.src="img/thumb.png"
			preload_image.src="img/thumba.png"
			preload_image.src="img/big.png"
// animacija naslovnice---------------------------------------------------------------------------------	
		
   function LoadScrap(){
	   		document.getElementById('text').innerHTML="<p>"+scrap+"</p>"
			document.getElementById('textb').innerHTML="<p>"+scrap+"</p>"
			document.getElementById('texta').innerHTML="<p>"+scrap+"</p>"
	   }		
		
		
		
	function show(el){
		 document.getElementById(el).style.visibility="visible"
		 //document.getElementById('a').style.overflow="hidden;"
		 }
	
	
	function hide(el){
		 document.getElementById(el).style.visibility="hidden"
		 //document.getElementById('a').style.overflow="auto;"
		 }
		
		
	function moveTop(){
		maginx=maginx-5;
		negativ=negativ+5;
		if (maginx<=20){show('text');show('texta');show('textb');GoText();return}
		document.getElementById('tl').style.margin="25px "+maginx+"px 0px";
		document.getElementById('tr').style.margin="25px "+negativ+"px 0px";
		
		timer=setTimeout("moveTop()",2);
		}

// thumbovi naslovnice---------------------------------------------------------------------------------	
	function imgGet(el){
		//document.getElementById(el).style.backgroundImage="url(img/thumb_over.png)";
		titraj(el)
		}
	function imgBack(el){
		//document.getElementById(el).style.backgroundImage="url(img/thumb.png)";
		}
		
		
		
		
	function moveBacka(){
		maginx=maginx-5;
		negativ=negativ+5;
		topMrgin=topMrgin-5;
		if (maginx<=20){maginx=250;negativ=250;moveTop();return}
		//else{
		document.getElementById('br').style.margin="250px "+maginx+"px 0px";
		document.getElementById('bl').style.margin="250px "+negativ+"px 0px";
		document.getElementById('tl').style.margin=topMrgin+"px 250px 0px";
		document.getElementById('tc').style.margin=topMrgin+"px 250px 0px";
		document.getElementById('tr').style.margin=topMrgin+"px 250px 0px";//}
		timer=setTimeout("moveBacka()",2);
		}

	
	 function titraj(el){
		 var levo=document.getElementById(el);
		 var gore=document.getElementById(el).style.marginTop;
		 for (var i=1;i==20;i++)
		 levo.style.marginLeft=i+"px"
		 }
		 
	function first(){
		var trena=document.getElementById('texta').scrollTop
			document.getElementById('text').scrollTop-=scrollStep
			document.getElementById('textb').scrollTop-=scrollStep
			document.getElementById('texta').scrollTop+=scrollStep+2
			if (trena>2000){dal=false; }
		}
	function second(){
		var tren=document.getElementById('texta').scrollTop
			document.getElementById('text').scrollTop+=scrollStep
			document.getElementById('textb').scrollTop+=scrollStep
			document.getElementById('texta').scrollTop-=scrollStep+2
			if (tren<10){dal=true; }
		}

 	function GoText(){
		//alert (tren)
		if (dal==false){second();}
		else {first();}
	 	timertxt=setTimeout("GoText()",2);
		 }
		 
	function down(){
		var kolikoTx = document.getElementById('texta').scrollHeight
		document.getElementById('texta').scrollTop=kolikoTx
		document.getElementById('textb').scrollTop=100
		 }
	
	function FillCont(v){
        clearTimeout (timertxt)
		document.getElementById('innerCont').innerHTML=content[v]
		dalmeni=true
		swfobject.embedSWF("media/Carousel.swf", "carousel1", "690", "330", "9.0.0", false, {xmlfile:"media/default.xml", loaderColor:"0x666666"}, {wmode: "transparent", allowScriptAccess: "always"});
		//$(function(){
			//function getPage(b){
		   //$.prettyPhoto.open("inc/opis.asp?op="+b+"&iframe=true&width=455&height=455");//}
		  $("a[rel^='prettyPhoto']").prettyPhoto({theme:'facebook'})//
		  // });
		 }
function getPage(b){
		   $.prettyPhoto.open("inc/opis.asp?op="+b+"&iframe=true&width=455&height=455");
		   }
		 
	function MoveLeft(i){
    
	  if (leve<gdje*i){
		document.getElementById('innerCont').scrollLeft+=35
		timermov=setTimeout("MoveLeft("+i+")", 5);leve++}
		else if (leve>=gdje*i){clearTimeout(timermov);leve=0;MeniHide();pozicija=pozicija+i;return ;}
		 }
		 
	function MoveRight(i){

	   if (leve<gdje*i){
		document.getElementById('innerCont').scrollLeft-=35
		timermov=setTimeout("MoveRight("+i+")", 5);leve++}
		else if (leve>=gdje*i){clearTimeout(timermov);leve=0;MeniHide();pozicija=pozicija-i;return ;}
		 }
		 
	function Meni(){
		var scnWida
			if (self.innerHeight) // all except Explorer
			{
				scnWida = self.innerWidth;
				scnWida =scnWida/2	
				document.getElementById('meni').style.marginLeft=scnWida-100+"px"	
				document.getElementById('meni').style.marginTop="175px"
			}
/*		   if (document.documentElement && document.documentElement.clientHeight)
				// Explorer 6 Strict Mode
			{	
				scnWida = document.documentElement.clientWidth;
				scnWida =scnWida/2
				document.getElementById('meni').style.marginLeft=scnWida-600+"px" ;
			}*/
			else if (document.body) // other Explorers
			{
			scnWida = document.body.clientWidth;
			scnWida =scnWida/2
			document.getElementById('meni').style.marginLeft=scnWida-100+"px" ;
			document.getElementById('meni').style.marginTop="175px"
			}
			document.getElementById('meni').style.visibility="visible"
		
		 }
		 
	function MeniHide(){
		document.getElementById('meni').style.visibility="hidden"
		 }
	function MeniGo(i){
		var tmp
         if (pozicija<i){tmp=i-pozicija;MoveLeft(tmp)}
		 else if (pozicija==i){return;}
		 else if (pozicija>i ){tmp=pozicija-i;MoveRight(tmp)}
		 }		 
		
  function PokaziKartu(){
	var scnWid, scHigh
			if (self.innerHeight) // all except Explorer
			{
				scnWid = self.innerWidth;
				scnWid =scnWid/2-210
				document.getElementById('karta').style.marginTop=90+"px";
				document.getElementById('karta').style.marginLeft=scnWid+"px";
				document.getElementById('karta').style.visibility="visible"
			}
/*			else if (document.documentElement && document.documentElement.clientHeight)
				// Explorer 6 Strict Mode
			{
				
				scnWid = document.documentElement.clientWidth;
				scnWid =scnWid/2
				document.getElementById('karta').style.marginLeft=scnWid-570+"px";
				document.getElementById('karta').style.visibility="visible"

			}*/
			else if (document.body) // other Explorers
			{
				
				scnWid = document.body.clientWidth;
				scnWid =scnWid/2-210
				document.getElementById('karta').style.marginTop=90+"px";
				document.getElementById('karta').style.marginLeft=scnWid+"px";
				document.getElementById('karta').style.visibility="visible"
				
				
			}


	}
	function hideBrContext(){
		return false;
		}
	
	function show_coords(event){	
	var m=document.getElementById('meni')	
		var scnWid, scHigh
		x=event.clientX;
		y=event.clientY;
			if (self.innerHeight) // all except Explorer
			{scnWid = self.innerWidth;
			 scHigh = self.innerHeight;}
			else if (document.body) // other Explorers
			{scnWid = document.body.clientWidth
			 scHigh = document.body.clientHeight
			 scnWid=scnWid-300}
			 
		

		if  (event.button==2 && dalmeni==true){	
		if (y>scHigh-200){m.style.marginTop=y-200+"px"}
			else {m.style.marginTop=y-20+"px"}
		
		
			if (x<100){m.style.marginLeft=x+"px";}
			else if (x>scnWid-200){m.style.marginLeft=x-203+"px"}
			else {m.style.marginLeft=x-100+"px"}
		m.style.visibility="visible"}
	}
	
	function jezik(){
	var men=document.getElementById('meni')
	var jez=document.getElementById('jezik')
		if (jez.innerHTML=='English'){
			FillCont('2'); 
			jez.innerHTML='Croatian';
			men.innerHTML=content[4];}
																		
		else {FillCont('1'); 
			 jez.innerHTML='English';
			 men.innerHTML=content[5];
			 }
			 
		}
		

	var timer
	var pausa=0
	function SakriMeni(pause){
	pausa++
	if (pausa>pause){MeniHide(); return} 
	timer=setTimeout("SakriMeni("+pause+")", 500)
	}
	function stej(){
	//
	clearTimeout (timer)
	pausa=0
	}
	function web(k){
	document.getElementById("gal").src="img/ilu/w"+k+".jpg"	
		}
	function webOut(){
	document.getElementById("gal").src="img/ilu/3.jpg"	
		}
		
var nza=false
var r= 0
var g= 0
var b= 0
var con=256;
//var div = 
		function grow(){
		var el = document.getElementById('innerCont')
		if (r<con){el.style.backgroundColor='rgb('+r+',0,0)';r++}
		if (r>255){el.style.backgroundColor='rgb('+r+','+b+',0)';b++;}
		if (b>255){el.style.backgroundColor='rgb('+r+','+b+','+g+')';g++;}
		if (g>255){el.setAttribute("onmousemove","shrink()");}}
		
		function shrink(){
		var el = document.getElementById('cont')
		if (r>0){el.style.backgroundColor='rgb('+r+',255,255)';r--}
		if (r==0 && b>0){el.style.backgroundColor='rgb('+r+','+b+',255)';b--;}
		if (b==0){el.style.backgroundColor='rgb('+r+','+b+','+g+')';g--;}
		if (g==0){el.setAttribute("onmousemove","grow()");}
		}
$("a[rel^='prettyPhoto']").prettyPhoto({theme:'facebook'})