<% 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 %> <% If Session("ADMINID") = 1 Then godkendt = 1 elseIf Session("ADMINID") = 2 Then godkendt = 1 elseIf Session("ADMINID") = 7 Then godkendt = 1 elseIf Session("ADMINID") = 8 Then godkendt = 1 elseIf Session("ADMINID") = 9 Then godkendt = 1 elseIf Session("ADMINID") = 28 Then godkendt = 1 Else godkendt = 0 END IF %> <% 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) aktiv = rs("aktiv") If aktiv = 0 Then streg = "" streg2 = "" Else streg = "" streg2 = " (inaktiv)" END IF If godkendt = 1 Then strHTML = strHTML & "
 

[edit]
" & streg & "" & rs("nick") & "" & streg2 & "
" & rs("navn") & ", årgang " & rs("alder") & "
Funktion: " & rs("klasse") & "
Motto: """ & rs("motto") & """
Hardware: " & rs("hardware") & "
Har været i 16c fra " & rs("i16c") & " til " & rs("u16c") & "
Diverse: " & rs("pjat") & "
Steam id: " & rs("steamid") & "
" Else strHTML = strHTML & "
 
" & streg & "" & rs("nick") & "" & streg2 & "
" & rs("navn") & ", årgang " & rs("alder") & "
Funktion: " & rs("klasse") & "
Motto: """ & rs("motto") & """
Hardware: " & rs("hardware") & "
Har været i 16c fra " & rs("i16c") & " til " & rs("u16c") & "
Diverse: " & rs("pjat") & "
Steam id: " & rs("steamid") & "
" END IF rs.MoveNext Loop End If myConn.Close Set myConn = Nothing If godkendt = 1 Then strNY = " - Indtast et nyt medlem" else Response.write "" End IF %> 16c - En day of defeat klan

Players...

<%=strNY%>
<%=strHTML%>