 |
|
<%
if ucase(session("smode"))="A" and session("searchpage")="Y" then %>
| <% if len(martphoto)>17 then %>
<%end if%> |
|
 |
|
<% else %>
<% end if%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strcon
mmedia=request.QueryString("mmedia")
if len(trim(mmedia))> 0 then
set rs11=server.createobject("Adodb.recordset")
rs11.cursortype=adopenstatic
sqltype="select * from mediacat_master where ucase(trim(accountid))='"&ucase(trim(mmedia))&"'order by accountorder,accountname "
rs11.open sqltype,conn,2,2
if rs11.bof and rs11.eof then
jmedia=""
else
jmedia=rs11("accountname")
end if
set rs11=nothing
end if
if len(trim(mmedia))> 0 then
mtitle="Media center : "
if len(jmedia)>0 then
mtitle="Media center : "&jmedia
end if
mlink="View"
mtb="Media"
else
mtitle="Associates"
mlink="Link"
mtb="Link"
end if
%>
<%=mtitle%> |
<% if mmedia="M06" or mmedia="M08" then %>
<%else%>
<%end if%>
<% if (not mmedia="M06") and (not mmedia="M08") then %>
| Sr No. |
Title |
<%=mlink%> |
<% end if%>
<%
set rs11=server.createobject("Adodb.recordset")
'if mmedia="M06" or mmedia="M08" then
msf=1
msf2=1
if request.querystring("msf")="" then
msf=1
msf2=1
else
if isnumeric(request.querystring("msf")) then
msf=request.querystring("msf")
msf2=request.querystring("msf")
else
msf=1
msf2=1
end if
end if
rs11.cursortype=adopenstatic
RS11.CursorLocation = 3
rs11.pagesize=10
'else
'rs11.cursortype=adopenstatic
'end if
if ucase(mtb)="LINK" then
sqltype="select * from "&mtb&"_master order by accountid, accountorder,accountname "
else
sqltype="select * from "&mtb&"_master where ucase(accountcategory)='"&ucase(mmedia)&"' order by accountid, accountorder,accountname "
end if
rs11.open sqltype,conn,2,2
if rs11.bof and rs11.eof then
else
jp=10000
'if mmedia="M06" or mmedia="M08" then
jp=rs11.pagesize
rs11.absolutepage=cint(msf)
msf2=msf
pagecount=rs11.pagecount
'end if
m=0
v=0
while not rs11.eof and v
<% if mmedia="M06" or mmedia="M08" then
if m=1 then
%>
<% end if%>
|
|
<% if m=5 then %>
<%
m=0
end if%>
<% else%>
<%=m%> |
<% if ucase(mtb)="LINK" then%>
<%=aname%> |
<% else %>
<%=aname%> |
<% end if%>
<% if ucase(mtb)="MEDIA" then %>
<% if mmedia="M07" or mmedia="M04" then %>
<% if len(trim(abclinkname))> 0 then %>
Go to Link
<%else %>
View
<%end if%>
<% else %>
View
<%end if %>
<% else %>
<%=alink%>
<%end if%>
|
<% end if%>
<%
rs11.movenext
wend
end if
set rs11=nothing
set conn=nothing
%>
<% 'if mmedia="M06" or mmedia="M08" then %>
<% if cdbl(pagecount)>1 then %>
<% if cint(msf2)>1 then %>
 < Previous Page
<% else %>
< Previous Page
<% end if %> |
<% for a=1 to pagecount
if cint(a)=cint(msf2) then %>
<%=a%> |
<%
else
%>
<%=a%> |
<%
end if
next
totv=pagecount%>
|
<% if cint(msf2)
Next Page > 
<% else %>
Next Page >
<% end if %>
|
|
<%end if%>
<%'end if%>
|
|
|
 |
<%
k1="Sponsers "
k2=" "
SET rs=Server.CreateObject("ADODB.Recordset")
sqlst="SELECT count(*) FROM sponser_master where ucase(accountcategory)='OTHER' "
rs.open sqlst,con
if rs.bof and rs.eof then
ELSE
if not rs(0)=0 then
k1="Main Sponsors"
k2="Other Sponsors"
end if
end if
set rs=nothing
%>
| <%=k1%> |
<%
SET rs=Server.CreateObject("ADODB.Recordset")
sqlst="SELECT accountid,accountname,accountphoto1,accountlink FROM sponser_master where ucase(accountcategory)='MAIN' order by accountorder "
rs.open sqlst,con
if rs.bof and rs.eof then
ELSE
x=0
while not rs.eof and x <3
x=x+1
lid=rs(0)
lname=rs(1)
lpt="./driver/sponser1/"&rs("accountphoto1")
llink=rs(3)
%>
|
<%
rs.movenext
wend
end if
set rs=nothing
%>
|
<%=k2%> |
<%
SET rs=Server.CreateObject("ADODB.Recordset")
sqlst="SELECT accountid,accountname,accountphoto1,accountlink FROM sponser_master where ucase(accountcategory)='OTHER' order by accountorder "
rs.open sqlst,con
if rs.bof and rs.eof then
ELSE
x=0
while not rs.eof and x <6
x=x+1
lid=rs(0)
lname=rs(1)
lpt="./driver/sponser1/"&rs("accountphoto1")
llink=rs(3)
%>
|
|
<%
rs.movenext
wend
end if
set rs=nothing
set con=nothing
%>
|
|
 |
|
|
