About Synergy Unlimited

Email^*

Welcome to our Synergy's product catalog section. You can shop for our exclusive CD ROMs and Books, and also register for our seminars from this section.

<%session("page")="products.asp?idDepartment="&idDept%>

Department Name <%=chrDeptName%>

<% Dim objConn,adUseClient Set dbProducts= dbDepartment sqlp = "select * from products, departmentproducts where products.idproduct = departmentproducts.idproduct and products.intActive=1 and departmentproducts.iddepartment = '"& idDept&"' order by products.idproduct desc" set dbDepartment = getDBConnection() Dim rsProducts Set rsProducts = Server.CreateObject("ADODB.Recordset") rsProducts.CursorLocation = 3 rsProducts.Open sqlp, dbDepartment if not rsProducts.EOF then chrProductName = rsProducts("chrProductName") chrProductImage = rsProducts("chrProductImage") intPrice = rsProducts("intPrice") idProduct = rsProducts("idProduct") end if %>

" name="idDept">

<% Do while not rsProducts.eof intprice = formatcurrency(rsProducts("intPrice")) intprice = mid(intprice,2,len(intprice)) intprice = replace(intprice,",","") %>

" border=0 >

<%=rsProducts("idProduct")%>

<%=rsProducts("chrProductName")%>	<%=formatcurrency(rsProducts("intPrice"),2)%>

<%=mid(rsProducts("txtDescription"),1,200)%>... ');">Read more

"> Select Product " value="1" size="3" maxlength="3"> Enter Quantity

<% rsProducts.MoveNext loop %>

<%if chrProductName <> "" then%><%end if%>