<%Response.Buffer=true dim cn dim rs,rs1,rs2,rs4,sql,sql1,sql2,sql4 dim flg flg=false set cn=server.CreateObject("ADODB.Connection") 'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\kush\Khushboo.mdb;Persist Security Info=False" cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Websites\404\khushboo.org\Khushboo.mdb;Persist Security Info=False" 'cn.Open "GerDsn","","" 'if cn.State = 1 then ' set rs=server.CreateObject("ADODB.RecordSet") ' set rs1=server.CreateObject("ADODB.RecordSet") ' set rs2=server.CreateObject("ADODB.RecordSet") set rs4=server.CreateObject("ADODB.RecordSet") ' sql="select * from colour" ' sql1="select * from type" ' sql2="select * from Use" ' rs.Open sql,cn,1,2 ' rs1.Open sql1,cn,1,2 ' rs2.Open sql2,cn,1,2 'end if 'if Request.Form("txtHid") = "Show" then 'sql4="select * from imageInfo where use=" & trim(Request.Form("cmbUse")) &" and colour="& trim(Request.Form("cmbColour"))&" and type=" & trim(Request.Form("cmbType")) sql4="select * from imageInfo" rs4.Open sql4,cn,1,2 dim flgImg flg=true if rs4.RecordCount>0 then flgImg=true else flgImg=false end if 'else 'flg=false 'end if 'To Retain the selected value in ComboBoxes function selected(x,y) if x=y then selected = "Selected" else selected = "" end if end function %> Catalogue
Scroll through our selection of gerberas. To view details, click on an image. To order, click here:
   
<%if flg and flgImg then%>
Go Down
Go Up
<%else%> <%end if%>
<%if flg then a=rs4.RecordCount b= cint(a/3) if a mod 3 > 0 then b=b+1 end if c=88*b end if%>