<% 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 = "vandt" Else farve = "tabte" END IF ' Vi laver udskrift i tabellen strWar = strWar & "Vi " & farve & " vores seneste kamp (" & rs("type") & ") mod " & rs("vs") & " med resultatet " & 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 - En day of defeat klan

Velkommen til 16c's hjemmeside.

  Breaking news! <%=strHTML%>
  <%=strWar%>
  16c har spillet DOD siden 2001 og har gennem tiden tabt og vundet en masse kampe. Du kan se flere nyheder og resultater ved at kigge på undersiderne. Vores aktive lineup består pt. af<%=strLINEUP%>.