Chat problem

Du mangler et > efter linket:
strLink = ("<a href='bruger.asp?id=" & rs("Id") & "'>")

Endvidere kan jeg ikke se hvad du vil med din IF sætning (den om brugeren hedder Gæst), for der er jo ingen forskel på hvordan navnet blir udskrevet!

Jeg tror du mener dette:

strNavn =  rs("Brugernavn")
strBesked = rs("Besked")
strTid = rs("Tid")

if strNavn <> "Gæst" then
  strNavn = "<a href='bruger.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
end if
response.write "<font style='font-size: 12px; color: white;'>"& strTid & " - <i>"& strNavn &"</i><br>" & strBesked & "</font><hr color='black' size='1'>"

Det er fordi hvis man ikke er logget ind bliver man gæst og hvis er man logget ind er man ens brugernavn.

Fik det lavet selv.

1)
Jeg oprettede et nyt felt i min datase. Kaldte den BrugerID

2)
Jeg satte den til at gemme det brugernavn man er logget ind med i BrugerID.

3)
Rettede link koden

4)
Testede og virkede

Koden er:

<%
action = REQUEST.QUERYSTRING("action")

if action = "send" then
if Request.Form("Besked") = "" then
response.write("<font color='white'>Du skal skrive noget</font>")
else
dim tid
tid = Time()

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/brugersystem.mdb")
Conn.Open DSN

strSQL = "Insert into chat (Besked, Brugernavn, tid, Brugerid) values('" & Request.Form("Besked") & "', '" & request.form("FraBruger") & "', '"& tid &"', '" & request.form("BrugerID") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
end if
end if
%>
<form method="post" action="chat.asp?action=send">
<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
%>
<input type="hidden" name="BrugerID" value="<% response.write rs("Id") %>">
<%
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>
<%
If isEmpty(Session("UserID")) Then
%>
<input type="hidden" name="FraBruger" value="Gæst" id="loginform">
<% else %>
<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
%>
<input type="hidden" name="FraBruger"  id="loginform" value="<% response.write rs("Brugernavn") %>">
<%
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>
<% end if %>
<input type="text" name="Besked" id="loginform"><input type="submit" value="Send">
</form>

¨Så glemte jeg et svar:)