<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsIndex__MMColParam rsIndex__MMColParam = "1" 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 = "12" If (Request("MM_EmptyValue") <> "") Then rsModules__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsModules Dim rsModules_numRows Set rsModules = Server.CreateObject("ADODB.Recordset") rsModules.ActiveConnection = MM_modulx_STRING rsModules.Source = "SELECT * FROM modules WHERE modsite = " + Replace(rsModules__MMColParam, "'", "''") + " ORDER BY modsort ASC" rsModules.CursorType = 0 rsModules.CursorLocation = 2 rsModules.LockType = 1 rsModules.Open() rsModules_numRows = 0 %> <% 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 %> <% While ((Repeat2__numRows <> 0) AND (NOT rsModules.EOF)) %> <%if (rsModules.Fields.Item("modlr").Value)="lr" then%> "> " valign="top" class="text"><%=(rsModules.Fields.Item("modtxt").Value)%> "> <%if (rsModules.Fields.Item("modbild").Value)<>"" then%>" border="<%=(rsModules.Fields.Item("modpicborder").Value)%>"> <%end if%> <%else%> "> <%if (rsModules.Fields.Item("modbild").Value)<>"" then%>" border="<%=(rsModules.Fields.Item("modpicborder").Value)%>"> <%end if%> "> " valign="top" class="text"><%=(rsModules.Fields.Item("modtxt").Value)%> <%end if%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsModules.MoveNext() Wend %> " 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 %> <% rsModules.Close() Set rsModules = Nothing %> <% rsIndex.Close() Set rsIndex = Nothing %>