Avatar billede terib Nybegynder
05. februar 2004 - 14:53 Der er 7 kommentarer og
1 løsning

Hvordan fortsætter man

Jeg har et script hvor man kan logge ind. hvis brugernavn og password er rigtigt redirectes men til den side hvor koden er vist underneden.
Den virker også fint, MEN jeg vil gerne have vist indholdet af en tabel fra den samme DB lidt under.
Tabellen hedder tblMin - der er fem felter med poster i ....Første felt er Navn - Efternavn - Adresse - postnr - bynavn

Er der en der kan hjælpe ?

<%
              'skaber forbindelse til database
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-bin/liste.mdb")

' hvis man vil logge ud lukkes ens session her
if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("default.asp")
end if

'tjekker at en session findes - ellers bliver man afvist
IF Session("username-session") = "" Then
Response.Redirect("default.asp")
end if

' udfører en specifik søgning i databasen
Sql = "Select * FROM login WHERE brugernavn = '" & session("username-session") & "'"
set rs = rs.Execute(SQL)

    Response.Write "Hej - du er nu logget ind som <b>" & RS("brugernavn") & "</b><br><br>"

        Response.Write "<a href='loggedin.asp?mode=logaf'>Log af</a> &nbsp; "

'opretter en specielt menu hvis session er lig med brugernavnet test
if session("username-session") = "test" then
    Response.Write "<a href='opret.asp'>Opret ny bruger</a> &nbsp; "
else
end if

        Response.Write "<a href='java script:history.back()'>Tilbage</a> &nbsp; "
        Response.Write "<a href='loggedin.asp'>Til start</a><br><br>"

    HER SKULLE DET GERNE VISES !!!!!!!!!!!!!!!!!!!

    ' Luk databaseforbindelse
    Conn.Close
    Set Conn = Nothing
    %>
Avatar billede nute Nybegynder
05. februar 2004 - 14:57 #1
er der en relation mellem 'login' tabellen og 'tblMin' tabellen ? hvis der ikke er det, så er det meget svært at vise navn, adresse, postnr og by for en bruger

/nute
Avatar billede terib Nybegynder
05. februar 2004 - 15:25 #2
Hej,
Det må du undskylde....det var kun eksempler på 5 felter. De 5 felter der skal vises har ikke noget med personen som er logget ind, og gøre.

Min fejl ! :-)
Avatar billede nute Nybegynder
06. februar 2004 - 11:38 #3
kan du ikke bare hente de data du vil have, og skrive dem ud, så  ? forstår ikke helt problematikken :-/
Avatar billede terib Nybegynder
06. februar 2004 - 15:53 #4
Hej - det er nok fordi det er mere simpelt end antaget..:-)
JEG har ikke en gnist forstand på ASP.....scriptet er noget genbrug jeg har fra en gratis skabelon - og det virker som jeg havde tænkt mig det skulle. Men jeg ville gerne have vist nogle data på samme side underneden.
Jeg har prøvet med dette - uden held :-( Derfor er jeg nødt til at spørge om hjælp.
' SQL forespørgsel
    Sql = "SELECT Ugenr, Aar, PlanteNavn, PotteStr, Bemaerkning
    FROM tblUdbud";

      ' Gå til næste Record i rs
      rs.MoveNext

    ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
    Loop While Not rs.EOF

    ' Luk databaseforbindelse
    Conn.Close
    Set Conn = Nothing
    %>
Avatar billede nute Nybegynder
06. februar 2004 - 16:25 #5
hmm ... måske sådan:

<%
'skaber forbindelse til database
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-bin/liste.mdb")

' hvis man vil logge ud lukkes ens session her
if request("Mode") = "logaf" then
    session.Abandon
    Response.Redirect("default.asp")
end if

'tjekker at en session findes - ellers bliver man afvist
IF Session("username-session") = "" Then
    Response.Redirect("default.asp")
end if

' udfører en specifik søgning i databasen
Sql = "Select * FROM login WHERE brugernavn = '" & session("username-session") & "'"
set rs = Conn.Execute(SQL)

Response.Write "Hej - du er nu logget ind som <b>" & RS("brugernavn") & "</b><br><br>"

Response.Write "<a href='loggedin.asp?mode=logaf'>Log af</a> &nbsp; "

'opretter en specielt menu hvis session er lig med brugernavnet test
if session("username-session") = "test" then
    Response.Write "<a href='opret.asp'>Opret ny bruger</a> &nbsp; "
else
end if

Response.Write "<a href='java script:history.back()'>Tilbage</a> &nbsp; "
Response.Write "<a href='loggedin.asp'>Til start</a><br><br>"

'HER SKULLE DET GERNE VISES !!!!!!!!!!!!!!!!!!!
Sql = "SELECT Ugenr, Aar, PlanteNavn, PotteStr, Bemaerkning FROM tblUdbud"
set rs = Conn.Execute(SQL)

while not rs.EOF
    Response.Write( rs("Ugenr") & ", " & rs("Aar") & ", " & rs("PlanteNavn") & "..." )
    rs.movenext
wend
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

ellers vil jeg råde dig til at læse lidt om dette her ... det bør være ligetil:

http://html.dk/tutorials/asp/lektion19.asp

/nute
Avatar billede terib Nybegynder
07. februar 2004 - 17:20 #6
læg et svar hvis du vil have point !
Avatar billede nute Nybegynder
08. februar 2004 - 01:02 #7
hmm ... "svar"
Avatar billede nute Nybegynder
08. februar 2004 - 01:02 #8
hehe
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester