<% Dim Rs,SQLPackage,Packid Packid=request.QueryString("ptype") if packid ="" then Packid=0 set Rs = Server.Createobject("Adodb.Recordset") set Rs4 = Server.Createobject("Adodb.Recordset") SQLPackage = "select * from Tbl_Package where int_PackID="& packid 'response.write(SQLPackage) 'response.Flush() %>
<% Rs.open SQLPackage, con while Rs.eof = false %> <% Rs.Movenext wend Rs.close %>
<%= rs(1) %>
<% Dim imgURL Packimg=RS(11) imgURL="" if Packimg ="" or Packimg ="Prod_image\notavialble.jpg" then imgURL="images/inner_fin_11.gif" else imgURL=Packimg end if if Trim(imgURL) ="" or isnull(imgURL)then imgURL="images\inner_fin_11.gif" end if %>
<%= Rs(2) %>
<% AccsCnt=request("AccsCnt") Dim accflg accflg=false for i=1 to AccsCnt prodid=request("C"&i) if prodid <>"" or prodid > 0 then accflg=true end if next if accflg then %> <% end if Totalprice=request("Totalprice") set RSType = Server.Createobject("Adodb.Recordset") row_cont=0 Dim Chekcount Chekcount=0 for i=1 to AccsCnt Dim prodid prodid=request("C"&i) if prodid <>"" or prodid > 0 then Response.Write(vbnewline &"") Response.Write("") Response.Write("") Response.Write("") Response.Write(""& vbnewline) end if next response.Flush() %>
Product PriceQuantityAmount
Offer Details
<%= rs(3) %>
<% Dim TotalType,Totalprice TotalType=request("TotalType") Totalprice=request("Totalprice") Dim row_cont,linebrk row_cont=0 if TotalType="" then TotalType=0 for i=1 to TotalType response.Write("") response.Write("") next response.Write("
") response.Flush() SerCnt=request("SerCnt") if SerCnt="" then SerCnt=0 for i=1 to SerCnt response.Write("") response.Write("") next response.Flush() %>
" style="text-align:right; border-width:0px" readonly="true"> " style="text-align:right; border-width:0px" readonly="true">
") Chekcount=Chekcount+1 SQLTYPE="select txt_producttitle,int_type,int_productprice from tbl_product where int_uniqueid="& prodid RSType.open SQLTYPE,con if RSType.eof=false then ComTypeName="" SQLTypeName = "select txt_typedesc from tbl_type where int_type="& RSType(1) RS4.open SQLTypeName, con if RS4.eof=false then ComTypeName=RS4(0) end if RS4.close 'response.Write( ComTypeName &"
") response.Write(""& RSType(0) &"") response.Write("") response.Write("") end if RSType.close response.Write("") response.Write("
Total Price : Rs.<%= Totalprice %> /_