<%
if Rs.eof or Rs.bof then
response.write"| "&WebName&"地区暂无该信息! | "
else
Do WHile Not Rs.eof And I<=19
Title1=Rs("HotelName")
City=Rs("CityID")
Tb=""
If Rs("IsCheck")=0 Then
Title=mid(Rs("HotelName"),1,18)
If Rs("Color")<>"0" then
Title=""&Title&""
End IF
Select Case Rs("Style")
Case "0":Title=Title
Case "b":Title=""&Title&""
Case "i":Title=""&Title&""
End Select
Else
Title=mid(Rs("SName"),1,18)
If Rs("SColor")<>"0" then
Title=""&Title&""
End IF
Select Case Rs("SStyle")
Case "0":Title=Title
Case "b":Title=""&Title&""
Case "i":Title=""&Title&""
End Select
End IF
HotelID=Rs("HotelID")
If Instr(Rs("TD"),"|")>0 Then
Temp=Replace(Replace(Rs("TD"),"-",""),"另议","")
'Response.Write(Temp)
Ta=Split(Temp,"|")
For k=0 To Ubound(Ta)
If Trim(Ta(k))<>"" then
If Instr(Tb,Ta(k))>0 Then
Else
Tb=Tb&Ta(k)&"|"
End IF
End If
Next
If Instr(Tb,"|")>0 Then
Tb=Left(Tb,(Len(Tb)-1))
'Response.Write(Tb)
If Instr(Tb,"|")>0 Then
Tc=Split(Tb,"|")
'T1=SortA(Tc)
Price=Tc(0)
Else
Price=Tb
End IF
Else
Price=Tb
End IF
Else
Price=Rs("TD")
End IF
Set Rsn=Conn.execute("Select Top 1 * From szshi where id="&City&"")
%>
| |
|
<%
Rs.MoveNext
I=I+1
Loop
end if
Rs.Close:Set Rs=Nothing
%>
|
张家界会议酒店 |
 |
|
|
|
|
| |
|
|
|
|
|
|
