Скопируйте код следующим образом: <%
Functionnewtxt (sz, strrtxt, cityid)
DiMali, Icount, я
DiMali2
ali = split (sz, ",")
ali2 = split (strtxt, ",")
icon = ubound (ali)
CityId = request.QueryString ("CityId")
ifrequest.querystring ("cityid") = "" then
CityId = "234"
эндиф
Fori = 0toicode
IfcityId = ali (i) затем
Newtxt = ali2 (i)
Эндиф
Следующий
Конечная функция
%>
<%
DimcityId, CityName, id
CityId = "234,54,294,2347 653,121"
CityName = "Хайку, два, три, четыре, пять, шесть"
id = request.querystring ("cityid")
ifrequest.querystring ("cityid") = "" then
ID = 234
эндиф
%>
<%
= Newtxt (CityId, CityName, Id)
%>