Function GetProvinceDescription(provinceName, storyCountry) Dim http, url, responseText, descriptionStart, descriptionEnd, description, languageCode, provinceMapping ' Determine the language code based on StoryCountry Select Case storyCountry Case 1: languageCode = "da" ' Danish Case 2: languageCode = "no" ' Norwegian Case 3: languageCode = "sv" ' Swedish Case 8: languageCode = "th" ' Thai Case Else: languageCode = "en" ' Default to English End Select ' Mapping for Thai provinces to English Wikipedia titles Select Case provinceName Case "Bangkok", "กรุงเทพมหานคร": provinceMapping = "Bangkok" Case "Samut Prakan": provinceMapping = "Samut Prakan Province" Case "Pathum Thani": provinceMapping = "Pathum Thani Province" Case "Samut Sakhon": provinceMapping = "Samut Sakhon Province" Case "Nakhon Pathom": provinceMapping = "Nakhon Pathom Province" Case "Nonthaburi": provinceMapping = "Nonthaburi Province" Case "Central": provinceMapping = "Central Thailand" Case "Saraburi": provinceMapping = "Saraburi Province" Case "Sing Buri": provinceMapping = "Sing Buri Province" Case "Chainat": provinceMapping = "Chai Nat Province" Case "Ang Thong": provinceMapping = "Ang Thong Province" Case "Lopburi": provinceMapping = "Lopburi Province" Case "Phra Nakhon": provinceMapping = "Phra Nakhon Si Ayutthaya Province" Case "Eastern": provinceMapping = "Eastern Thailand" Case "Chonburi": provinceMapping = "Chonburi Province" Case "Chachoengsao": provinceMapping = "Chachoengsao Province" Case "Rayong": provinceMapping = "Rayong Province" Case "Trat": provinceMapping = "Trat Province" Case "Chanthaburi": provinceMapping = "Chanthaburi Province" Case "Nakhon Nayok": provinceMapping = "Nakhon Nayok Province" Case "Prachinburi": provinceMapping = "Prachinburi Province" Case "Sa Kaeo": provinceMapping = "Sa Kaeo Province" Case "Northeastern": provinceMapping = "Isan" Case "Khon Kaen": provinceMapping = "Khon Kaen Province" Case "Udon Thani": provinceMapping = "Udon Thani Province" Case "Loei": provinceMapping = "Loei Province" Case "Nong Khai": provinceMapping = "Nong Khai Province" Case "Mukdahan": provinceMapping = "Mukdahan Province" Case "Nakhon Phanom": provinceMapping = "Nakhon Phanom Province" Case "Sakon Nakhon": provinceMapping = "Sakon Nakhon Province" Case "Kalasin": provinceMapping = "Kalasin Province" Case "Nakhon Ratchasima": provinceMapping = "Nakhon Ratchasima Province" Case "Chaiyaphum": provinceMapping = "Chaiyaphum Province" Case "Yasothon": provinceMapping = "Yasothon Province" Case "Ubon Ratchathani": provinceMapping = "Ubon Ratchathani Province" Case "Roi Et": provinceMapping = "Roi Et Province" Case "Buriram": provinceMapping = "Buriram Province" Case "Surin": provinceMapping = "Surin Province" Case "Maha Sarakham": provinceMapping = "Maha Sarakham Province" Case "Sisaket": provinceMapping = "Sisaket Province" Case "Nong Bua Lamphu": provinceMapping = "Nong Bua Lamphu Province" Case "Amnat Charoen": provinceMapping = "Amnat Charoen Province" Case "Bueng Kan": provinceMapping = "Bueng Kan Province" Case "Northern": provinceMapping = "Northern Thailand" Case "Chiang Mai": provinceMapping = "Chiang Mai Province" Case "Lampang": provinceMapping = "Lampang Province" Case "Uttaradit": provinceMapping = "Uttaradit Province" Case "Mae Hong Son": provinceMapping = "Mae Hong Son Province" Case "Chiang Rai": provinceMapping = "Chiang Rai Province" Case "Phrae": provinceMapping = "Phrae Province" Case "Lamphun": provinceMapping = "Lamphun Province" Case "Nan": provinceMapping = "Nan Province" Case "Phayao": provinceMapping = "Phayao Province" Case "Nakhon Sawan": provinceMapping = "Nakhon Sawan Province" Case "Phitsanulok": provinceMapping = "Phitsanulok Province" Case "Kamphaeng Phet": provinceMapping = "Kamphaeng Phet Province" Case "Uthai Thani": provinceMapping = "Uthai Thani Province" Case "Sukhothai": provinceMapping = "Sukhothai Province" Case "Tak": provinceMapping = "Tak Province" Case "Phichit": provinceMapping = "Phichit Province" Case "Phetchabun": provinceMapping = "Phetchabun Province" Case "Southern": provinceMapping = "Southern Thailand" Case "Phuket": provinceMapping = "Phuket Province" Case "Surat Thani": provinceMapping = "Surat Thani Province" Case "Ranong": provinceMapping = "Ranong Province" Case "Phang Nga": provinceMapping = "Phang Nga Province" Case "Krabi": provinceMapping = "Krabi Province" Case "Chumphon": provinceMapping = "Chumphon Province" Case "Nakhon Si Thammarat": provinceMapping = "Nakhon Si Thammarat Province" Case "Songkhla": provinceMapping = "Songkhla Province" Case "Satun": provinceMapping = "Satun Province" Case "Yala": provinceMapping = "Yala Province" Case "Trang": provinceMapping = "Trang Province" Case "Narathiwat": provinceMapping = "Narathiwat Province" Case "Phattalung": provinceMapping = "Phatthalung Province" Case "Pattani": provinceMapping = "Pattani Province" Case "Western": provinceMapping = "Western Thailand" Case "Ratchaburi": provinceMapping = "Ratchaburi Province" Case "Kanchanaburi": provinceMapping = "Kanchanaburi Province" Case "Prachuap Khiri Khan": provinceMapping = "Prachuap Khiri Khan Province" Case "Phetchaburi": provinceMapping = "Phetchaburi Province" Case "Suphan Buri": provinceMapping = "Suphan Buri Province" Case "Samut Songkhram": provinceMapping = "Samut Songkhram Province" Case Else: provinceMapping = provinceName ' Use original name if no mapping exists End Select ' Wikipedia API URL with dynamic language code url = "https://" & languageCode & ".wikipedia.org/api/rest_v1/page/summary/" & Server.URLEncode(provinceMapping) ' Set up HTTP request Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") http.Open "GET", url, False http.Send ' Check if response is successful If http.Status = 200 Then responseText = http.responseText ' Extract the description text from the response descriptionStart = InStr(responseText, """extract"":""") + 11 descriptionEnd = InStr(descriptionStart, responseText, """,""") If descriptionStart > 0 And descriptionEnd > descriptionStart Then description = Mid(responseText, descriptionStart, descriptionEnd - descriptionStart) description = Replace(description, "\", "") ' Clean escape characters Else description = "No additional information available for " & provinceMapping & "." End If Else description = "Unable to fetch information at the moment for " & provinceMapping & "." End If Set http = Nothing GetProvinceDescription = description End Function