Inquiry Form

Institute Name	Select <% dim bconn,RS,sQry Set bconn = Server.CreateObject("ADODB.Connection") bconn.connectionstring="DSN=ucmas_inq;UID=ucmas;PWD=ucmas" bconn.open Set RS = Server.CreateObject("ADODB.Recordset") sQry="SELECT DISTINCT(INS_ID),INS_NAME FROM INSTITUTE_MASTER where COMPANY_ID='01'" Set RS = bconn.execute(sQry) Do while not RS.EOF %> "><%=RS("INS_NAME")%> <% RS.MoveNext Loop %>
Programme Description	Select <% Set bconn = Server.CreateObject("ADODB.Connection") bconn.connectionstring="DSN=ucmas_inq;UID=ucmas;PWD=ucmas" bconn.open Set RS = Server.CreateObject("ADODB.Recordset") sQry="SELECT DISTINCT(PRG_ID),PRG_DESC FROM PROGRAMME_MASTER where COMPANY_ID='01'" Set RS = bconn.execute(sQry) Do while not RS.EOF %> "><%=RS("PRG_DESC")%> <% RS.MoveNext Loop %>
Student Name
Student Sex	Male    Female
School Name
Standard
Language
Address
City		State
Pin Code		Country
Phone No		Phone No(O)
Mobile No
Remarks