|
|
|
<%
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")
%>
|
|
| |
| |
|
|
