Jeg benytter ASP database.
Koden kommer her:
<%
If Session("login") = true Then
%>
</head>
<body bgcolor="#00B5EF" link="#000000" vlink="#000000" alink="#000000">
Tagwall:<br>
<br>
<form action="default.asp?mode=new" method="post">
Brugernavn: <input style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Tahoma" size=33 DISABLED value="<% If Session("login") = True Then Response.Write Session("brugernavn") Else Response.Write "<font color=black>Du er ikke logget ind - logind forfra.</font>" End If %>">
<br>Besked: <INPUT style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Tahoma" size=33 name=besked>
<br><br><INPUT style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #ffffff" type=submit value=Tag name=Tag> <a href="default.asp">Opdater</a> - Dine <a href="">funktioner</a> - Tagwall <a href="">regler</a> <% if session("brugernavn") = "Mikevi" then response.write " - <a href='../admin/tomtagsikker.htm'><font color=#000000>Tøm Tagwall</a></font>" end if %> <% if session("brugernavn") = "The Lead Admin" then response.write " - <a href='../admin5/tomtagsikker.htm'><font color=#000000>Tøm Tagwall</a></font>" end if %></form>
<%
DBPATH = "DBQ=" & Server.MapPath("../database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBPATH
If Request.QueryString("mode") = "new" Then
If Session("login") = True Then
brugernavn = Session("brugernavn")
Else
brugernavn = Request.Form("bruger") End If
oprettet = Now
besked1 = Request.Form("besked")
besked1 = Replace(besked1, "'", "''")
besked1 = Replace(besked1, vbCrLf, " ")
besked = besked1
If Session("login") = True Then
brugerid = Session("id")
Else brugerid = "0" End If
ip = Request.ServerVariables("REMOTE_ADDR")
If brugernavn="" Or besked="" Or brugerid="" then
Response.Write "<font color=black>Glemte <b>du</b> ikke at skrive noget. Skriv noget en anden gang.</font>"
Else
strSQL="INSERT INTO tagwall (brugernavn,oprettet,besked,brugerid,ip) VALUES('" & brugernavn & "','" & oprettet & "','" & besked & "','" & brugerid & "','" & ip & "')"
Conn.Execute(strSQL)
Response.Redirect ""
End If
End If
Set Conn = Nothing
%>
<%
Else
Response.Write "<font color=black></font>"
End If
%>
<%
If Session("login") = true Then
%>
<br><br>
<% if mode = "" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database.mdb")
strSQL = "SELECT * FROM tagwall order by id desc"
Set rs = myConn.Execute(strSQL)
Do until rs.eof %>
<a href="../profil.asp?id=<%=RS("brugerid")%>"><%=Server.HtmlEncode(rs("brugernavn"))%></a> skrev den <i><%=Server.HtmlEncode(rs("oprettet"))%></i>
<% if session("brugernavn") = "Mikevi" then response.write " - <a href='../admin/slet_tag.asp?id=" & rs("id") & "' style='text-decoration: none'><font color=#000000><u>Slet tag</u></a></font>" end if %> <% if session("brugernavn") = "The Lead Admin" then response.write " - <a href='../admin5/slet_tag.asp?id=" & rs("id") & "' style='text-decoration: none'><font color=#000000><u>Slet tag</u></a></font>" end if %><br>
<%=byt(rs("besked"))%><hr style="BORDER-RIGHT: #333333 3px dotted; BORDER-TOP: #333333 3px dotted; BORDER-LEFT: #333333 3px dotted; BORDER-BOTTOM: #333333 3px dotted" color="#d4dfec" SIZE="1">
<%
rs.movenext
loop
myConn.Close
Set myConn = Nothing
end if %><%
Else
Response.Write "Du er ikke logget ind."
End If
%>
Det er hele koden med skriv indlæg osv.
Ny bruger
Nybegynder
Opret
Preview
