| |
|
|
 |
 |
List of Centers
|
|
|
|
<% if request("StateId")<>"" and request("StateId")<>"0" then%>
<%
set rsCenter=server.CreateObject("ADODB.recordset")
'sql="select * from centers,program,country,states where centers.programId="& request("ProgramId") &" and states.countryId="& request("countryId") &" and statefranchise='Yes' order by states.statename asc "
sql="select ProgramId,StateId,CountryId,CenterName,ContactPerson,PhoneNo,Email,Address,FaxNo from centers where ProgramId= "&request("ProgramId")&" and stateId="&request("StateId")&" and countryId="&request("CountryId") &" and stateFranchise='Yes' group by ProgramId,StateId,CountryId,CenterName,ContactPerson,PhoneNo,Email,Address,FaxNo"
'sql="select * from centers,program,states,country where centers.ProgramId="&request("ProgramId")&" and centers.stateId="&request("StateId")&" and centers.countryId="&request("CountryId") &" and stateFranchise='Yes' order by states.stateName asc"
'sql="select * from centers,Program,districts,states,country where centers.ProgramId=Program.ProgramId and centers.DistrictId=districts.DistrictId and districts.StateId=states.StateID and states.CountryId=country.CountryId and statefranchise='Yes' order by states.StateName asc"
'response.Write(sql)
'response.End()
filename="master_franchise.asp?record=All&ProgramId="&request("ProgramId")&"&CountryId="&request("CountryId")&"&StateId="&request("StateId")&""
rsCenter.open sql,con,3,3
if rsCenter.eof then
%>
<%
else
IntPageSize = 10
if cint(Request("PageIndex1")) <> "" then
PageIndex1 = cint(Request("PageIndex1"))
else
PageIndex1 = 1
end if
if PageIndex1 = 0 then PageIndex1 = 1
RecordCount = rsCenter.RecordCount
RecordNumber1 = (PageIndex1 * IntPageSize) - (IntPageSize)
rsCenter.PageSize = intPageSize ' Set the number of records per page
rsCenter.AbsolutePage = PageIndex1 'Define what page number on which the current record resides.
intpagecount1 = rsCenter.pagecount
TotalPages1 = rsCenter.PageCount
dim intPrev1, intNext1
intPrev1 = PageIndex1 - 1
intNext1 = PageIndex1 + 1 'same as rsPhoto.AbsolutePage
Dim Count 'We'll use this to limit the number of records displayed on a page
Count = 1
%>
<%if intpagecount1>1 then%>
<%end if%>
<% while not rsCenter.eof and count<=10
count=count+1
IntI=IntI+1
'if IntI=1 then
%>
|
<%=rsCenter("CenterName")%>
|
| Address |
<%=rsCenter("contactperson")%> <%=replace(rsCenter("Address"),chr(13),"
")%>,
|
| Phone |
<%=replace(rsCenter("PhoneNo"),"/","
")%> |
<% if rsCenter("FaxNo")<>"" then %>
<%'=rsCenter("FaxNo")%>
<% end if%>
<%if rsCenter("email")<>"" then%>
| Email |
" class="news_text_col" title="<%=rsCenter("Email")%>"><%=rsCenter("Email")%> |
<%end if%>
<%
rsCenter.Movenext
wend
%>
<%if intpagecount>1 then%>
|
| <%end if%>
<%
end if
end if
%>
|
|
 |
|
|
