<%
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 16ccw 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 16ccw Where (id = " & rs("id") & ")"
Set recordCount = myConn.Execute(strSQL)
strEditid = Request("edit")
strVersion = rs("version")
strTidspunkt = rs("tidspunkt")
strVs = rs("vs")
strLand = rs("land")
strResultatos = rs("resultatos")
strResultatdem = rs("Resultatdem")
strType = rs("type")
strKommentar = rs("Kommentar")
strLineup = rs("lineup")
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
//16c's war redigeringssystem//
Indtast war data
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>