---
title: "Usernae, Password, Id Session check."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13923-usernae-password-id-session-check"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lazerzubb"
published: "2002-01-21T13:32:00.000Z"
updated: "2002-01-21T15:13:00.000Z"
replies: 24
views: 360
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13923-usernae-password-id-session-check"
---

# Usernae, Password, Id Session check.

_Sida 1 av 2._

## #1 — Lazerzubb, 2002-01-21T13:32Z

Så här ser min kod ut
Den kollar Username och Password, men om jag vill att username och password ska finnas i ett specifikt ID i en access databas vad lägger jag till då ?
Som det är nu kan man ha ett username och ett annat password och det funkar ändå eftersom det inte är låst till ett, ID. Hur gör man så att de ska finnas i samma ID?

```
<% Visa = "SELECT * FROM search1"
   rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

	X = FALSE

	Do Until X = TRUE OR rs.EOF

	If rs("Username") = Request.Form("Username") Then
	X = TRUE
	Exit Do
	End If

	rs.MoveNext

	Loop

	If X = TRUE Then

		Y = FALSE
		Do Until Y = TRUE OR rs.EOF

		If rs("Password") = Request.Form("password") Then
		Y = TRUE
		Exit Do
		End If

		rs.MoveNext

		Loop

	End If

	If X = FALSE Then 
	Response.Write "You've entered wrong Username!"

	ElseIf Y = FALSE Then
	Response.Write "You've entered wrong password"

	End If

	If X = TRUE AND Y = TRUE Then 
Session("username") = Request.Form("username")
Session("password") = Request.Form("password")

%>
```

Permalänk: https://www.webforum.nu/p/13923

## #2 — jorgen, 2002-01-21T13:40Z

Oj, liknar webstudios sunkiga login-script :x

Mitt förslag är att du tänker om helt och tittar tex här:
 <http://cgi.webforum.nu/wf/Forum11/HTML/007634.html> 

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/307779

## #3 — Steveking, 2002-01-21T13:45Z

Japp.
Detdär loginscriptet är ganska komiskt.
Räcker med att du skriver vilket användarnamn och vilket lösenord som helst för att komma in.

Permalänk: https://www.webforum.nu/p/307780

## #4 — Lazerzubb, 2002-01-21T13:59Z

Skulle behöva hjälp att sammanställa allt :)

Här är min form kod:

```
          <form method="POST" action="login.asp">
            <b>The member service <br>
            <br>
            Username:</b><br>
            <input type="text" size="30" name="username">
            <p><b>Password:</b><br>
            <input type="password" size="30" name="password">
            <p><input type="submit" value="Login"></p>
          </form>
```

Sen kollades username och password med koden ovan men felet är ju ganska stort kan någon vara snäll och sätta in rätt värden i den kod ni hänvisar till ?

Permalänk: https://www.webforum.nu/p/307781

## #5 — Lazerzubb, 2002-01-21T14:02Z

Fälten i Search1 är
ID, Username, Password

Och det är annonsliknande system så det är till för att ändra sin annons.

Permalänk: https://www.webforum.nu/p/307782

## #6 — jorgen, 2002-01-21T14:07Z

Hej, inte så mycket att ändra, hette din tabell Db?

mvh Jörgen :)

```
SQLStmt = "SELECT * FROM Db WHERE Username = '" & Request.Form("username") & "' AND [Password] = '" & Request.Form("password") & "'"
Set RS = objDB.Execute(SQLStmt) 
If RS.EOF Then
'#-- om inte uppgifterna stämde, redirecta till en errorsida --
Response.Redirect("error.asp") 
Else 
'#-- annars skapa en kaka och redirecta till en inloggadsida --
Response.Cokies("Login")("AnvId") = RS("ID")
Response.Redirect("inloggad.asp") 
End If
'#--städa upp använt object --
RS.Close()
set RS = Nothing
```

Permalänk: https://www.webforum.nu/p/307783

## #7 — jorgen, 2002-01-21T14:11Z

