Welcome to Milgram Products

MILGRAM DIARY PRODUCTS

<%Dim MyCon As New OleDbConnection("Data Source=" & Server.MapPath("Database\Milgram.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;persist security info=False;") Dim Str As String Dim dapStatus As OleDb.OleDbDataAdapter Dim DT As DataTable Dim i As Integer Dim j as Integer Dim chkNo as integer Str = "SELECT PV.PrdId,P.Name, P.Picture,P.Description, PV.VarId, V.Caption, PV.Unit, PV.WholeSale, PV.MRP, PV.Id" _ & " FROM Variety AS V INNER JOIN (Products AS P INNER JOIN ProdVariety AS PV ON P.PrdId = PV.PrdId) ON V.VarId = PV.VarId order by P.Name, V.Caption" dapStatus = New OleDb.OleDbDataAdapter(Str, MyCon) DT = New DataTable dapStatus.Fill(DT) Dim prevprod as integer prevprod=-1 Dim slno as integer slno=0%> <%for i=0 to dt.rows.count-1 if (prevprod <> dt.rows(i).Item("PrdId")) slno=slno+1%> <%if i<> 0 then%> <%end if %>

<%=slno%>.

<%=DT.Rows(I).Item("Name")%>

<%=DT.Rows(I).Item("Description")%>

Variety	Units of	Whole Sale Price	MRP	Order
<%=DT.Rows(I).Item("Caption")%>	<%=DT.Rows(I).Item("Unit")%>	<%=Format(DT.Rows(I).Item("WholeSale"),"0.00")%>	<%=Format(DT.Rows(I).Item("MRP"),"0.00")%>	" >	" size="3" value="<%=DT.Rows(I).Item("Id") %>" >

<%else%>

<%=DT.Rows(I).Item("Caption")%>	<%=DT.Rows(I).Item("Unit")%>	<%=Format(DT.Rows(I).Item("WholeSale"),"0.00")%>	<%=Format(DT.Rows(I).Item("MRP"),"0.00")%>	" >	" size="3" type ="hidden" value="<%=DT.Rows(I).Item("Id") %>" >

<%end if%> <% chkno=chkno +1 %> <%prevprod = dt.rows(i).Item("PrdId")%> <%next%>