Create
the GeoDatabase for the entire world. This program create the
geographical location Latitude, Longitude, and Altitude (Elevation) for
every city, village, region, state, county in the World. The program
crawls the data from the website www.heavens-above.com
which collect data from US Geological Survey for the USA (and
dependencies) and The National Imaging and Mapping Agency for all other
countries.
The program is available as .exe and the source code in Visual Basic 6
This new version fixes the US cities data and some minor enhancements.
as you see the first line has lang="ar" which means Arabic general, the line that has
content="ar-eg" means arabic egypt, you can change this to your country arabic language code for example for saudi arabia it would be ar-sa instead of ar-eg etc.
the line that has charset=windows-1256 this is windows arabic code page.
This will force all the browsers to automatically display any Arabic in your pages in the correct Arabic shap.
Now for the display from the Right to Left for the Arabic, go to the admin center, click on Language Manger, under the Edit Language select the file "General / Homepage" then click the button "Edit" search on this page for the variable named:
language_direction
You will find it set to ltr (which means left to right):
dir="ltr"
Change it to rtl (which means right to left):
dir="rtl"
That's all you need.
Of course you may need to internally in your html code use the tag dir="rtl" to display specific table div or pragraph etc.
Of course these information is helpful in other languages also like Spanish, etc.
For the top navigation to be from right to left, The top navigation class in the class editor, change things that say float:left to float:right, so the top navigation class should be like this:
Auctionawy, Classifiedawy, Searchawy, and Boardawy
This update solves the issue with Hostgator securities which block the file rssdisplay.cgi displaying this error message:
Forbidden
You don't have permission to access
/cgi-bin/classified/rssdisplay.cgi on this server. Additionally, a 404 Not
Found error was encountered while trying to use an ErrorDocument to handle the
request
A new file RssNews.cgi has been added to avoid this blocking and the rssdisplay is still exist.
This update also fixes the issues with building the users about me pages in admin->accounts options ->build users about me pages.
Please download the latest zip file form our website "My Account" and only update these cgi files in ASCII mode:
'--------------------------------------------------------------------------------------
' Important
'RE: Outlook Error: The macros in this project are disabled?...
'Make sure when you restart Outlook its no longer running in the system tray or
'running processes list and security is Medium or Low for testing purposes only
' http://www.vbforums.com/showthread.php?t=415518
'--------------------------------------------------------------------------------------
' File location:
' C:\Documents and Settings\mewsoft\Application Data\Microsoft\Outlook\VbaProject.OTM
'--------------------------------------------------------------------------------------
' To find a mail folder path, right click the folder and the folder properties
'--------------------------------------------------------------------------------------
' http://support.microsoft.com/kb/253313
' Security:
'--------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------
'http://65.55.11.235/en-us/library/aa211242(office.11).aspx
'--------------------------------------------------------------------------------------
'HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Security
' then add the value AccessVBOM and set it to 1
'--------------------------------------------------------------------------------------
' Outlook Loads at Startup -- Problems
' Remember to disconnect the PDA from the Cradle or USB
' before lunching Outlook
'Do you have a problem with Outlook loading when you boot the computer but it's not in the Start up folder? It's not black magic or ghosts, it's caused another program accessing Outlook's data - this causes Outlook to load.
'If you have a PDA or similar device, don't put it on the cradle or connect it to the computer until you have Outlook open and are ready to sync. If it's not a PDA causing it, look over you list of programs that are loading at start up and see which one uses Outlook data - remove them from start up or disable Outlook integration features.
'If you have a Sony Vaio, a bug in the BIOS loads your default email client at boot. Look on the Sony website for the bios update.
'--------------------------------------------------------------------------------------
' Outlook Command-line switches
' http://office.microsoft.com/en-us/outlook/HP010031101033.aspx
'
'/recycle
'Starts Outlook using an existing Outlook window, if one exists. Used in combination with /explorer or /folder.
' Default created shortcut:
' "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" /recycle
Private WithEvents olInboxItems As Items
Private WithEvents olJunkItems As Items
Private WithEvents olDeletedItems As Items
Private WithEvents olSalesItems As Items
Dim mySalesFolder As Outlook.MAPIFolder
Dim myFolder As Outlook.MAPIFolder
'======================================================================================
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.Session
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set olJunkItems = objNS.GetDefaultFolder(olFolderJunk).Items
Set olDeletedItems = objNS.GetDefaultFolder(olFolderDeletedItems).Items
'Set myFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
'Set mySalesFolder = objNS.Folders.Item("\\Mail\Sales")
'------------------------------------------------
' This worked
' Sales folder path : \\Mail\Sales
'Set myFolder = objNS.PickFolder
'MsgBox myFolder.Name + " " + myFolder.FolderPath
'------------------------------------------------
Dim objInbox As Outlook.MAPIFolder
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set myFolder = objInbox.Parent.Folders("Sales")
'======================================================================================
'======================================================================================
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
'Item.BodyFormat = olFormatPlain
'Item.Save
Set Item = Nothing
End Sub
'======================================================================================
Private Sub olJunkItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
'Item.BodyFormat = olFormatPlain
'Item.Save
'Set Item = Nothing
Debug.Print "Junk item: "; Item.Subject
Item.UnRead = False
Set Item = Nothing
End Sub
'======================================================================================
Private Sub olDeletedItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
'Item.BodyFormat = olFormatPlain
'Item.Save
'Set Item = Nothing
Debug.Print "Deleted item: "; Item.Subject
Item.UnRead = False
Set Item = Nothing
End Sub
Private Sub olSalesItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
'Item.BodyFormat = olFormatPlain
'Item.Save
'Set Item = Nothing
Debug.Print "Sales item: "; Item.Subject
Item.UnRead = True
Set Item = Nothing
End Sub
'Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'
'End Sub
'
'Private Sub Application_NewMail()
'
'End Sub
'
'Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'
'End Sub
'
'Private Sub Application_OptionsPagesAdd(ByVal Pages As PropertyPages)
'
'End Sub
'
'Private Sub Application_Quit()
'
'End Sub
'
'Private Sub Application_Startup()
'
'End Sub
'Private Sub outApp_NewMailEx(ByVal EntryIDCollection As String)
' Dim mai As Object
' Dim intInitial As Integer
' Dim intFinal As Integer
' Dim strEntryId As String
' Dim intLength As Integer
'
' intInitial = 1
' intLength = Len(EntryIDCollection)
' MsgBox "Collection of EntryIds: " & EntryIDCollection
' intFinal = InStr(intInitial, EntryIDCollection, ",")
' Do While intFinal <> 0
' strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
' MsgBox "EntryId: " & strEntryId
' Set mai = Application.Session.GetItemFromID(strEntryId)
' MsgBox mai.Subject
' intInitial = intFinal + 1
' intFinal = InStr(intInitial, EntryIDCollection, ",")
' Loop
' strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
' MsgBox strEntryId
' Set mai = Application.Session.GetItemFromID(strEntryId)
' MsgBox mai.Subject
'
'End Sub
'Dim objFolder As MAPIFolder
'
' For Each objFolder In Application.GetNamespace("MAPI").Session.Session.Folders
'
' 'German
' If objFolder.FolderPath = "\\?ffentliche Ordner" Then
' Set objFolder = objFolder.Folders("Favoriten")
' Exit For
' End If
'
' 'English
' If objFolder.FolderPath = "\\Public Folders" Then
' Set objFolder = objFolder.Folders("Favorites")
'
' Exit For
' End If
' Next
'Function SetFolderType(intCurrentFolderType As Integer) As Long
' ' This uses the Outlook Constants for ItemType and DefaultFolders
' Select Case intCurrentFolderType
' Case Is = 0 ' olMailItem
' SetFolderType = 6
' ' Sets folder type to olFolderInbox, however
' ' it is crucial to note that there are different types of "mail" folders;
' ' see Outlook Constants in the Help file for more info.
' Case Is = 1 ' olAppointmentItem
' SetFolderType = 9
' ' Sets folder type to olFolderCalendar
' Case Is = 2 ' olContactItem
' SetFolderType = 10
' ' Sets folder type to olFolderContacts
' Case Is = 3 ' olTaskItem
' SetFolderType = 13
' ' Sets folder type to olFolderTasks
' Case Is = 4 ' olJournalItem
' SetFolderType = 11
' ' Sets folder type to olFolderJournal
' Case Is = 5 ' olNoteItem
' SetFolderType = 12
' ' Sets folder type to olFolderNotes
' Case Is = 6 ' olPostItem
' SetFolderType = 18
' ' Sets folder type to olPublicFoldersAllPublicFolders
' Case Is = 7 ' olDistributionListItem
' SetFolderType = 10
' ' Sets folder type to olFolderContacts
' End Select
'End Function
'
'Set ns = GetNamespace("MAPI")
'Set Inbox = ns.GetDefaultFolder(olFolderInbox)
'Set SubFolder1 = Inbox.Folders("Gary")
'Set SubFolder2 = SubFolder1.Folders("Kickabout")
'Set SubFolder3 = SubFolder2.Folders("Attachments")
'
'Public Function GetFolder(strFolderPath As String) As MAPIFolder
' ' strFolderPath needs to be something like
' ' "Public Folders\All Public Folders\Company\Sales" or
' ' "Personal Folders\Inbox\My Folder"
'
' Dim objApp As Outlook.Application
' Dim objNS As Outlook.NameSpace
' Dim colFolders As Outlook.Folders
' Dim objFolder As Outlook.MAPIFolder
' Dim arrFolders() As String
' Dim I As Long
' On Error Resume Next
'
' strFolderPath = Replace(strFolderPath, "/", "\")
' arrFolders() = Split(strFolderPath, "\")
' Set objApp = Application
' Set objNS = objApp.GetNamespace("MAPI")
' Set objFolder = objNS.Folders.Item(arrFolders(0))
' If Not objFolder Is Nothing Then
' For I = 1 To UBound(arrFolders)
' Set colFolders = objFolder.Folders
' Set objFolder = Nothing
' Set objFolder = colFolders.Item(arrFolders(I))
' If objFolder Is Nothing Then
' Exit For
' End If
' Next
' End If
'
' Set GetFolder = objFolder
' Set colFolders = Nothing
' Set objNS = Nothing
' Set objApp = Nothing
'End Function
'==========================================================================
'==========================================================================
'How to Automatically Move Inbox Items With a Blank Subject
'The code in the "How to Enter the Code in the Visual Basic Editor" section of this
'rticle moves any messages that arrive in your Inbox to a subfolder that is named "Temp"
'without quotation marks). After you enter the code, you can assign the Start and Stop
'macros to a toolbar button.
'==========================================================================
' The first two "Dim" statements declare
' global variables, and must be located in
' the "General Declarations" section at
' the beginning of the Code window.
'Dim WithEvents objInboxItems As Outlook.Items
'Dim objDestinationFolder As Outlook.MAPIFolder
'
'' Run this code to start your rule.
'Sub StartRule()
' Dim objNameSpace As Outlook.NameSpace
' Dim objInboxFolder As Outlook.MAPIFolder
'
' Set objNameSpace = Application.Session
' Set objInboxFolder = objNameSpace.GetDefaultFolder(olFolderInbox)
' Set objInboxItems = objInboxFolder.Items
' Set objDestinationFolder = objInboxFolder.Folders("Temp")
'End Sub
'
'' Run this code to stop your rule.
'Sub StopRule()
' Set objInboxItems = Nothing
'End Sub
'
'' This code is the actual rule.
'Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
' If Item.Subject = "" Then
' Item.Move objDestinationFolder
' End If
'End Sub
''=====================================================================================
''=====================================================================================
'Private WithEvents m_colExplorers As Outlook.Explorers
'Private WithEvents m_objExplorer As Outlook.Explorer
'
'Private Sub Application_Startup()
'Dim m_explevents As New ExplEvents
'm_explevents.InitExplorers Application
'm_explevents.m_objExplorer_FolderSwitch
'End Sub
'
'
'Sub Class_Terminate()
'Call DeRefExplorers
'End Sub
'
'Public Sub InitExplorers(objApp As Outlook.Application)
'Set m_colExplorers = objApp.Explorers
'If m_colExplorers.Count > 0 Then
'Set m_objExplorer = objApp.ActiveExplorer
'End If
'End Sub
'
'Public Sub DeRefExplorers()
'Set m_colExplorers = Nothing
'Set m_objExplorer = Nothing
'End Sub
'
'Private Sub m_colExplorers_NewExplorer _
'(ByVal Explorer As Explorer)
'Set m_objExplorer = Explorer
'End Sub
'
'Public Sub m_objExplorer_FolderSwitch()
'Set myOlApp = Application
'Dim olns As Outlook.NameSpace
'Set olns = myOlApp.GetNamespace("MAPI")
'Dim SearchFolder As Outlook.MAPIFolder
'Dim myOlExp As Outlook.Explorer
'Dim vw As Outlook.View
'Set myOlExp = myOlApp.ActiveExplorer
'Set SearchFolder = myOlExp.CurrentFolder
'myType = SearchFolder.DefaultItemType
'Set vw = SearchFolder.CurrentView
'MsgBox myType
'If myType = 0 Then
''Set current view to "By Company"
'If Not vw.Name = "MyView" Then
'myOlExp.CurrentView = "MyView"
'End If
'End If
'Set myOlApp = Nothing
'Set olns = Nothing
'Set SearchFolder = Nothing
'Set myOlExp = Nothing
'Set vw = Nothing
'Set myType = Nothing
'End Sub
'=====================================================================================
'=====================================================================================
'=====================================================================================
'=====================================================================================
'=====================================================================================
Dim outApp As Outlook.Application
Dim junkFolder As Outlook.MAPIFolder
Dim junkItem As Object
'Dim entryID As String
Set outApp = CreateObject("outlook.application")
Set junkFolder = outApp.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk)
For Each junkItem In junkFolder.Items
'junkItem.UnRead = True
junkItem.UnRead = False
'entryID = junkItem.entryID ' Store item entry id
'junkItem.Delete ' Delete from junk mail folder
' use junkItem.Remove to permanetly delete the items
' To permanently delete item find and delete from deleted items
'Set deleteItem = outApp.Session.GetItemFromID(entryID)
'deleteItem.Delete
Set junkItem = Nothing
Set junkFolder = Nothing
Set outApp = Nothing
End Sub
'Sub JunkEmailMarkReadX()
'
'Dim oFld As Outlook.MAPIFolder
'
'Set oFld = Application.Session.GetDefaultFolder(olFolderJunk)
'
'Dim Count As Long
'Dim x As Long
'
'With oFld
' Count = .Items.Count
'For x = 1 To Count
'
' .UnReadItemCount
'
'
'Next x
'
''While .Items.Count
''.Items(1).Delete
''Wend
'
'End With
'
'End Sub
'Public Sub EmptyJunkEmailFolder()
'
' Dim outApp As Outlook.Application
' Dim junkFolder As Outlook.MAPIFolder
' Dim junkItem, deleteItem As Object
' Dim entryID As String
'
' Set outApp = CreateObject("outlook.application")
' Set junkFolder = outApp.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk)
'
' For Each junkItem In junkFolder.Items
' entryID = junkItem.entryID ' Store item entry id
' junkItem.Delete ' Delete from junk mail folder
'
' ' To permanently delete item find and delete from deleted items
' Set deleteItem = outApp.Session.GetItemFromID(entryID)
' deleteItem.Delete
' Next
'
' Set junkItem = Nothing
' Set deleteItem = Nothing
' Set junkFolder = Nothing
' Set outApp = Nothing
'
'End Sub
'Public Sub EmptyJunk()
' Do While ActiveExplorer.Session.GetDefaultFolder(olFolderJunk).Items.Count > 0
'
' ActiveExplorer.Session.GetDefaultFolder(olFolderJunk).Items.Remove (1)
'
' Loop
'
' Do While ActiveExplorer.Session.GetDefaultFolder(olFolderDeletedItems).Items.Count > 0
'
' ActiveExplorer.Session.GetDefaultFolder(olFolderDeletedItems).Items.Remove (1)
'
' Loop
'End Sub
'Sub GetSelectedItems()
' Dim myOlApp As New Outlook.Application
' Dim myOlExp As Outlook.Explorer
' Dim myOlSel As Outlook.Selection
' Dim MsgTxt As String
' Dim x As Integer
' MsgTxt = "You have selected items from: "
' Set myOlExp = myOlApp.ActiveExplorer
' Set myOlSel = myOlExp.Selection
' For x = 1 To myOlSel.Count
' MsgTxt = MsgTxt & myOlSel.Item(x).SenderName & ";"
'
' Next x
' MsgBox MsgTxt
'End Sub
'
'Public WithEvents myOlApp As Outlook.Application
'
'Sub Initialize_handler()
' Set myOlApp = CreateObject("Outlook.Application")
'End Sub
'
'Private Sub myOlApp_NewMail()
' Dim myExplorers As Outlook.Explorers
' Dim myFolder As Outlook.MAPIFolder
' Dim x As Integer
' Set myExplorers = myOlApp.Explorers
' Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
' If myExplorers.Count <> 0 Then
' For x = 1 To myExplorers.Count
' On Error GoTo skipif
' If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then
' myExplorers.Item(x).Display
' myExplorers.Item(x).Activate
' Exit Sub
' End If
'skipif:
' Next x
' End If
' On Error GoTo 0
' myFolder.Display
'End Sub
Today we have added a new three counteries Geo Zip codes, Posttal codes database for these counteries:
UK (Postal codes) with Latitudes and Longitudes (27,600+ records) Germany (Zip codes) with Latitudes and Longitudes (16,400+ records) Netherlands (Zip codes) with Latitudes and Longitudes (5100+ records)
These databases enables the advanced search feature to search within specific distance for your users.
You can have more than one database or all of these databases installed.
The installations instructions updated for how to install these database:
Search Language For Text