<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<%

Dim KS,SQL,K,PhotoUrl
Set KS=New PublicCls
Dim ProID,Tips,RS,SqlStr
ProID = KS.ChkClng(KS.S("ProID"))
 Tips="<table border='0' width='100%' cellspacing='1' cellpadding='1'>"
 Tips=Tips & "<tr style='text-align:center;background:#f1f1f1;font-weight:Bold'><td>店名</td><td>详细地址</td><td>公交路线</td><td>地图</td></tr>"
 If ProID = 0  Then
    Response.End
 Else
        SqlStr = "SELECT A.ID,a.title,a.address,a.CarRoute,a.map FROM KS_ShopUnion a inner join KS_ShopUnionR b on a.id=b.unionid Where b.proID=" & ProID
        Set RS = Server.CreateObject("ADODB.Recordset")
        RS.Open SqlStr, conn, 1, 1
        If Not RS.bof  Then
		   SQL=RS.GetRows(-1)
        End If
        rs.Close
        Set rs = Nothing
 End If
 If IsArray(SQL) Then
  For K=0 To Ubound(SQL,2)
    PhotoUrl=SQL(4,K)
	If PhotoUrl="" Or IsNull(PhotoUrl) Then 
	 PhotoUrl="暂无地图"
	Else
	 PhotoUrl="<a href='" & PhotoUrl & "' target='_blank'>查看</a>"
	End If
	If (K) Mod 2=0 Then
     Tips=Tips & "<tr>"
    Else
	 Tips=Tips & "<tr bgcolor='#f7f7f7'>"
    End If
   Tips=Tips & "<td align='center'>" & SQL(1,K) & "</td><td>" & SQL(2,K) & "</td><td>" & SQL(3,K) & "</td><td align='center'> "& PhotoUrl & "</td></tr>"
  Next
 End If
 Tips=Tips &"</table>"

Response.Write "document.write(""" & Tips & """);"
Call CloseConn()
Set KS=Nothing	
%>
