<%
strDSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
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 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
strHTML = strHTML & ", " & rs("nick") & "" & streg &""
Else strHTML = strHTML & ""
END IF
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
16c - En day of defeat klan