Saison 2006/2007
Juniorinnen B/9 / Gruppe 5
Kontaktformular
Archiv
Webseite 2011/2012
Webseite 2010/2011
Webseite 2008/2009
Webseite 2006/2007
Webseite 2006/2007
Matchberichte 2011/2012 Matchberichte 2010/2011 Matchberichte 2008/2009 Matchberichte 2006/2007
Externe Links
Resultate + Rangliste Team-Aufgebot Nächste Runden SpielplanArchiv
Juniorinnen B/9 b
Webseite 2011/2012
Webseite 2010/2011
Webseite 2008/2009
Webseite 2006/2007
Webseite 2006/2007
Matchberichte 2011/2012 Matchberichte 2010/2011 Matchberichte 2008/2009 Matchberichte 2006/2007
Saison 2006/2007 ( Archiv 2006/2007 )
NEWS (Archiv 2006/2007)
Mannschaft B9b 2007
Fehler 94 in Symbios-Script
Invalid use of Null: 'Replace'
Zeile: 21 Zeichen: 4
Response.Write("")
intContentId = "0"
Text = ""
Response.Write("" & Chr(13) & Chr(10) &_
"" & Chr(13) & Chr(10) &_
"<div class=""article gradi"">" & Chr(13) & Chr(10) &_
"<h3>Mannschaft B9b 2007</h3>" & Chr(13) & Chr(10) &_
"<p>")
Response.Write( Replace(Text,vbCrLf ,"<br>"))
Response.Write("</p>" & Chr(13) & Chr(10) &_
"")
If( isNumeric(intContentId) )AND ( intContentId <>"")Then
sql = "SELECT i.[Titel], i.[Description], i.[ImagePfad] FROM [ImagesByNews]i WHERE i.[ContentID] =" & intContentId & " Order By i_Position"
Set objRs = server.createObject("adodb.recordset")
Set objRs = Symbiosis.objConnection.execute(sql)
if( Not(objRs.EOF) )Then
do until( objRs.EOF )
If( objRs("ImagePfad").value <> "" )Then
Response.Write( "<div style=""width:600px; overflow: hidden;""><img src=""" & Symbiosis.SSYS_PATH_WEB & objRs("ImagePfad").value & """ alt=""" & objRs("Titel").value & """ border=""0"">" & vbCrLf &_
"<h6>" & objRs("Titel").value & "</h6><p>" & Replace(objRs("Description").value,vbCrLf ,"<br>") & "</p></div>")
End If
objRs.MoveNext
loop
End If
objRs.close
'Set objRs = nothing
End If
Response.Write("" & Chr(13) & Chr(10) &_
"</div>")Fehler 94 in Symbios-Script
Invalid use of Null: 'Replace'
Zeile: 21 Zeichen: 4
Response.Write("")
If( intTeam = 0 )Then
hideTitle="hide"
Response.Write "<div id=""right""><h5 class=""right"">Webseite Archiv</h5>" & vbCrLf
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT n.[NavigationID], n.[Name] FROM [Navigation] n WHERE n.[ParentID] = 79 ORDER BY n.[Position]"
rs.Open strSql, Symbiosis.objConnection, 1, 2
if Not(rs.EOF) Then
do until( rs.EOF )
intTeam = rs("NavigationId").value
Response.Write("<h6>" & rs("Name").value & "</h6>")
Symbiosis.GetContentByID(35)
rs.MoveNext
loop
End If
rs.close
set rs = nothing
Response.Write "</div>" & vbCrLf
End If
'INHALT
If( Request.QueryString("archiveId")<>"")Then
Set rs = Server.CreateObject("ADODB.Recordset")
strSql= "SELECT c.[Name], " &_
"(SELECT nn.[Name] FROM [Navigation]nn WHERE nn.[NavigationId] = c.[saisonId])AS SAISON " &_
" FROM [content]c WHERE c.[ContentId] = " & Request.QueryString("archiveId")
rs.Open strSql, Symbiosis.objConnection, 1, 2
if Not(rs.EOF) Then
strSaison = rs("SAISON").value
Response.Write "<h1>" & rs("Name").value & " <span style=""font-size:11px"">( Archiv " & strSaison & " )</span></h1>" & vbCrLf
Symbiosis.GetContentByID(Request.QueryString("archiveId"))
End If
rs.close
set rs = nothing
End If
If( Request.QueryString("saison")<>"")AND(intTeam > 0)Then
Set rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT c.[contentId] FROM [Content]c WHERE c.[manschaftId] = " & intTeam & " AND c.[saisonId] = '" & Request.QueryString("saison") & "'"
If( IsNumeric(Request.QueryString("archiveId")) )Then
strSql = strSql & " AND c.[contentId] <> " & Request.QueryString("archiveId")
End If
rs.Open strSql, Symbiosis.objConnection, 1, 2
if Not(rs.EOF) Then
Response.Write "<h3>NEWS<span style=""font-size:10px""> (Archiv " & strSaison & ")</span></h3>" & vbCrLf
do until( rs.EOF )
Symbiosis.GetContentByID(rs("contentId").value)
rs.MoveNext
loop
End If
rs.close
set rs = nothing
End If
Response.Write("" & Chr(13) & Chr(10) &_
"")
