Hvis profilen ikke findes

Prøv at skrive den kode, som henter brugeren fra databasen - altså den kode, der giver fejl. =)
------------
En søgefunktion er et lidt større projekt, og jeg vil foreslå, at du opretter et nyt spørgsmål angående det.

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

strSQL = "Select * From Bruger where id='" & request.querystring("id") & "'"
Set rs = Conn.Execute(strSQL)


------------------
<%
if request.querystring("Finder") = "Sendt" then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/code/db/system.mdb")
Conn.Open DSN

strSQL = "Select * From Bruger where brugernavn='" & request.form("Finder") & "'"
Set rs = Conn.Execute(strSQL)
do
%>
<tr>
<td onmouseover="this.className='FOver'" onclick="location.href='Profile.asp?id=<%= rs("id") %>'" onmouseout="this.className='Out'" class="Out"><%= rs("Brugernavn") %></td>
</tr>
<%
  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

else
response.write("Skriv den person du vil finde")
end if
%>

Der er søgefunktionen også:O=

if rs.bof or rs.eof then
  response.write "ingen profil"
else
  do while not rs.eof
    ' din kode
    rs.movenext
  loop
end if

Ellers vil den afvikle koden 1 gang, før den finder ud af, at der ikke er nogen poster..

Brug LIKE til søgningen:
brugernavn = replace(request.form("Finder"), "'", "''") ' sikkerhed

where brugernavn Like '" & brugernavn & "%'"

(mener jeg at det er)

Et godt råd:

Bruger aldrig brugerens input direkte i din SQL sætning.

Hvis brugeren indtastet '-tegnet, går din kode i stykker.

Erstat derfor altid '-tegnet med 2 gange '-tegn, og put værdien i en variabel.

Eksempel: brugernavn = replace(request.form("Finder"), "'", "''")

Jeg går ud fra, at det løser dine problemer, og lægger hermed et svar :-)

Søge funktionen virker ikke:'/ Min kode ser rigtig ud
<%
dim brugernavn
brugernavn = replace(request.form("Finder"), "'", "''")
if request.querystring("Finder") = "Sendt" then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/code/db/system.mdb")
Conn.Open DSN

strSQL = "Select * From Bruger where brugernavn Like '" & brugernavn & "'"
Set rs = Conn.Execute(strSQL)
if rs.bof or rs.eof then
response.write("Ingen bruger kunne findes")
else
  do while not rs.eof
%>
<tr>
<td onmouseover="this.className='FOver'" onclick="location.href='Profile.asp?id=<%= rs("id") %>'" onmouseout="this.className='Out'" class="Out"><%= rs("Brugernavn") %></td>
</tr>
<%
    rs.movenext
  loop
end if
Conn.Close
Set Conn = Nothing

else
response.write("Skriv den person du vil finde")
end if
%>

Det er da klart når du ikke bruger %-tegnet.. det skal se sådan ud:

where brugernavn Like '" & brugernavn & "%'"

Ok, tak troede bare det var en fejl:P

Hehehe.. :-)

Takker for points :-)