16c - En day of defeat klan

<% 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 intEditID = Request("edit") strSQL = "SELECT * FROM 16cplayers WHERE (ID = " & Request("edit") & ")" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF '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 16cplayers Where (id = " & rs("id") & ")" Set recordCount = myConn.Execute(strSQL) strEditid = Request("edit") strNick = rs("nick") strNavn = rs("navn") strAlder = rs("alder") strKlasse = rs("klasse") strMotto = rs("motto") strHardware = rs("hardware") strI16c = rs("i16c") strU16c = rs("u16c") strPjat = rs("pjat") strLillebillede = rs("lillebillede") strStortbillede = rs("stortbillede") strAktiv = rs("aktiv") strSteamid = rs("steamid") rs.MoveNext Loop End If myConn.Close Set myConn = Nothing %> 16c - En day of defeat klan

Players...

Billede

Nick

Navn , alder

Class

Motto

Hardware

I 16c fra til

Pjat

lille billede

stort billede

Aktiv: (0 = aktiv, 1 = inaktiv)

Steam id:

Intet billede: http://www.stolpaaos.dk/16c/images/intetbillede.png