Const CANCEL_URL = "cancel.php"

	Const NONE_INSTALLED_URL = "not_found.php"

	Const INIT_ERROR_URL = "error.php"





	Const None = -1

    Const All = 0

    Const OE = 1

    Const OL = 2



	Sub InitCTL

		On Error Resume Next

		Dim blnLoaded



		blnLoaded = Importer.IsOEInstalled

		If Err <> 0 Then

			'Msgbox Err.Source & " : " & Err.Description

			Window.Location = INIT_ERROR_URL

		Else

			If Not(Importer.IsOEInstalled) And Not (Importer.IsOLInstalled) Then

				Window.Location = NONE_INSTALLED_URL

			End If



			If Importer.IsOEInstalled then

				WABOption.Style.Visibility = "visible"

			End if



			If Importer.IsOLInstalled then

				OutlookOption.Style.Visibility = "visible"

			End if

			form1.btnCancel.Style.Visibility = "hidden"

		End If

	End Sub



	Sub btnCancel_OnClick

		OLOEImp.Cancel

	End Sub



	Sub btnSubmit_OnClick



        If form1.WABImportEnabled.Checked and form1.OutlookImportEnabled.Checked Then

			Importer.ImportType = ALL

        elseif form1.WABImportEnabled.Checked Then

           	Importer.ImportType = OE

        elseif form1.OutlookImportEnabled.Checked Then

           	Importer.ImportType = OL

        else

            Importer.ImportType = None

        End IF

        if Importer.ImportType = None  then

            Msgbox("Please select atleast one source for Importing Contacts. ")

        else

    		StatusDisplay.Style.Visibility = "visible"

			form1.btnSubmit.Style.Visibility = "hidden"

			form1.btnCancel.Style.Visibility = "visible"



            If Importer.Import  Then

				form1.btnSubmit.Style.Visibility = "visible"

				form1.btnCancel.Style.Visibility = "hidden"

				If Not (Importer.IsCancelled) Then



	                form1.contactXml.value =  Importer.xmlString 'createXML(Importer.Contacts)

					form1.submit

				End if

            Else

                Msgbox("Contact not imported successfully")

            End if

        end if

	End Sub



	' event handler for control status messages



	Sub Importer_OnProgress(iPerDone)

		'Msgbox("status")

		form1.StatusBarImage.Width = (iPerDone * 4)

		PercentDone.InnerText = iPerDone & "%"

	End Sub



	Sub Importer_OnCanceled()

		form1.btnSubmit.Style.Visibility = "visible"

		form1.btnCancel.Style.Visibility = "hidden"

		StatusDisplay.Style.Visibility = "hidden"

		Msgbox "You have cancelled the operation"

		'Window.Location = CANCEL_URL

	End Sub



Function createXML(contacts)

	Dim xml

	Dim contact

	xml = "<contacts>"

	For Each contact In contacts

	xml = xml & "<contact>"

	

	

	xml = xml & "<DisplayName>" & MakeCDATA(contact.DisplayName) & "</DisplayName>"

	xml = xml & "<EmailAddress>" & MakeCDATA(contact.EmailAddress) & "</EmailAddress>"

	

	xml = xml & "<FirstName>" & MakeCDATA(contact.FirstName) & "</FirstName>"

	xml = xml & "<LastName>" & MakeCDATA(contact.LastName) & "</LastName>"

	xml = xml & "<MiddleName>" & MakeCDATA(contact.MiddleName) & "</MiddleName>"

	

	xml = xml & "<NickName>" & MakeCDATA(contact.NickName) & "</NickName>"

	

	xml = xml & "<Title>" & MakeCDATA(contact.Title) & "</Title>"

	xml = xml & "</contact>"

	Next

	xml = xml & "</contacts>"

	createXML = xml

End Function



Function MakeCDATA(str)

    If trim(str) <> "" Then

		MakeCDATA = "<![CDATA[" & str & "]]>"

    Else

		MakeCDATA = Trim(str)

    End if

End Function