•"&rsl("LODGING_HOUSE_EN")&"
"
rsl.MoveNext
wend
rs.MoveNext
wend
end function
function lodgingList()
sSql = "SELECT LODGING_NAME FROM LODGING GROUP BY LODGING_NAME"
Set rs = Conn.Execute(sSql)
sHTML = ""
While Not rs.EOF
'if rs.fields("LODGING_NAME")=request.Form("lodging") then
'sHTML = sHTML & "