<%=(rsLayout.Fields.Item("Firma").Value)%>

<%@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 rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_newspool_STRING rsNews.Source = "SELECT * FROM newspool WHERE ende >=NOW() AND start <=NOW() ORDER BY N_ID DESC" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim rsNewsdetail__MMColParam rsNewsdetail__MMColParam = "1" If (Request.QueryString("N_ID") <> "") Then rsNewsdetail__MMColParam = Request.QueryString("N_ID") End If %> <% Dim rsNewsdetail Dim rsNewsdetail_numRows Set rsNewsdetail = Server.CreateObject("ADODB.Recordset") rsNewsdetail.ActiveConnection = MM_newspool_STRING rsNewsdetail.Source = "SELECT * FROM newspool WHERE N_ID = " + Replace(rsNewsdetail__MMColParam, "'", "''") + "" rsNewsdetail.CursorType = 0 rsNewsdetail.CursorLocation = 2 rsNewsdetail.LockType = 1 rsNewsdetail.Open() rsNewsdetail_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 = -1 Repeat2__index = 0 rsNews_numRows = rsNews_numRows + Repeat2__numRows %> <%=(rsLayout.Fields.Item("Firma").Value)%> ">

"> <% While ((Repeat1__numRows <> 0) AND (NOT rsMenu.EOF)) %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMenu.MoveNext() Wend %>


<%=(rsNewsdetail.Fields.Item("header").Value)%> <%=(rsNewsdetail.Fields.Item("detail").Value)%> " target="_blank"><%=(rsNewsdetail.Fields.Item("link").Value)%>
Alle vorhanden News:
<% While ((Repeat2__numRows <> 0) AND (NOT rsNews.EOF)) %> > "><%=(rsNews.Fields.Item("header").Value)%> <%=(rsNews.Fields.Item("datum").Value)%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsNews.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)%>

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