<%@ Language=VBScript %> <% Response.Buffer = true %> <% Response.Expires = 0 %> <% Dim Rst Dim CompanyName, CompanyAddress, CompanyPlace, CompanyPhone, CompanyFax Dim Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday Dim YearlyLeaf 'All the recordsets go here Set Rst = Cnn.Execute("SELECT * FROM ONL_INFO") 'Fill the variabeles CompanyName = Rst("InfoData") Rst.MoveNext CompanyAddress = Rst("InfoData") Rst.MoveNext CompanyPlace = Rst("InfoData") Rst.MoveNext CompanyPhone = Rst("InfoData") Rst.MoveNext Rst.MoveNext Rst.MoveNext Rst.MoveNext Rst.MoveNext Rst.MoveNext Rst.MoveNext Monday = Rst("InfoData") Rst.MoveNext Tuesday = Rst("InfoData") Rst.MoveNext Wednesday = Rst("InfoData") Rst.MoveNext Thursday = Rst("InfoData") Rst.MoveNext Friday = Rst("InfoData") Rst.MoveNext Saturday = Rst("InfoData") Rst.MoveNext Sunday = Rst("InfoData") Rst.MoveNext YearlyLeaf = Rst("InfoData") Sub Release() Rst.Close Set Rst = Nothing Cnn.Close Set Cnn = Nothing End Sub %>

		<%=CompanyName%> <%=CompanyAddress%> <%=CompanyPlace%> Tel./Fax: <%=CompanyPhone%>
Algemeen: micromic@micromic.be Verkoop: sales@micromic.be Technische dienst: td@micromic.be
maandag: <%=Monday%> dinsdag: <%=Tuesday%> woensdag: <%=Wednesday%> donderdag: <%=Thursday%> vrijdag: <%=Friday%> zaterdag: <%=Saturday%> zondag: <%=Sunday%>
Jaarlijks verlof: <%=YearlyLeaf%>