<%@ Language=VBScript %> <% Response.Buffer = true %> <% Response.Expires = 0 %> Micromic Info <% 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 %>
HOME
<%=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%>