<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Dim Country, Province, City
Dim arrCountry, arrProvince, arrCity
Dim rsRegion
Country = ReplaceBadChar(Trim(Request("Country")))
Province = ReplaceBadChar(Trim(Request("Province")))
City = ReplaceBadChar(Trim(Request("City")))
If Country = "" Then Country = "中华人民共和国"
If Province = "" Then Province = "北京市"
Set rsRegion = Conn.Execute("SELECT Country FROM PE_Country ORDER BY CountryID")
If rsRegion.BOF And rsRegion.EOF Then
FoundErr = True
Else
arrCountry = rsRegion.GetRows(-1)
End If
Set rsRegion = Nothing
Set rsRegion = Conn.Execute("SELECT Province FROM PE_Province WHERE Country='" & Country & "' ORDER BY ProvinceID")
If rsRegion.BOF And rsRegion.EOF Then
ReDim arrProvince(0, 0)
Else
arrProvince = rsRegion.GetRows(-1)
End If
Set rsRegion = Conn.Execute("SELECT DISTINCT City FROM PE_City WHERE Country='" & Country & "' And Province='" & Province & "'")
If rsRegion.BOF And rsRegion.EOF Then
ReDim arrCity(0, 0)
Else
arrCity = rsRegion.GetRows(-1)
End If
Set rsRegion = Nothing
Call CloseConn
%>