Søg
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 11:22 Der er 31 kommentarer og
1 løsning

Hjælp til Login!

Jeg har en DB hvor der er flere logins i....

Men de vil ikke logge ordentlig ind:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsKodeord
Dim Login
Dim Password

set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact where login=" & Request.form("LOGIN")
rsKodeord.open SQL_String, Conn

If Session("login") <> "JA" Then
    If Request.form("LOGIN") = CStr(rsKodeord("login")) AND Request.Form("password") = Cstr(rsKodeord("password")) Then
      Session("Customer") = rsKodeord("customer")
      Session("contact") = rsKodeord("contact")
      Session("LoginID") = rsKodeord("Login")
      Session("login") = "JA"
      Session.Timeout = 30
    Else
      Session("login") = "NEJ"
      Session.Timeout = 30
      Response.Redirect "http://www.dr.dk"
    End If
end iF

%>
Avatar billede hiks Nybegynder
14. oktober 2004 - 11:58 #1
hej

måske det at du tester:

If Session("login") <> "JA" Then

- før du tjekker det i databasen!

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 12:21 #2
Se fejlen her:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'login=50050lp'.

/forsiden.asp, line 24
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 12:21 #3
Og jeg ved at 50050lp findes i DB'en!
Avatar billede hiks Nybegynder
14. oktober 2004 - 12:28 #4
prøv "Select * from contact where login= '" & Request.form("LOGIN") & "';"

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 12:33 #5
Ja den logger fint ind nu... men hvordan kan jeg smartest overfører det fra side til side???

Der går den nemlig galt....
Avatar billede hiks Nybegynder
14. oktober 2004 - 12:46 #6
Har lige kigget lidt mere igennem i din kodning. For at tjekke at folk er logget ind på dine efterfølgende sider/andre sider kan du gøre følgende

Lav en lille ASP-side du kan inkludere på dine andre sider vha en:

<!--#INCLUDE VIRTUAL="islogin.asp"-->

i islogin.asp har du så:

<%
If Session("Login") <> "Ja" then
    Session.Abandon
    Response.Redirect "http://dr.dk"
End if
%>

Rettet loginside:
<%
Function TjekStrings(strText) 'tjekker for at folk prøver at lave invalide stringværdien til databasen
   
    strText = Trim(strText)
    strText = Replace(strText, chr(34),"")
    strText = Replace(strText, chr(39),"")
   
    TjekStrings = strText
   
End Function

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

Dim rsKodeord, Login, Password

Login = TjekStrings(Request.form("LOGIN"))
Password = TjekStrings(Request.Form("password"))

set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact where login= '" & Login & "';"
rsKodeord.open SQL_String, Conn

If rsKodeord.EOF = False then
    If Password = Cstr(rsKodeord("password")) Then
        Session("Customer") = rsKodeord("customer")
        Session("contact") = rsKodeord("contact")
        Session("LoginID") = rsKodeord("Login")
        Session("Login") = "JA"
        Session.Timeout = 30
    Else
        Session.Abandon
        Session("login") = "NEJ"
        Response.Redirect "http://www.dr.dk"
    End If
Else
    Response.Write "Ingen brugere fundet med det navn!"
End if

%>
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:01 #7
øh... i hvilke filer skal hvad ligge???
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:03 #8
hvordan har du dine sider nu?

hvor kommer man hen efter man har logget på?

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:05 #9
Det her er forsiden:

<html>
<head>
<LINK href="style.css" rel="stylesheet" type="text/css">
<!--#INCLUDE VIRTUAL="islogin.asp"-->
<meta http-equiv="Content-Language" content="da">
<title>KE-Burgmann Bredan A/S MCAU Partner Site</title>
<style>
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 10 px; font-family: Arial}
</style>
</head>
<body topmargin="0" leftmargin="0" bgproperties="fixed" background="images/line.gif" link="#008000" vlink="#008000" alink="#008000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsKodeord
Dim Login
Dim Password

set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact where login='" & Request.form("LOGIN") & "';"
rsKodeord.open SQL_String, Conn

If Session("login") <> "JA" Then
    If Request.form("LOGIN") = CStr(rsKodeord("login")) AND Request.Form("password") = Cstr(rsKodeord("password")) Then
      Session("Customer") = rsKodeord("customer")
      Session("contact") = rsKodeord("contact")
      Session("LoginID") = rsKodeord("Login")
      Session("login") = "JA"
      Session.Timeout = 30
    Else
      Session("login") = "NEJ"
      Session.Timeout = 30
      Response.Redirect "http://www.dr.dk"
    End If
end iF

%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#050B51">
<tr>
    <td width="100%"><img border="0" src="images/logo.jpg"></td>
</tr>
</table>