sedan kollen längst upp på de sidor som har krav på inloggning:

```
'#-- kolla så att besökaren har en kaka --
If len(Request.Cokies("Login")("AnvId")) = 0 then

'#-- användaren inte inloggad
response.redirect("loggain.asp")

end if
```

Du får byta till 2 o på kakan och ändra så namnen på dina sidor passar.

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/307784

## #8 — Lazerzubb, 2002-01-21T14:19Z

Får felmeddelande 
Microsoft VBScript runtime error '800a01a8' 

Object required: 'objDB' 

Koden: jag har tagit bort ett o.

```
<!-- #include virtual="/land/adovbs.stm" -->
         <%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:/clients/rentonwww.com/search.mdb"
	
Set RS = Server.CreateObject("ADODB.Recordset") %>
<%
SQLStmt = "SELECT * FROM Search1 WHERE Username = '" & Request.Form("username") & "' AND [Password] = '" & Request.Form("password") & "'"
Set RS = objDB.Execute(SQLStmt) 
If RS.EOF Then
'#-- om inte uppgifterna stämde, redirecta till en errorsida --
Response.Redirect("error.asp") 
Else 
'#-- annars skapa en kaka och redirecta till en inloggadsida --
Response.Cokies("Login")("AnvId") = RS("Id")
Response.Redirect("elogintest.asp") 
End If
'#--städa upp använt object --
RS.Close()
set RS = Nothing

%>
```

\[Redigerat av Lazerzubb den 21 jan 2002\]

Permalänk: https://www.webforum.nu/p/307785

## #9 — jorgen, 2002-01-21T14:21Z

hej, på raden **Set RS = objDB.Execute(SQLStmt)**  skriver du istället:

**Set RS = Connect.Execute(SQLStmt)** 

Red: om du har samma namn på connectionobjectet som ovan ;)

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/307786

## #10 — jorgen, 2002-01-21T14:25Z

Hej, sedan kan du ta bort raden som du lade till:

```
Set RS = Server.CreateObject("ADODB.Recordset")
```

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/307787

## #11 — Lazerzubb, 2002-01-21T14:26Z

Ok det funkar nu,
Men nu till nästa sida.
Där börjar koden så här 

```
<!-- #include virtual="/land/adovbs.stm" -->
         <%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:/clients/domain/search.mdb"
	
Set rs = Server.CreateObject("ADODB.Recordset") %>

<% Visa = "SELECT * FROM search1"
   rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>
<%
'#-- kolla så att besökaren har en kaka --
If len(Request.Co
kies("Login")("AnvId")) = 0 then
'#-- användaren inte inloggad
response.redirect "emember.asp

end if
%>
```

Felmeddelande:
Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 
response.redirect "emember.asp

Permalänk: https://www.webforum.nu/p/307788

## #12 — jorgen, 2002-01-21T14:28Z

```
'#-- kolla så att besökaren har en kaka --
If len(Request.Cokies("Login")("AnvId")) = 0 then
'#-- användaren inte inloggad
response.redirect("emember.asp")

end if
```

RED: denna kodsnutt bör ligga överst på sidan.

Permalänk: https://www.webforum.nu/p/307789

## #13 — Lazerzubb, 2002-01-21T14:34Z

Har lagt den överst nu,
Jag plockade bort sessions kollning, och nu tror jag att det blev lite problem.

```
<!-- #include virtual="/land/adovbs.stm" -->
         <%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:/clients/domain/search.mdb"
	
Set rs = Server.CreateObject("ADODB.Recordset") %>

<% Visa = "SELECT * FROM search1"
   rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>

<FORM METHOD="POST" ACTION="ecedit.asp">
<input type="hidden" name="infoid" value="<%=rs("ID")%>">
  <div align="left">
    <table border="0" width="400" height="1" bgcolor="#FFFFF4">
      <tr>
        <td width="110" height="5"><DIV ID=brod><B>Owner's name:</B></DIV>
        </td>
        <td width="280" height="5"> <input type="text" name="oname" value="<%=rs("oname")%>" style="background-color:#CCCCCC; font-size: 9pt; border: solid black 1px;">
        </td>
      </tr>
</FORM>
<%	End If
	rs.Close
	Connect.Close %>
```

