<% 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 %> <% count2 = 0 Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN strSQL = "SELECT *, DATE_FORMAT(dato,'%d/%m') AS posttime 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 <5) strSQL = "SELECT *, DATE_FORMAT(dato,'%d/%m') AS posttime, 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 = "16c " & farve & " kampen (" & rs("type") & ") mod " & rs("vs") & " med resultatet " & rs("resultatos") & "-" & rs("resultatdem") & "." ' strName = Replace(Replace(Server.HTMLEncode(rs("Name")),"[","("),"]",")") strHTML = strHTML & "" strHTML = strHTML & "" & rs("posttime") & "" strHTML = strHTML & "http://stolpaaos.dk/16c/" strHTML = strHTML & "" & rs("Dato") & "" count2 = count2 + 1 rs.MoveNext Loop End If myConn.Close Set myConn = Nothing 'If InStr(Request.ServerVariables("HTTP_ACCEPT"), "application/xhtml+xml") > 0 Then Response.ContentType = "application/xml" 'Else ' Response.ContentType = "text/html; charset=iso-8859-1" 'End If Response.Charset = "iso-8859-1" %> http://www.stolpaaos.dk/16c/ StolPaaOs.dk's 16c wars <%=strHTML%>