<div align="center">
<p align="left"><font size="1" face="Arial">&nbsp;&nbsp;&nbsp;Logged in as: <%response.write rsKodeord("contact")%><br>
&nbsp;&nbsp;&nbsp;<font size="1" face="Arial">Customer Number: <% response.write rsKodeord("customer")%><br>
&nbsp;&nbsp;&nbsp;<font size="1" face="Arial">Your LoginID is: <% response.write rsKodeord("Login")%></font></p>

<center>

<div align="center">
&nbsp;<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber2" bgcolor="#FFFFFF">
<tr>
    <td width="100%">
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
    <td width="25%" height="20"><b><font face="Arial" size="2">Du har nu følgende valg:</font></b></td>
</tr>
<tr>
    <td height="20" bgcolor="#DCDCDC" width="25%"><font face="Arial" size="1"><%strLink = "<a href=orderliste.asp?customer=" & rsKodeord("login") & ">" & "Se Orderliste" & "</a>"
    response.write strLink %></font></td>
</tr>
<tr>
<td height="20" bgcolor="FFFFFF" width="25%"><font face="Arial" size="1"><%strNyLeveringsadresse = "<a href=adresseliste.asp?customer=" & Session("Customer") & "><font face='Arial' size='1'>" & "Delivery Adress" & "</a>"
    response.write strNyLeveringsadresse%>
</tr>
<tr>
    <td height="10" width="25%"></td>
</tr>
<tr>
    <td height="10" width="25%"><%strNyOrder = "<a href=orderadd.asp?customer=" & Session("Customer") & "><font face='Arial' size='1'>" & "New Quote" & "</a>"
    response.write strNyOrder%></td>
</tr>

    <td height="10" width="25%"><a href="java script:window.close();"><font face="Arial" size="1">Logout</font></td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

</div>
</div>
</div>
</font></font>
</div>
</body>
</html>
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:06 #10
Så kan man eks går til en anden side:

<html>
<head>
<LINK href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="da">
<title>KE-Burgmann Bredan A/S MCAU Partner Site</title>
<style>
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 10 px; font-family: Arial}
</style>
</head>
<body topmargin="0" leftmargin="0" bgproperties="fixed" background="images/line.gif" link="#008000" vlink="#008000" alink="#008000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsOrder

set rsOrder= server.Createobject("ADODB.Recordset")
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer")
rsOrder.open SQL_String, Conn

If Session("login") = "JA" Then
  Session("login") = Session("login")
  Session("Customer") = Session("Customer")
  Session("CustomerRef") = rsOrder("CustomerRef")
  Session("contact") = Session("contact")
  Session("LoginID") = Session("LoginID")
  Session.Timeout = 30
Else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Redirect "http://www.dr.dk"
End If
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#050B51">
<tr>
    <td width="100%"><img border="0" src="images/logo.jpg"></td>
</tr>
</table>

<div align="center">
<p align="left"><font size="1" face="Arial">&nbsp;&nbsp;&nbsp;Logged in as: <%response.write Session("contact")%><br>
&nbsp;&nbsp;&nbsp;<font size="1" face="Arial">Customer Number: <% response.write Session("customer")%><br>
&nbsp;&nbsp;&nbsp;<font size="1" face="Arial">Your LoginID is: <% response.write Session("LoginID")%></font></p>

<center>

<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber2" bgcolor="#FFFFFF">
<tr>
    <td width="100%">
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="25%" height="20"><b><font face="Arial" size="2">OrderNumber:</font></b></td>
    <td width="25%" height="20"><b><font face="Arial" size="2">Your Ref No:</font></b></td>
    <td width="25%" height="20"><b><font face="Arial" size="2">Status:</font></b></td>
    <td width="25%" height="20"><b><font face="Arial" size="2">Quote Date:</font></b></td>
  </tr>


<%
Dim even, className
even = true

Do until rsOrder.EOF

If Even Then
  Even = false
  className = "GreyCells"
Else
  Even = true
  className = "WhiteCells"
End If

    response.write("<tr class='"&className&"'>")
    response.write("<td height='20' width='25%'>")
    strOrder = "<a href=ordershow.asp?id=" & rsOrder("id") & ">" & "<font face='Arial' size='1'>" &  Session("Customer") & "-" & rsOrder("id") & "</a>"
    response.write strOrder
    response.write("</td>")
    response.write("<td height='20' width='25%'>")& "<font face='Arial' size='1'>" & rsOrder("CustomerRef") & "</b>"
    response.write("</td>")
    response.write("<td height='20' width='25%'>")& "<font face='Arial' size='1'>" & rsOrder("status") & "</b>"
    response.write("</td>")
    response.write("<td height='20' width='25%'>")& "<font face='Arial' size='1'>" & rsOrder("dato") & "</b>"
    response.write("</td>")
    response.write("</tr>")
    rsOrder.Movenext
