---
title: "Aspkod till inloggning för en mySQLdatabas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/79991-aspkod-till-inloggning-för-en-mysqldatabas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "BulletBoyCrime"
published: "2003-06-17T22:20:43.000Z"
updated: "2003-06-20T13:09:57.000Z"
replies: 70
views: 816
page: 1
pages: 4
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/79991-aspkod-till-inloggning-för-en-mysqldatabas"
---

# Aspkod till inloggning för en mySQLdatabas

_Sida 1 av 4._

## #1 — BulletBoyCrime, 2003-06-17T22:20Z

Nu ber jag ännu en gång välgörarna på wF efter hjäklp, och denna gången gäller det en motsvarighet för RecSet i SQL queryn.
Kort och gott, hur skall man göra för att fixa en inloggningskod som länkar till en mySQLdatabas på datorn och kikar igenom databasens pass respektive namn för att starta en session?
Tack så otroligt mycket för all hjälp ;)

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

## #2 — SteveP, 2003-06-17T22:36Z

Nåt sånthär borde duga.

```
<%
	userform = Request.Form("userlog")
	passform = Request.Form("passlog")

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=my-database;Uid=username;Pwd=password;"
	
	list = "SELECT * FROM tbl_members WHERE fld_username='" & userform & "' AND fld_password='" & passform & "' "
	Set rs = dbConn.Execute(list)

	If rs.EOF Then

	    Session("logged_status") = FALSE
	    Response.redirect("errorpass.asp")

	Else
		Session("inloggad") = 1
	End If
%>
```

Sen om du vill kolla så dom är inloggade kör du med en vanliga sessioncheck

högst upp på sidan du vill skydda.

```
<% 
If session("inloggad") = 1 Then
%>
```

Längst ner på sidan du vill skydda

```
<% 
Else
response.Redirect("errorpass.asp")
End If
%>
```

Om du kör lokal Mysql server så kan du nog använda denna connectionstringen istället

```
"Driver={mySQL};Server=mySrvName;Option=16834;Database=mydatabase;"
```

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

## #3 — BulletBoyCrime, 2003-06-17T22:39Z

Tackar ;)

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

## #4 — SteveP, 2003-06-17T22:40Z

La till lite ovan!

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

## #5 — BulletBoyCrime, 2003-06-17T22:41Z

:birp

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

## #6 — SteveP, 2003-06-17T22:42Z

:birp

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

## #7 — BulletBoyCrime, 2003-06-17T22:47Z

startar detta en session då?
om den gör det, kan du vara snäll och peka ut det?
tack!

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

## #8 — SteveP, 2003-06-17T22:50Z

Ja den startar en session, Session("inloggad")

```
If rs.EOF Then

	    Session("logged_status") = FALSE
	    Response.redirect("errorpass.asp")

	Else
		[b]Session("inloggad") = 1[/b]
	End If
```

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

## #9 — BulletBoyCrime, 2003-06-17T22:51Z

Ursäkta :r
Borde ha sett det
Fasen, jag får sluta pilla med detta medans jag är trött :birp

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

## #10 — SteveP, 2003-06-17T22:53Z

hehe ingen fara, händer oss alla :bire

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

## #11 — BulletBoyCrime, 2003-06-17T22:54Z

:birp

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

## #12 — SteveP, 2003-06-17T22:54Z

Nu glömde du mellanslaget framför Biramannen! :birp

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

## #13 — BulletBoyCrime, 2003-06-17T22:55Z

hehe ;) det är fixat
 :birp

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

## #14 — BulletBoyCrime, 2003-06-17T22:59Z

vill inte plåga mer men nu blev det nåt strul.

```
Set rs = dbConn.Execute(list)
```

Felmess

> Körningsfel i Microsoft VBScript error '800a01a8' 
> 
> Objekt krävs.: '' 
> 
> /crimea bay/hangoutr.asp, line 14

Säkert bara nåt litet, men jag kan då inte fixa det.
Nån som kan ge mig en räckande hand innan jag beger mig ner i ASPgrunden?

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

## #15 — SteveP, 2003-06-17T23:01Z

Oj miss av mig
Byt ut

```
Set rs = dbConn.Execute(list)

MOT
Set rs = Connect.Execute(list)
```

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

## #16 — BulletBoyCrime, 2003-06-17T23:02Z

Tackar :e
får byta ut lite namn o grejer och sen är det klart ju :e
trodde aldrig jag skulle fixa det på en kväll :bire

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

## #17 — SteveP, 2003-06-17T23:03Z

Var noga med formulärsnamnen på loginsidan också så dom är rätt :bire

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

## #18 — BulletBoyCrime, 2003-06-17T23:04Z

hoppsan, tackar
bugar djupt i tacksamhet :e

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

## #19 — BulletBoyCrime, 2003-06-17T23:10Z

äsch :(
strul igen
Tror inte det är mycket, kan man få en sista knuff på vägen?

```
line 19 Response.redirect("errorpass.asp")
```

Ska faktsikt ha namnet errorpass på den sidan,. som jag inte skapat än. kan det vara käppen i hjulet?
Här är iaf felmesset:

> Response object error 'ASP 0156 : 80004005' 
> 
> Header Error 
> 
> /crimea bay/hangoutr.asp, line 19 
> 
> The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

Tack! :birp

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

## #20 — SteveP, 2003-06-17T23:11Z

Om du vill Redirecta dom till en sida efter dom loggat in kan du köra

```
Session("inloggad") = 1
Response.redirect("http://www.blabla.com")
end if
```

Eller om du vill ha ett specifikt URL för varje användare kan du skapa ett fält som heter userurl och skriva

```
Session("inloggad") = 1
userurl = rs("userurl")
Response.redirect("& userurl &")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/79991-aspkod-till-inloggning-för-en-mysqldatabas  
Nästa sida: https://www.webforum.nu/amne/asp/79991-aspkod-till-inloggning-för-en-mysqldatabas/page2.md