<%=(request.form("province"))%><%=(request.form("city"))%>
| 地址 |
店铺名称 |
联系人 |
电话 |
所属代理商 |
<%
if request.form("dowhat")="search" then
strProvider2="driver={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("pagent.mdb")
Set conn2 = Server.CreateObject("ADODB.connection")
conn2.Open strProvider2
if request.form("city")<>"" then
sqlstr="select 详细地址,门店名称,联系人,联系电话,所属代理商 from pagent where 省份='" & request.form("province") & "' and 市或县='" & request.form("city") & "' order by 省份,市或县"
else
sqlstr="select 详细地址,门店名称,联系人,联系电话,所属代理商 from pagent where 省份='" & request.form("province") & "' order by 省份,市或县"
end if
set rs2=conn2.execute(sqlstr)
do until rs2.eof
xxdz=rs2("详细地址") & "_"
mdmc=rs2("门店名称") & "_"
lxr=rs2("联系人") & "_"
lxdh=rs2("联系电话") & "_"
ssdls=rs2("所属代理商") & "_"
%>
| <%=xxdz%> |
<%=mdmc%> |
<%=lxr%> |
<%=lxdh%> |
<%=ssdls%> |
<%
rs2.movenext
loop
rs2.close
conn2.close
end if
%>
|
