<%@ Language="VBScript" %> Stocks

  Home  |  Company Profile  |  Line Card  |  Stock List  |  Manufactures Index  |  Contact Us | Associate Companies

Stock List
<% 'connection to database set mycon= Server.CreateObject ("ADODB.Connection") 'mycon.Open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=server.mappath('/assgn1/Saket-Electronics/saket.mdb')" cnpath="DBQ=" & server.mappath("saket.mdb") mycon.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & cnpath view_prodsql="select * from product_stock" set view_prodRS= server.CreateObject ("ADODB.Recordset") view_prodRS.Open view_prodsql,mycon,adOpenStatic 'Response.Write "dfgd" & view_prodRS.RecordCount %>

View Product

 

<% if Request.QueryString("str")="send" then Response.Write "

Your record is deleted.

" end if %>
<% i=1 bgc="#ededed" while not view_prodRS.EOF ic_pk=view_prodRS("ic_pk") icno=view_prodRS("ic_no") manu_name=view_prodRS("manf_name") datecode=view_prodRS("date_code") qty=view_prodRS("quantity") package=view_prodRS("package") remark=view_prodRS("remark") description=view_prodRS("description") %> <% i=i+1 view_prodRS.movenext if bgc="#ededed" then bgc="#cccccc" else bgc="#ededed" end if wend %>

Sr. No.

IC. No.

Manufacturer's Name

Date Code

Quantity

Package

Remark

Description

<%=i%>

<%=icno%>

<%=manu_name%>

<%=datecode%>

<%=qty%>

<%=package%>

<%=remark%>

<%=description%>

 

 





Home  |  Company Profile  |  Line Card  |  Stock List  |  Manufactures Index  |  Contact Us | Associate Companies

Copyright  © 2000 iotasoft.com All rights reserved.