Felmeddelande:
Microsoft VBScript compilation error '800a0400' 

Expected statement 

End If.

Permalänk: https://www.webforum.nu/p/307790

## #14 — @nders, 2002-01-21T14:39Z

Tredje raden nerifrån har du en end if som inte har något if. Hör end if:et till cookie-kollen du flyttade bort månne?

Permalänk: https://www.webforum.nu/p/307791

## #15 — jorgen, 2002-01-21T14:39Z

Hej, jag ser ingen start på if-satsen. om det är hela koden så ta bort den markerade biten:

```
<!-- #include virtual="/land/adovbs.stm" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:/clients/domain/search.mdb"

Set rs = Server.CreateObject("ADODB.Recordset") %>
<% Visa = "SELECT * FROM search1"
rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>

<FORM METHOD="POST" ACTION="ecedit.asp">
<input type="hidden" name="infoid" value="<%=rs("ID")%>">
<div align="left">
<table border="0" width="400" height="1" bgcolor="#FFFFF4">
<tr>
<td width="110" height="5"><DIV ID=brod><B>Owner's name:</B></DIV>
</td>
<td width="280" height="5"> <input type="text" name="oname" value="<%=rs("oname")%>" style="background-color:#CCCCCC; font-size: 9pt; border: solid black 1px;">
</td>
</tr>
</FORM>
<% [b]End If[/b]
rs.Close
Connect.Close %>
```

Permalänk: https://www.webforum.nu/p/307792

## #16 — Lazerzubb, 2002-01-21T14:46Z

Jo nu får jag inga felmeddelande, men man kommer alltid till första ID,et vilket username / Password man än skriver till,
Hur ändrar man så att man editerar det ID där username och Password är samma ?

Permalänk: https://www.webforum.nu/p/307793

## #17 — jorgen, 2002-01-21T14:54Z

```
SQLStmt = "SELECT * FROM Db WHERE Username = '" & Request.Form("username") & "' AND [Password] = '" & Request.Form("password") & "'"
Set RS = Connect.Execute(SQLStmt) 
If RS.EOF Then
'#-- om inte uppgifterna stämde, redirecta till en errorsida --
Response.Redirect("error.asp") 
Else 
'#-- annars skapa en kaka och redirecta till en inloggadsida --
Response.Cokies("Login")("AnvId") = RS("ID")
[b]Response.Redirect("elogintest.asp?user="&RS("ID")&"") [/b]
End If
'#--städa upp använt object --
RS.Close()
set RS = Nothing
```

och sedan när du hämtar info från användaren:

```
select * from tabellen
where ID = "& request.querystring("user")
```

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/307794

## #18 — jorgen, 2002-01-21T14:59Z

eller bara:

```
select * from tabellen
where ID = "& Request.Cokies("Login")("AnvId")
```

Permalänk: https://www.webforum.nu/p/307795

## #19 — Lazerzubb, 2002-01-21T15:00Z

WHOOAAA vad jag suger på ASP, det blir och läsa lite nybörjar guider igen.

Felmeddelande:
Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

Visa = "SELECT \* from Search1 where ID = "& request.querystring("user")"

```
<% Visa = "SELECT * from Search1 where ID = "& request.querystring("user")"
   rs.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>
```

Permalänk: https://www.webforum.nu/p/307796

## #20 — jorgen, 2002-01-21T15:01Z

ta bort sista fnutten:

```
Visa = "SELECT * from Search1 where ID = "& request.querystring("user")
```

Permalänk: https://www.webforum.nu/p/307797

---

Tråden på webben: https://www.webforum.nu/amne/asp/13923-usernae-password-id-session-check  
Nästa sida: https://www.webforum.nu/amne/asp/13923-usernae-password-id-session-check/page2.md