Avatar billede nicce Nybegynder
29. marts 2001 - 11:22 Der er 35 kommentarer og
2 løsninger

Data fra db til form??

hejsa jeg vil lige starte med at sige jeg er en asp begynder:-)

jeg sidder og prøver på at hente oplysninger op fra min database ved hjælp af sessions( aner ikke om det er muligt!)


jeg har prøvet lidt af hvert, men jeg kan ikke få det til at virke :-(

når først jeg har fået koden op i formen, så kan jeg godt finde ud af at få den smidt ned igen:-)

Koden ser nok lidt underlig ud for jer super aspére :-) men jeg har prøvet lidt af hvert, og jeg synes ikke det ser helt håbløst ud, meeeen!

dette er koden jeg sidder og arbejder med:

\'<%
mode = Request(\"mode\")
Response.Buffer = True

//Tjecker om brugeren er logget ind!
if session(\"Navn\") = \"\" then Response.Redirect(\"default.asp?error=Du er ikke logget ind!\") end if


\'Henter kunde Nr ud fra session(KAN MAN DET)

Nr = session(\"Navn\")

\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
\'%>

<html>
<head>

<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Ret dine bruger info</title>
</head>
<body bgcolor=black TEXT=\"white\">
<% if mode = \"\" then %>
<form method=\"post\" action=\"opret2.asp?mode=hent\">
<input type=\"Hidden\" name=\"Navn\" value=\"<%= (\"Nr\") %>\">
<input type=\"submit\" value=\"Hent mine informationer\">
<% end if %>

<% if mode = \"hent\" then

\'//Connection
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
    strSQL = \"SELECT * FROM Kunde where Nr = \'\" & Request.form(\"Navn\") & \"\'\"
    Set rs = Conn.Execute(strSQL)

%>
<div align=\"center\">
  <center>

  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"83%\" height=\"247\">
    <tr>
      <td width=\"38%\" height=\"247\"></td><td width=\"24%\" height=\"247\">
            <form method=post action=opret2.asp?mode=valider>
            <p align=\"center\">&nbsp;
            <p align=\"center\"><b>
            <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
            <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
                <center>
    <p align=\"center\">&nbsp;
<p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
</form>
    </center>
                </td>
      <td width=\"38%\" height=\"166\"></td>
    </tr>
  </table>
</div>
<%
end if
Conn.Close
set Conn = Nothing
%>

</body>
</html>





Avatar billede nute Nybegynder
29. marts 2001 - 11:25 #1
hvorfor skal du absolutt bruke sessions ?
Avatar billede spectual Nybegynder
29. marts 2001 - 11:28 #2
Du behøver ikke bruge sessions. Brug ikke sessions medmindre det er streng nødvendigt, ligsom at du kun bør åbne en forbindelse til din database én gang pr. side / evt. én gang overhovedet (ved at placere i global.asa).

Men hvad er det egentlig du ikke kan få til at virke?
Avatar billede nicce Nybegynder
29. marts 2001 - 11:29 #3
det skal jeg vel heller ikke absolut, men det var bare en ide jeg fik.

jeg oprette en session på login ind siden:

\'//Hvis kodeordet matcher kodeordet i databasen
            if rs(\"password\") = Request.form(\"kodeord\") then
            \'Laver session, med brugernavn og id
            session(\"Navn\") = rs(\"Navn\")
            session(\"id\") = rs(\"Nr\")
            session(\"login\") = yes
            Response.Redirect(\"logged_in.asp\")



så derfor ken jeg vel bruge det ?
Avatar billede spectual Nybegynder
29. marts 2001 - 11:30 #4
Set rs = Conn.Execute(strSQL)

ville jeg ændre til

set rs = server.createobject (\"ADODB.Recordet\")
rs.open sqlstr, connect

Fjern alle

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

og placér én i toppen
Avatar billede spectual Nybegynder
29. marts 2001 - 11:31 #5
ups:

set rs = server.createobject (\"ADODB.Recordet\")

skulle være

set rs = server.createobject (\"ADODB.Recordset\")
Avatar billede nute Nybegynder
29. marts 2001 - 11:31 #6
du kan bruke session til å holde styr på om en bruker er logget inn eller ikke....det er helt ok, men alle dine database-ting, bør du hente ut via SQL statement under runtime...

/nute
Avatar billede nicce Nybegynder
29. marts 2001 - 11:32 #7
jeg kan ikke få oplysningerne , Navn, Adresse o.s.v ind i Formens tilhørende textfelter..
jeg vil lave det så de brugere der allerede er oprettet kan ændre deres oplysninger
Avatar billede nute Nybegynder
29. marts 2001 - 11:34 #8
SQL = \"SELECT * FROM Kunde WHERE Navn = \" & Session(\"Navn\")

rs.open SQL, Conn

email = rs(\"email\")
adresse = rs(\"adresse\")
osv...

deretter putter du dem inn i dine formfields sånn du har gjort:

<input type=\"text\" name=\"email\" value=\"<%= email %>\">

/nute
Avatar billede spectual Nybegynder
29. marts 2001 - 11:35 #9
Prøv det her og meld tilbage om det virker / evt. fejlmeddelse:

<html>
<head>

<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Ret dine bruger info</title>
</head>

<%
mode = Request(\"mode\")
Response.Buffer = True

//Tjecker om brugeren er logget ind!
if session(\"Navn\") = \"\" then Response.Redirect(\"default.asp?error=Du er ikke logget ind!\")

\'Henter kunde Nr ud fra session(KAN MAN DET)

Nr = session(\"Navn\")

\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
\'%>

<body bgcolor=black TEXT=\"white\">
<% if mode = \"\" then %>
<form method=\"post\" action=\"opret2.asp?mode=hent\">
<input type=\"Hidden\" name=\"Navn\" value=\"<%= (\"Nr\") %>\">
<input type=\"submit\" value=\"Hent mine informationer\">
<% end if %>

<% if mode = \"hent\" then

\'//Connection

strSQL = \"SELECT * FROM Kunde where Nr = \'\" & Request.form(\"Navn\") & \"\'\"
set rs = server.createobject (\"ADODB.Recordset\")
rs.open sqlstr, conn

%>
<div align=\"center\">
  <center>

  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"83%\" height=\"247\">
    <tr>
      <td width=\"38%\" height=\"247\"></td><td width=\"24%\" height=\"247\">
            <form method=post action=opret2.asp?mode=valider>
            <p align=\"center\">&nbsp;
            <p align=\"center\"><b>
            <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
            <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
                <center>
    <p align=\"center\">&nbsp;
<p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
</form>
    </center>
                </td>
      <td width=\"38%\" height=\"166\"></td>
    </tr>
  </table>
</div>
<%
end if
rs.close
Conn.Close
set Conn = Nothing
set rs = nothing
%>

</body>
</html>
Avatar billede spectual Nybegynder
29. marts 2001 - 11:36 #10
Hvad indeholder sektionsvariabelen \"navn\"?

Er det et tal eller en streng?
Avatar billede nute Nybegynder
29. marts 2001 - 11:38 #11
bare et par ting jeg legger merke til:

1) du skriver: <input type=\"Hidden\" name=\"Navn\" value=\"<%= (\"Nr\") %>\">

det kan ikke stå <%= (\"Nr\") %>...men <%= Nr %>

2) du skriver

strSQL = \"SELECT * FROM Kunde where Nr = \'\" & Request.form(\"Navn\") & \"\'\"

for meg er det ikke en logisk mapping...\'where nr = navn\'...hmmm....bør det ikke være noe alá \'where nr = nr\' ??

3) i samme som ovenfor...hvis Nr er et tall, skal du ikke benytte \' rundt din verdi...jeg tror faktisk problemet ditt er at du ikke får noe resultat av din SQL statement....kan dette stemme ?

/nute
Avatar billede spectual Nybegynder
29. marts 2001 - 11:39 #12
Hvis \"navn\" kommer fra en form skal du ikke bruge session, men request a lá:

nr = cint (request (\"navn\"))
Avatar billede nute Nybegynder
29. marts 2001 - 11:40 #13
spectual >> kan det ikke se ut som om han mixer sine variabel navn og type endel ?
Avatar billede spectual Nybegynder
29. marts 2001 - 11:41 #14
Bemærk også at du ikke har ret meget fejlhåndtering. Hvis folk bruger \' i deres navn vil dit skript gå ned.

Hvis brugeren går direkte ind på siden vil den vist også nok gå ned.
Avatar billede spectual Nybegynder
29. marts 2001 - 11:42 #15
Måske har han misforstået begrebet sektionsvariabler.
Avatar billede nicce Nybegynder
29. marts 2001 - 11:44 #16
jeg skriver det lige igen:
jeg er asp begynder :-) jeg er meget forvirret ligenu!

NUte: jeg prøvede det du skrev, men der skete ikke noget, det kommer stadig ikke noget frem efter jeg klikker på hent info..



<%
\'mode = Request(\"mode\")
\'Response.Buffer = True
\'//Tjecker om brugeren er logget ind!
\'if session(\"Navn\") = \"\" then Response.Redirect(\"default.asp?error=Du er ikke logget ind!\") end if


\'Henter kunde Nr ud fra session(\"Navn\")
Nr = session(\"Navn\")

\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
\'%>

<html>
<head>

<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Ny Merrild NetKunde.</title>
</head>
<body bgcolor=black TEXT=\"white\">
<% if mode = \"\" then %>
<form method=\"post\" action=\"opret2.asp?mode=hent\">
<input type=\"Hidden\" name=\"Navn\" value=\"<%= (\"Nr\") %>\">
<input type=\"submit\" value=\"Hent mine informationer\">
<% end if %>

<% if mode = \"hent\" then

    SQL = \"SELECT * FROM Kunde WHERE Navn = \" & Session(\"Navn\")

rs.open SQL, Conn

Navn = rs(\"Navn\")
Adresse = rs(\"Adresse\")
Email = rs(\"Email\")
Login = rs(\"Login\")
Password = rs(\"Password\")




%>
<div align=\"center\">
  <center>

  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"83%\" height=\"247\">
    <tr>
      <td width=\"38%\" height=\"247\"></td><td width=\"24%\" height=\"247\">
            <form method=post action=opret2.asp?mode=valider>
            <p align=\"center\">&nbsp;
            <p align=\"center\"><b>
            <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
            <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Navn\") %>\">Navn</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
                <center>
    <p align=\"center\">&nbsp;
<p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
</form>
    </center>
                </td>
      <td width=\"38%\" height=\"166\"></td>
    </tr>
  </table>
</div>
<%
end if
Conn.Close
set Conn = Nothing
%>

</body>
</html>
Avatar billede nicce Nybegynder
29. marts 2001 - 11:45 #17
spectual:
din kode lavede denne fejl:

Der opstod en Microsoft VBScript-kompileringsfejl error \'800a0400\'

En sætning var ventet

/aspa/update22.asp, line 14

//Tjecker om brugeren er logget ind!
^
Avatar billede nicce Nybegynder
29. marts 2001 - 11:47 #18
grunden til at jeg overhovedet har den form med i starten er at jeg ikke kunne finde ud af at få den session med...i er meegt velkomne til at lave en bedre løsning:-)

jeg er tilbage om 15min..skal lige spise
Avatar billede spectual Nybegynder
29. marts 2001 - 11:52 #19
Skift den til

\'Tjecker om brugeren er logget ind!
Avatar billede nute Nybegynder
29. marts 2001 - 11:54 #20
i mitt hode bør dette fungere (litt forenklet versjon) *hvis* din session-variabel inneholder det den skal...

<%
mode = Request(\"mode\")
Response.Buffer = True

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

//Tjecker om brugeren er logget ind!
if session(\"Navn\") = \"\" then
  Response.Redirect(\"default.asp?error=Du er ikke logget ind!\")
else
  Nr = session(\"Navn\")
    if mode = \"\" then
      %>
        <form method=\"post\" action=\"?mode=hent\">
        <input type=\"Hidden\" name=\"Nr\" value=\"<%= Nr %>\">
        <input type=\"submit\" value=\"Hent mine informationer\">
      <%
    else
    strSQL = \"SELECT * FROM Kunde where Nr = \" & Request.form(\"Nr\")
    Set rs = Conn.Execute(strSQL)
       
        if not RS.EOF then
          %>
      <form method=post action=?mode=valider>
      <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
      <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
      <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>
      <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
      <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
      <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
      <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
            <p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
            </form>           
            <%
        end if
    end if
end if

Conn.Close
set Conn = Nothing
%>

/nute
Avatar billede spectual Nybegynder
29. marts 2001 - 11:57 #21
Prøv den her version:

<html>
<head>

<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Ret dine bruger info</title>
</head>

<%
mode = Request(\"mode\")
Response.Buffer = True

\'Tjekker om brugeren er logget ind!
if session(\"Navn\") = \"\" then Response.Redirect(\"default.asp?error=Du er ikke logget ind!\")

\'Henter kunde Nr ud fra session(KAN MAN DET)

navn = session(\"Navn\")

\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
\'%>

<body bgcolor=black TEXT=\"white\">

<% if mode = \"hent\" then

\'//Connection

strSQL = \"SELECT * FROM Kunde where Nr = \'\" & navn & \"\'\"
set rs = server.createobject (\"ADODB.Recordset\")
rs.open sqlstr, conn

%>
<div align=\"center\">
  <center>

  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"83%\" height=\"247\">
    <tr>
      <td width=\"38%\" height=\"247\"></td><td width=\"24%\" height=\"247\">
            <form method=post action=opret2.asp?mode=valider>
            <p align=\"center\">&nbsp;
            <p align=\"center\"><b>
            <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
            <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
                <center>
    <p align=\"center\">&nbsp;
<p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
</form>
    </center>
                </td>
      <td width=\"38%\" height=\"166\"></td>
    </tr>
  </table>
</div>
<%
else
response.write (\"Siden er blevet kaldt med ufuldstændige oplysninger.\"):response.end
end if

rs.close
Conn.Close
set Conn = Nothing
set rs = nothing
%>

</body>
</html>
Avatar billede spectual Nybegynder
29. marts 2001 - 11:59 #22
>>nute:

Se den her linje:

<p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>

Nr er åbenbart lig med Navn
Avatar billede nute Nybegynder
29. marts 2001 - 12:00 #23
nicce/spectual >> response.redirect vil ikke fungere fordi det allerede er skrevet noe HTML til siden...

/nute
Avatar billede nute Nybegynder
29. marts 2001 - 12:01 #24
spectual >> les min post 29/03 2001 11:38:51  punkt 2)

/nute
Avatar billede spectual Nybegynder
29. marts 2001 - 12:02 #25
<%
\'Tjekker om brugeren er logget ind!
if session(\"Navn\") = \"\" then Response.Redirect(\"default.asp?error=Du er ikke logget ind!\")
%>

<html>
<head>

<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Ret dine bruger info</title>
</head>

<%
mode = Request(\"mode\")
Response.Buffer = True

\'Henter kunde Nr ud fra session(KAN MAN DET)

navn = session(\"Navn\")

\'//Connection
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
\'%>

<body bgcolor=black TEXT=\"white\">

<% if mode = \"hent\" then

\'//Connection

strSQL = \"SELECT * FROM Kunde where Nr = \'\" & navn & \"\'\"
set rs = server.createobject (\"ADODB.Recordset\")
rs.open sqlstr, conn

%>
<div align=\"center\">
  <center>

  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"83%\" height=\"247\">
    <tr>
      <td width=\"38%\" height=\"247\"></td><td width=\"24%\" height=\"247\">
            <form method=post action=opret2.asp?mode=valider>
            <p align=\"center\">&nbsp;
            <p align=\"center\"><b>
            <font color=\"#FFFFFF\" face=\"Verdana\" size=\"2\">Indtast Oplysningerne:</font></b><br>
            <font color=yellow size=2><%=Request.Querystring(\"error\")%></font><br></center>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Nr\") %>\">Navn</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Adresse\") %>\">Adresse</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Email\") %>\">Email</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Login\") %>\"> Login</b>
                <p align=\"left\"><b><input type=\"text\" name=\"Navn\" value=\"<%= rs(\"Password\") %>\"> Password</b>
                <center>
    <p align=\"center\">&nbsp;
<p align=\"center\"><input type=\"Submit\" value=\"Tilføj Mig!\">
</form>
    </center>
                </td>
      <td width=\"38%\" height=\"166\"></td>
    </tr>
  </table>
</div>
<%
else
response.write (\"Siden er blevet kaldt med ufuldstændige oplysninger.\"):response.end
end if

rs.close
Conn.Close
set Conn = Nothing
set rs = nothing
%>

</body>
</html>
Avatar billede nicce Nybegynder
29. marts 2001 - 12:14 #26
Nute:i mitt hode bør dette fungere (litt forenklet versjon) *hvis* din session-variabel inneholder det den skal...



jeg kan íkke få det til at virke..jeg får denne fejl:

Response object error \'ASP 0156 : 80004005\'

Header Error

/aspa/update_new2.asp, line 14

The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

Avatar billede nicce Nybegynder
29. marts 2001 - 12:19 #27
spectual, jeg får den samme fejl i din kode
Avatar billede nicce Nybegynder
29. marts 2001 - 12:21 #28
dette er hele login koden, hvis det kan hjælpe:

<%
mode = Request(\"mode\")
Response.Buffer = True

%>
<html>
<head>
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"merrild.css\">
<!-- Minus AutoDato -->
<title>Login</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body>
<% if mode = \"\" then %>
<br><br><br>
<DIV STYLE=\"text-align:center\"><font color=\"white\" size=3><B>Login</B></font><br><font size=2 color=red><%=Request.Querystring(\"error\")%></font><br>
<form method=post action=start.asp?mode=Authenticate>
Brugernavn: <input type=text name=LoginNavn><br>
Kodeord: <input type=text name=Kodeord>
<input type=submit value=Login><br><br>
<a href=opret2.asp>Opret ny bruger</a><br>
</form></DIV>
<% end if %>

<% if mode = \"Authenticate\" then
    \'//Connection til databasen!
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kaffe.mdb\")
    strSQL = \"SELECT * FROM Kunde where Login = \'\" & Request.form(\"LoginNavn\") & \"\'\"
    Set rs = Conn.Execute(strSQL)
       
\'//Hvis der ingen bruger findes med det ønskede navn
        If rs.BOF Or rs.EOF Then
        Response.Redirect(\"start.asp?error=Ingen bruger med det navn!\")
        end if
           
            \'//Hvis kodeordet matcher kodeordet i databasen
            if rs(\"password\") = Request.form(\"kodeord\") then
            \'Laver session, med brugernavn og id
            session(\"Navn\") = rs(\"Navn\")
            session(\"id\") = rs(\"Nr\")
            session(\"login\") = yes
            Response.Redirect(\"logged_in.asp\")
                       
            else
            \'//Hvis kodeordet var forkert!
            Response.Redirect(\"start.asp?error=Du har indtastet forkert password!\")
            end if

    \'//Lukker connection
    Conn.Close
    Set Conn = Nothing
end if %>

</body>
</html>
Avatar billede spectual Nybegynder
29. marts 2001 - 12:30 #29
nicce - den nyeste?
Avatar billede nicce Nybegynder
29. marts 2001 - 12:36 #30
hvad mener du? ovenstående kode er der hvor man logger sig ind og sessionen bliver oprettet.

jeg postede den bare da den måske kunne hjælpe dig/jer?
Avatar billede nicce Nybegynder
29. marts 2001 - 12:52 #31
jeg håber i kan hjælpe mig:-)
Avatar billede nicce Nybegynder
29. marts 2001 - 12:58 #32
Spectual: den nyeste kode, kan jeg ikke få til at fungere:-()

den kan ikke finde siden siger den?
Avatar billede spectual Nybegynder
29. marts 2001 - 14:17 #33
nicce - jeg er til eksamen i øjeblikket, men hvis du sender mig alt (databaser, grafik, sider m.m.) skal lave gerne lave det for dig så det virker til midten af næste uge.
Avatar billede nicce Nybegynder
29. marts 2001 - 17:45 #34
Spectual: hej igen, jeg har fået lor... til at virke:)
man mange tak for dit og nutes forsøg:-)

nicce
Avatar billede spectual Nybegynder
02. april 2001 - 08:39 #35
så kan du jo godt lukke spørgsmålet :-)
Avatar billede nicce Nybegynder
02. april 2001 - 09:05 #36
ja det ville jeg også gerne, men hvordan gør jeg?
Avatar billede nute Nybegynder
02. april 2001 - 09:18 #37
du gir poeng til dem du synes skal ha poeng...
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