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