<%
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 16clogs 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(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 16cnyheder 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
logs = ChkString1(rs("log"))
logs = ChkString2(logs)
strHTML = strHTML & "Ovreskrift:
"
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
//16c's nyheds editeringssystem//
Hurtig hjælp til html tags:
Brug IKKE " (anførselstegn, gåseøjne...),
det kan fucke db'en en smule :)
Ellers laves der links ligesom i forummet (
class=b tag'et sørger for at lave farven om så linket kan læses på en lys
baggrund): <a href=http://www.stolpaaos.dk class=b>spo</a>