Aspkod till inloggning för en mySQLdatabas

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;"

Tackar ;)

La till lite ovan!

:birp

:birp

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

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

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

hehe ingen fara, händer oss alla :bire

:birp

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

hehe ;) det är fixat
:birp

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?

Oj miss av mig
Byt ut

Set rs = dbConn.Execute(list)

MOT
Set rs = Connect.Execute(list)

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

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

hoppsan, tackar
bugar djupt i tacksamhet :e

ä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

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 &")