<%@ Register TagPrefix="Hersh" Namespace="Generic" Assembly="GenEditAdd" %>
<HTML>
<script language="VB" runat="server">

Sub page_load(sender As Object, e As EventArgs)

if NOT (isPostBack)
	dim vsql as string
	dim s as string

	Gen.sql = "select * from masters"
	'Gen.where= " Where code_value = 1"
	Gen.display = "1111111"
	
	Gen.KeyField = "code_value"
	Gen.KeyValue = "1"
	
	
	Gen.Insertprocedure = "p_masters"
	Gen.Updateprocedure = "p_masters"
	Gen.RequiredFields = "0100000"
	Gen.editable = "1110100"
	
	'Pass the DDList field;code field;display field;sql;
	s= "code_category;code_value;code_display;Select * from groups;"
	s=s + "code_display;code_display;code_display;Select * from masters;"
	Gen.DropDown = s
	Gen.FieldNames ="id;Account Name; Group;Type; Closing Bal;Opening Bal;"
	Gen.ExitPage="GenTest.aspx"
	
end if
end sub



</script>

<BODY>

<form runat = "server" >
<Hersh:GenEditAdd id = "Gen" runat=server 
 ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"

 />


</form>

</BODY>
</HTML>
