' Function to fetch province details from Wikipedia in the appropriate language Function GetProvinceDescription(provinceName, storyCountry) Dim http, url, responseText, descriptionStart, descriptionEnd, description, languageCode ' 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 ' Set up HTTP request Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") ' Map for alternative English names for common provinces Select Case provinceName Case "กรุงเทพ", "กรุงเทพมหานคร": provinceName = "Bangkok" Case "เชียงใหม่": provinceName = "Chiang Mai" ' Add other province mappings as needed End Select ' Wikipedia API URL with dynamic language code url = "https://" & languageCode & ".wikipedia.org/api/rest_v1/page/summary/" & Server.URLEncode(provinceName) ' Send request http.Open "GET", url, False http.Send ' Check if response is successful If http.Status = 200 Then responseText = http.responseText ' Find and extract the description text from the response descriptionStart = InStr(responseText, """extract"":""") + 11 ' Locate start of "extract" descriptionEnd = InStr(descriptionStart, responseText, """,""") ' Locate end of "extract" text If descriptionStart > 0 And descriptionEnd > descriptionStart Then description = Mid(responseText, descriptionStart, descriptionEnd - descriptionStart) description = Replace(description, "\", "") ' Remove any escape characters Else description = "No additional information available for " & provinceName & "." End If Else description = "Unable to fetch information at the moment." End If Set http = Nothing GetProvinceDescription = description End Function ' Fetch description based on user's province and StoryCountry provinceDescription = GetProvinceDescription(NameUserProvince, Application("StoryCountry")) %>