loop
%>
</td>
    <td colspan="4" width="25%">&nbsp;</td>
</tr>
<tr>
    <td colspan="4" width="25%"><%strNyOrder = "<a href=orderadd.asp?customer=" & Session("Customer") & "><font face='Arial' size='1'>" & "New Quote" & "</a>"
    response.write strNyOrder%></td>
</tr>
<tr>
    <td colspan="4" width="25%"><a href="forsiden.asp"><font face="Arial" size="1">Goto index</a></font></td>
</tr>
<tr>
    <td colspan="4" width="25%"><a href="java script:window.close();"><font face="Arial" size="1">Logout</font></td>
</tr>
</table>
</td>
    </tr>
  </table>
  </center>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

</div>

</font></font>

</body>

</html>
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:07 #11
ok

hvad med din login side?
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:08 #12
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>KE-Burgmann Bredan - Konfigurator</title>
</head>

<body link="#008000" vlink="#008000" alink="#008000">
<script type="text/javascript">
function openSendWin()
{
  var newWin = window.open("","newWin","width=935,height=500,resizable=no,scrollbars=yes");
  document.DinForm.target = "newWin";
  document.DinForm.action = "forsiden.asp"
  document.DinForm.submit();
}
</script>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#050B51">
  <tr>
    <td width="100%">
    <font face="Arial" size="2">
    <img border="0" src="images/logo.jpg" align="right" width="800" height="80"></font></td>
  </tr>
</table>

  <p></p>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="50%">
    <tr>
      <td width="100%">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="320" bgcolor="#F3F3F3">
        <tr>
          <td width="6%" height="36">&nbsp;</td>
          <td width="500" height="36">&nbsp;</td>
          <td width="19%" height="36">&nbsp;</td>
          <td width="14%" height="36">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="36">&nbsp;</td>
          <td width="500" height="221" rowspan="6">
          &nbsp;<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber5" height="100%">
            <tr>
              <td width="100%"><font face="Arial" size="2">
              <img border="0" src="images/forsiden.jpg" width="400" height="266"></font></td>
            </tr>
          </table>
   
          </td>
          <td width="19%" height="221" rowspan="6">
          &nbsp;<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="50%" bgcolor="#FFFFFF">
            <tr>
              <td width="100%">
              <form method="post" name="DinForm">
              <p align="center">
                <font face="Arial"><font size="2"><br>
                <b>Login:<br>
                </b></font>
                <input type="text" name="login" size="20">
                <br>
                <br>
                <b>Password:<br>
                </b></font><input type="password" name="password" size="20"><font size="2"><br>
                <br>
                <input type="BUTTON" value="Send" onClick="openSendWin()">
                <br></font></p>
              </form>
              </td>
            </tr>
          </table>
   
          </td>
          <td width="14%" height="36">
          &nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="500" height="37" align="center">&nbsp;</td>
          <td width="19%" height="37" align="center">
          <font face="Arial" size="1">This page is designed for a minimun
          resolution of 1024 x 768</font></td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
        <tr>
          <td width="6%" height="37">&nbsp;</td>
          <td width="62%" height="37">&nbsp;</td>
          <td width="19%" height="37">&nbsp;</td>
          <td width="14%" height="37">&nbsp;</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
</body>

</html>
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:13 #13
ok

i toppen af din login side har du et javascript der sender brugeren videre:

<script type="text/javascript">
function openSendWin()
{
  var newWin = window.open("","newWin","width=935,height=500,resizable=no,scrollbars=yes");
  document.DinForm.target = "newWin";
  document.DinForm.action = "logintjek.asp"
  document.DinForm.submit();
}
</script>

Jeg har ændret den til at skulle tjekke logintjek.asp først nu - for så ser logintjek.asp sådan ud:

<%
Function TjekStrings(strText) 'tjekker for at folk prøver at lave invalide stringværdien til databasen
   
    strText = Trim(strText)
    strText = Replace(strText, chr(34),"")
    strText = Replace(strText, chr(39),"")
   
    TjekStrings = strText
   
End Function

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

Dim rsKodeord, Login, Password

Login = TjekStrings(Request.form("LOGIN"))
Password = TjekStrings(Request.Form("password"))

set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact where login= '" & Login & "';"
rsKodeord.open SQL_String, Conn

If rsKodeord.EOF = False then
    If Password = Cstr(rsKodeord("password")) Then
        Session("Customer") = rsKodeord("customer")
        Session("contact") = rsKodeord("contact")
        Session("LoginID") = rsKodeord("Login")
        Session("Login") = "JA"
        Session.Timeout = 30
        Response.Redirect "forsiden.asp" 'sender brugere til forsiden
    Else
        Session.Abandon
        Session("login") = "NEJ"
        Response.Redirect "http://www.dr.dk"
    End If
