<% strDSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddi_php; Password=smovs;" Function DBFix(tempString) tempString = Replace(Trim(tempString), "'", "''") tempString = Replace(tempString, "|", "") DBFix = tempString End Function %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM 16cnyheder ORDER BY ID DESC" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While ((Not rs.EOF) And count1 <1) strSQL = "SELECT *, DATE_FORMAT(date,'%d-%m-%Y') AS FormDate, TIME_FORMAT(date,'%H:%i') AS FormTime FROM 16cnyheder WHERE (id =" & rs("id") & ")" Set formatDate = myConn.Execute(strSQL) dtmFormatDate = formatDate("FormDate") strSQL = "SELECT Count(*) AS ItemCount FROM 16cnyheder Where (id = " & rs("id") & ")" Set recordCount = myConn.Execute(strSQL) strHTML = strHTML & "(" & dtmFormatDate & ") - " & rs("nyhed") & "" count1 = count1 + 1 rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM 16ccw ORDER BY ID DESC" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While ((Not rs.EOF) And count2 <1) strSQL = "SELECT *, DATE_FORMAT(dato,'%d-%m-%Y') AS FormDate, TIME_FORMAT(dato,'%H:%i') AS FormTime FROM 16ccw WHERE (id =" & rs("id") & ")" Set formatDate = myConn.Execute(strSQL) dtmFormatDate = formatDate("FormDate") strSQL = "SELECT Count(*) AS ItemCount FROM 16ccw Where (id = " & rs("id") & ")" Set recordCount = myConn.Execute(strSQL) ' Vi tjekker om kampen er vundet eller tabt If rs("resultatos") >= rs("resultatdem") Then farve = "won" Else farve = "lost" END IF ' Vi laver udskrift i tabellen strWar = strWar & "We " & farve & " our last match (" & rs("type") & ") against " & rs("vs") & " with the score of " & rs("resultatos") & "-" & rs("resultatdem") & "." count2 = count2 + 1 rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT * FROM 16cplayers ORDER BY ID ASC" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF 'strSQL = "SELECT *, DATE_FORMAT(date,'%d-%m-%Y') AS FormDate, TIME_FORMAT(date,'%H:%i') AS FormTime FROM 16cplayers WHERE (id =" & rs("id") & ")" 'Set formatDate = myConn.Execute(strSQL) 'dtmFormatDate = formatDate("FormDate") strSQL = "SELECT Count(*) AS ItemCount FROM 16cplayers Where (id = " & rs("id") & ")" Set recordCount = myConn.Execute(strSQL) If rs("aktiv")= "0" Then strLINEUP = strLINEUP & ", " & rs("nick") & "" Else strLINEUP = strLINEUP & "" END IF rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> 16c - a Day of Defeat clan (DOD)

Welcome to the 16c homepage

  We've been playing DOD since 2001. Our homepage is mostly in Danish (actually, all of it is except for this page :o)).The wars page should be understandable though.

You can contact us in our irc channel, which is #16c, on Quakenet.

Our current active lineup consists of<%=strLINEUP%>.
  <%=strWar%>
  News in danish <%=strHTML%>