<%
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 16clogs ORDER BY ID DESC"
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 16cnyheder WHERE (id =" & rs("id") & ")"
'Set formatDate = myConn.Execute(strSQL)
'dtmFormatDate = formatDate("FormDate")
strSQL = "SELECT Count(*) AS ItemCount FROM 16clogs Where (id = " & rs("id") & ")"
Set recordCount = myConn.Execute(strSQL)
Function ChkString1(string)
ChkString1 = Replace(string, "<", "<")
End Function
Function ChkString2(string)
ChkString2 = Replace(string, ">", ">")
End Function
Function ChkString3(string)
ChkString3 = Replace(string, Chr(13), " ")
End Function
logs = ChkString1(rs("log"))
logs = ChkString2(logs)
logs = ChkString3(logs)
Function Shorten(sString, sLength)
If Len (sString) > sLength Then
Shorten = Left(sString,sLength) & "...."
Else
Shorten = sString
End If
End Function
slogs=Shorten(logs,150)
If godkendt = 1 Then
strHTML = strHTML & "
"
END IF
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
If godkendt = 1 Then
strNY = " - Skriv en ny log"
else Response.write ""
End IF
%>
16c logs