Hente fra database med WHERE session=

manglede "'" i slutningen af sql:
strSQL = "Select * from users WHERE user = '" & Session("uName") & "'"

og "user" er vist et reserveret ord.. bruger [user] i stedet.. tror jeg :)

Er det iorden med dig hvis jeg lige bygger et spørgsmål mere på, nu er det jo 100point?

Men ellers din løsning virker.

Ja, jeg skal se om jeg kan svare :)

Hvorfor virker dette ikke?

<%
' Databaseforbindelse - husk at angive sti til din database
Dim Conn, DSN, sql, str, strSQL, rs
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("****************.mdb")
Conn.Open DSN

If Session("loggedIn") = "Yes" And Session("uName") <> "" Then
' SQL forespørgsel
strSQL = "Select * from users WHERE user = '" & Session("uName") & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

if rs("first")="0" Then
Response.Write(" <a target=""_blank"" href=""www.jubii.dk"">HER</a><br>")

' Specielle muligheder efter rang.
If rs ("rang")="2" Then
Response.Write( "<a target=""_blank"" href=""fileace/fileace.asp"">Åben Filmanager</a><br>")
Response.Write("<a target=""_blank"" href=""../nyheder/admin/login.asp"">Nyheds-admin modul</a><br>")
Response.Write("<a target=""_blank"" href=""../stats/default.asp"">Site Stats</a><br>")

End If

%>

det giver denne fejl

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/usersystem/Default.asp, line 118

det er efter tilføjelsen af dette

if rs("first")="0" Then
Response.Write(" <a target=""_blank"" href=""www.jubii.dk"">HER</a><br>")

at fejlen kommer

End If
End If
%>

Hvis du har en IF-sætning på 1 linie, skal du ikke bruge End If.
Hvis du har en IF-block, der strækker sig over mere end 1 linie, skal du bruge End If.

Eksempel..

Sætning:
if navn = "hans" then response.write "hej hans"

Blok:
if navn = "hans" then
  response.write "hej hans"
end if

ja selvfølig

TAKKER

husk lige at lig et svar, kan jo også være at jeg smidet et lillet extra spm. på mere.

men lig lige et svar

Her er et svar :)

Lige en ting til når jeg nu laver denne

If Session("loggedIn") = "Yes" And Session("uName") <> "" Then
  Response.Write( "Velkommen<b> " & Session("uName") & "</b>.<br><br>")

Kan jeg så gøre at Session("uName") - at Navnet altid bliver skrevet med STORT begyndelsesbogsav?

Prøv med:
Response.Write( "Velkommen<b> " & Ucase(Left(Session("uName"), 1)) & mid(Session("uName"), 2) & "</b>.<br><br>")

Jep det virkede.

Jeg har en formular der skriver i en database, hvordan laver jeg en resultat side hvor jeg brugeren kan se hvad han/hun lige har submitet?

Eksempel:

response.write "Du har submittet:<br>"
response.write "Navn: " & request.form("navn") & "<br>"
response.write "Adresse: " & request.form("adresse")
' osv..

Nu har jeg ikke set din form, så jeg ved ikke hvilke værdier du har..

jeg kunne godt bruge din expertice her http://www.eksperten.dk/spm/457686

Kommentar er skrevet :)