<%@ Language=VBScript %> <% Option Explicit %>

sd Select Product <% Dim objRs,strQuery set objRs=Server.createObject("ADODB.Recordset") strQuery = "Select ProductId,ProductName from tblProducts" set objRs=objConn.Execute(strQuery) if not objRs.EOF Then %> <% While not objRs.EOF %> <%= objRs.Fields(1) %> <% objRs.moveNext Wend %> <% else Response.Write("No Products added") End If %>

© 2005 Watts Electronics Pvt Ltd.