<% catid = trim(Request("cat")) if catid = "0" or isnull(catid) or trim(catid) = "" then catid = 1 end if page=Request.QueryString("page") %>

HOME

PROFILE

PRODUCT

CONTACT

<% dim objconn1, objrs1 dim strsql1 set objconn1 = server.CreateObject("ADODB.connection") set objrs1 = server.CreateObject("ADODB.recordset") strsql1 = "select * from cat_master where " _ & " cat_id = " & catid objconn1.Open strcon objrs1.Open strsql1, objconn1, 1,2 %>

  <%=objrs1("cat_name")%>                                                                                                                          

Application : - <%=objrs1("cat_desc")%>

<% dim objconn, objrs dim strsql set objconn = server.CreateObject("ADODB.connection") set objrs = server.CreateObject("ADODB.recordset") strsql = "select * from cat_master order by cat_id " objconn.Open strcon objrs.Open strsql, objconn, 1,2 while not objrs.EOF %> <% objrs.MoveNext wend objrs.close%>
)"><%=objrs("cat_name")%>
<% if page = "" then strsql = "select * from cat_detail cd, cat_master cm where " _ & " cd.cat_id = cm.cat_id and cd.cat_id = " & catid & " order by cd.cat_det_id " end if objrs.PageSize=9 if page="" then page=1 else strsql = session("sqlstr") end if session("sqlstr") = strsql objrs.Open strsql, objconn, 1,2 while not objRs.EOF cnt=cnt+1 objRs.MoveNext wend if cnt > 0 then objRs.Movefirst end if if page = 1 then if cnt <= 1 then str_count = "[" & 1 & " - " & cnt & "] / " & cnt else str_count = "[" & 1 & " - " & (page * cnt) & "] / " & cnt end if else if cnt < (page * 9) then str_count = "[" & (((page -1) * 9) + 1) & " - " & cnt & "] / " & cnt else str_count = "[" & (((page -1) * 9) + 1) & " - " & (page * 9) & "] / " & cnt end if end if if objrs.RecordCount = 0 then objrs.Close %> <% else objRs.AbsolutePage = cint(page) %>
<% if objrs.PageCount = 1 then %>   <%else%>

Page No <%for i=1 to objrs.PageCount%> <%=i%> <%next end if%>

<% rowCnt = 1 while not objrs.EOF and rowCnt < objRs.PageSize %>
<% rowcnt=rowcnt+1 objrs.MoveNext if not objrs.EOF then %> <% rowcnt=rowcnt+1 objrs.MoveNext if not objrs.EOF then %> <%end if %> <%end if %>

"> .jpg" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0 style="border: 1 solid #808080">

  "><%=objrs("product_code")%>
<%=objrs("product_name")%> >

"> .jpg" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0 style="border: 1 solid #808080">

  "><%=objrs("product_code")%>
<%=objrs("product_name")%> >

"> .jpg" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0 style="border: 1 solid #808080">

  "><%=objrs("product_code")%>
<%=objrs("product_name")%> >
     
<% rowcnt=rowcnt+1 if Not objrs.EOF then objrs.MoveNext end if wend end if %>