<%@LANGUAGE="VBSCRIPT"%> <% session.LCID = 2057 Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_dbexpressmodels_STRING Recordset1.Source = "SELECT * FROM tblshow" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_dbexpressmodels_STRING Recordset2.Source = "SELECT * FROM tblshow" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Welcome to Express Models the home of models railways


The Home of Model Railways

Express Models Exhibition guide for <% response.write(year(Date())) %>

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %><% if Recordset1.Fields.Item("datefrom").Value >= date then %>
 Show:   <%=(Recordset1.Fields.Item("showname").Value)%>
Where :

<%=(Recordset1.Fields.Item("showlocation").Value)%>,<%=(Recordset1.Fields.Item("showtown").Value)%>

From:

<%=(Recordset1.Fields.Item("datefrom").Value)%> - <%=(Recordset1.Fields.Item("times").Value)%>
To : <%=(Recordset1.Fields.Item("dateto").Value)%> - <%=(Recordset1.Fields.Item("times2").Value)%>
   
<% end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

 


 

 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>