|
|
<%
dim rs
dim rs1
dim rs2
dim rs3
dim txtname
dim franoutlet
dim franarea
dim prodid
dim prodtitle
dim proddesc
dim imgid
dim imgpath
dim imgwth
dim imghgt
set rs =Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM hometext",con,1,3
set rs1 =Server.CreateObject("ADODB.Recordset")
rs1.Open "SELECT * FROM franchiselist",con,1,3
set rs2 =Server.CreateObject("ADODB.Recordset")
rs2.Open "select * from subproduct s, prodoftheweek p where s.sno = p.subprodid and s.productsno = p.prodid",con,1,3
txtname=rs.Fields("hometxt")
franoutlet=rs1.Fields("franchise_outlet")
franarea=rs1.Fields("franchise_areacovered")
prodtitle=rs2.Fields("prodtitle")
proddesc=rs2.Fields("proddesc")
imgid = rs2.Fields("imagesno1")
imgwth = rs2.Fields("imagewidth1")
imghgt = rs2.Fields("imageheight1")
set rs3 =Server.CreateObject("ADODB.Recordset")
rs3.Open "select * from image1 where sno = " & imgid,con,1,3
imgpath = rs3.Fields("imagepath")
%>
| |
|
Charity
Partners
Charity Challenge is the UK's leading adventure travel
company specialising exclusively in the organisation,
leadership and administration of inspirational fundraising
expeditions. We operate more than 100 challenges each
year for around 2,000 participants, and have so far
helped to raise somewhere in the region of £15million
for over 550 charities.
Our expeditions include treks, mountain bike rides,
mountain climbs, white water rafting, sailing, horse
riding & Community Challenges. Our expeditions take
place in Africa, the Caribbean, Asia, Europe, the Americas
and the Middle East. They cover four different difficulty
levels, ensuring there really is something for everyone.
Visit their website http://www.charitychallenge.com
|
| |
| |
|
|
| |
| |
|
|
