<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsIndex__MMColParam rsIndex__MMColParam = "i" If (Request("MM_EmptyValue") <> "") Then rsIndex__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsIndex Dim rsIndex_numRows Set rsIndex = Server.CreateObject("ADODB.Recordset") rsIndex.ActiveConnection = MM_modulx_STRING rsIndex.Source = "SELECT * FROM sites WHERE sattr = '" + Replace(rsIndex__MMColParam, "'", "''") + "'" rsIndex.CursorType = 0 rsIndex.CursorLocation = 2 rsIndex.LockType = 1 rsIndex.Open() rsIndex_numRows = 0 %> <% Dim rsLayout Dim rsLayout_numRows Set rsLayout = Server.CreateObject("ADODB.Recordset") rsLayout.ActiveConnection = MM_modulx_STRING rsLayout.Source = "SELECT * FROM layout" rsLayout.CursorType = 0 rsLayout.CursorLocation = 2 rsLayout.LockType = 1 rsLayout.Open() rsLayout_numRows = 0 %> <% Dim rsMenu Dim rsMenu_numRows Set rsMenu = Server.CreateObject("ADODB.Recordset") rsMenu.ActiveConnection = MM_modulx_STRING rsMenu.Source = "SELECT * FROM menu ORDER BY morder ASC" rsMenu.CursorType = 0 rsMenu.CursorLocation = 2 rsMenu.LockType = 1 rsMenu.Open() rsMenu_numRows = 0 %> <% Dim rsModules__MMColParam rsModules__MMColParam = (rsIndex.Fields.Item("sid").Value) If (Request.QueryString("sid") <> "") Then rsModules__MMColParam = Request.QueryString("sid") End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMenu_numRows = rsMenu_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 rsModules_numRows = rsModules_numRows + Repeat2__numRows %> ">

"> "> <% While ((Repeat1__numRows <> 0) AND (NOT rsMenu.EOF)) %> "> "><%=(rsMenu.Fields.Item("mbeschrieb").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMenu.MoveNext() Wend %> Hans Leu & Co. Hauptstr. 28 8231 Hemmental +41 52 685 40 48 richard.leu@shinternet.ch   " class="footer"><%=(rsLayout.Fields.Item("Firma").Value)%> - <%=(rsLayout.Fields.Item("Adresse").Value)%> - <%=(rsLayout.Fields.Item("Ort").Value)%> - <%=(rsLayout.Fields.Item("Tel").Value)%> - "><%=(rsLayout.Fields.Item("Mail").Value)%>

created with modulx by sobag

<% rsLayout.Close() Set rsLayout = Nothing %> <% rsMenu.Close() Set rsMenu = Nothing %> <% rsIndex.Close() Set rsIndex = Nothing %>