Status halloj
Hej alle sammen.Jeg har et asp community som jeg gerne vil have et status system noget ind i.
Jeg har oprettet feltet status. Nu er spørgsmålet i tagwallen skal den selvfølgelig også skrive statusen.
Tagwallen er her:
<head>
<title>Community > Tagwall</title>
</head>
<!--#include file="include.asp" -->
<body bgcolor="#DEE7F7" link="#000000" vlink="#000000" alink="#000000"><font face="Verdana" size="1">
<%
Session.LCID = 1030
%>
<%
If Session("login") = true Then
%>
<form action="default.asp?mode=new" method="post">
<font face="Verdana" size="1">
<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" name="besked" value="Din besked" onFocus="if(this.value=='Din besked'){this.value=''}" onBlur="if(this.value==''){this.value='Din besked'}" size="34">
<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> <BUTTON 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" class=button onclick="window.location='default.asp'">Opdatér</BUTTON>
<BR><BR>
<%
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><b>Du</b> skal huske at skrive noget!</font>"
Else
strSQL="INSERT INTO tagwall (brugernavn,oprettet,besked,brugerid,ip) VALUES('" & brugernavn & "','" & oprettet & "','" & besked & "','" & brugerid & "','" & ip & "')"
Conn.Execute(strSQL)
Response.Redirect("default.asp")
End If
End If
Set Conn = Nothing
%>
<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 top 35 * FROM tagwall order by id desc"
Set rs = myConn.Execute(strSQL)
Do until rs.eof %>
<I>#<%=rs("id")%></I> <B><a href="../profil.asp?id=<%=RS("brugerid")%>"><%=Server.HtmlEncode(rs("brugernavn"))%></a></B> d.<%= "" & Day(rs("oprettet")) & " " & MonthName(Month(rs("oprettet"))) & " " & FormatDateTime(rs("oprettet"),3) & "" %></font>
<br><%=byt(rs("besked"))%><hr style="BORDER-RIGHT: #000000 3px dotted; BORDER-TOP: #000000 3px dotted; BORDER-LEFT: #000000 3px dotted; BORDER-BOTTOM: #000000 3px dotted" color="#000000" SIZE="1"><BR>
<%
rs.movenext
loop
myConn.Close
Set myConn = Nothing
end if %><%
Else
Response.Write "Logind*"
End If
%>
Nogen der kan sætte status ind.
NB: Jeg har haft en bruger på Eksperten så dem der vil svine mig til syntes jeg de skal smutte fra mit spørgsmål.