Else
    Response.Write "Ingen brugere fundet med det navn!"
End if

%>

Så behøves du ikke tjekket på forsiden.asp - hvor du kun skal have inkluderet islogin.asp sådan som du har gjort! Og dette kan du så gøre på yderligere sider også!

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:19 #14
Hvad med alt det her på forsiden.asp??

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsKodeord
Dim Login
Dim Password

set rsKodeord = server.Createobject("ADODB.Recordset")
SQL_String = "Select * from contact where login='" & Request.form("LOGIN") & "';"
rsKodeord.open SQL_String, Conn

If Session("login") <> "JA" Then
    If Request.form("LOGIN") = CStr(rsKodeord("login")) AND Request.Form("password") = Cstr(rsKodeord("password")) Then
      Session("Customer") = rsKodeord("customer")
      Session("contact") = rsKodeord("contact")
      Session("LoginID") = rsKodeord("Login")
      Session("login") = "JA"
      Session.Timeout = 30
    Else
      Session("login") = "NEJ"
      Session.Timeout = 30
      Response.Redirect "http://www.dr.dk"
    End If
end iF

%>
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:19 #15
det sletter du! :o)

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:23 #16
nu sender den mig direkte på dr.dk!
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:24 #17
Hvorhenne af på siden skal "<!--#INCLUDE VIRTUAL="islogin.asp"-->" stå???
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:25 #18
har du husket at ændre det på login siden og logintjek.asp ?

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:27 #19
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>KE-Burgmann Bredan - Konfigurator</title>
</head>

<body link="#008000" vlink="#008000" alink="#008000">
<script type="text/javascript">
function openSendWin()
{
  var newWin = window.open("","newWin","width=935,height=500,resizable=no,scrollbars=yes");
  document.DinForm.target = "newWin";
  document.DinForm.action = "logintjek.asp"
  document.DinForm.submit();
}
</script>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#050B51">
  <tr>
    <td width="100%">
    <font face="Arial" size="2">
    <img border="0" src="images/logo.jpg" align="right" width="800" height="80"></font></td>
  </tr>
</table>
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:37 #20
prøv lige i din islogin.asp

at ændre "Ja" til "JA"

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:39 #21
nææææ
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:43 #22
Vil du se koderne???
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 13:44 #23
Men denne her:
<!--#INCLUDE VIRTUAL="islogin.asp"-->

Hvorhenne af i kodningen skal den være???
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:48 #24
lige vent to sek. - laver lige en zip fil til dig!

/hiks
Avatar billede hiks Nybegynder
14. oktober 2004 - 13:58 #25
http://uploaded.dk/active/logintjek.zip

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 14:01 #26
KOmmer med denne fejl her:

Active Server Pages error 'ASP 0141'

Page Command Repeated

/islogin.asp, line 1

The @ command can only be used once within the Active Server Page.
Avatar billede hiks Nybegynder
14. oktober 2004 - 14:03 #27
sorry - slet den første linie i den fil!

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 14:05 #28
Hey det virker.... men hvad er det så jeg skal have ind på alle mine andres sider???
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 14:06 #29
Sådan her ser de fleste ud nu:

<html>
<head>
<LINK href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="da">
<title>KE-Burgmann Bredan A/S MCAU Partner Site</title>
<style>
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 10 px; font-family: Arial}
</style>
</head>
<body topmargin="0" leftmargin="0" bgproperties="fixed" background="images/line.gif" link="#008000" vlink="#008000" alink="#008000">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsOrder

set rsOrder= server.Createobject("ADODB.Recordset")
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer")
rsOrder.open SQL_String, Conn

If Session("login") = "JA" Then
  Session("login") = Session("login")
  Session("Customer") = Session("Customer")
  Session("CustomerRef") = rsOrder("CustomerRef")
  Session("contact") = Session("contact")
  Session("LoginID") = Session("LoginID")
  Session.Timeout = 30
Else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Redirect "http://www.dr.dk"
End If
%>
Avatar billede hiks Nybegynder
14. oktober 2004 - 14:11 #30
du skal slette alt det mellem

<%
...

%>

og så bare indsætte

<!--#INCLUDE VIRTUAL="islogin.asp"-->

som i forsiden.asp!

/hiks
Avatar billede bredan1977 Nybegynder
14. oktober 2004 - 14:19 #31
Har fundet ud af det... takker
Avatar billede hiks Nybegynder
14. oktober 2004 - 14:21 #32
det smarteste er så også at lave en logud.asp side hvori du har:

<%@ Language=VBScript %>
<%
Session("Login") = "Nej"
Session.Abandon
Response.Write "Du er nu logget ud!"
%>

Så har du et link på eksempelvis din forside som henviser til den som sørger for at man er logget ordentligt ud.

<A HREF="logud.asp">Log ud her</A>

/hiks
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »