<% pageid=request("productid") if not pageid="" then if isnumeric(pageid) then sqlseodata="select productName, productcode from product where productid="&pageid call getfromDatabase(sqlseodata,rsseodata,"product-Page") if not rsseodata.eof then producttitle=rsseodata("productName") productCode=rsseodata("productCode") end if else response.Redirect("products.asp") end if end if Title = producttitle Keywords = productkeywords thispage = title %>
<% pageid=request("productid") if not pageid="" then if isnumeric(pageid) then priceSQL="select * from product where status='Active' and productid="&request.QueryString("productid") call getfromDatabase(priceSQL,rsprice,"Product-Page") if not rsprice.eof then productidd = rsprice("productid") productname = rsprice("productName") productprice=rsprice("productprice") productCode=rsseodata("productCode") descr=rsprice("Descr") productpath="product/big/"&productidd&".jpg" %>
<%=productCode%>
<%if Session("curncy")="INR" then %> Rs <%=productprice%><%end if%> <%if Session("curncy")="Doller" then %> $ <% Response.Write(Round((formatNumber(productprice, 2)/curRate),2))%><%end if%>
<% myURL12=checkimage(productpath) if myURL12 <> "images/noimage.jpg" then call getSize(server.mappath(myURL12), width, height, depth, "JPG") end if %> = 300 then response.Write("width=300")%> border="0" alt="<%=productName%>" style="border:1px #000000 solid;"/>
<%=productname%>

Description :

<%=descr%>
<% producttype = request.QueryString("type") SQLSubCat="select * from productimg where category="&request.QueryString("productid") i=1 call getfromDatabase(SQLSubCat,rsSubCat,"left") if not rsSubCat.eof then while not rsSubCat.eof ImgId=rsSubCat("id") title=rsSubCat("Title") categoryId=1 SQLImageSelection="select min(productId) as firstProduct from product where catChildId='"&catChildId&"'" call getfromDatabase(SQLImageSelection,rsImageSelection,"") if not rsImageSelection.eof then initialProduct=rsImageSelection("firstProduct") end if productcatpath="productimg/"&Imgid&".jpg" myURL1cat=checkimage(productcatpath) %> <% rsSubCat.movenext if Cint(i) Mod 3 = 0 then Response.write "" End if i=i+1 wend end if %>
<%=title%>
 
<% end if end if end if%>