inloggning mot mysql?

Lika som mot vilken annnan databas som helst.. (Nästan)
Byt ut connectionstring bara

Jo men, funkar all annan kod som vanligt med access?
Har för mig att t.ex. recset inte funkar med mysql.
Lite sådan info jag hade velat ha reda på utan att behöva sitta och gå igenom hela mysql manualen.

Det fungerar precis som med Access, förutom att connect-grejen mot databasen ser lite annorlunda ut. Du kan ju använda Sessions precis som vanligt.

Så här har jag gjort:

Set Connection = Server.CreateObject("ADODB.Connection")
DSNtemp = "driver={MySQL};SERVER=localhost;DATABASE=databasnamn" 
Connection.Open DSNtemp

SQLStmt = "SELECT inloggningar, senast, id, username, admin FROM medlemmar where username='" & Request.Form("medlemnamn") & "' AND losenord='" & Request.Form("medlemlosen") & "'"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQLStmt, Connection

If RS.EOF Then
' Felaktigt användarnamn/lösenord

Else

SQL = "UPDATE medlemmar set inloggningar='" & RS("inloggningar") + 1 & "', senast='" & now & "', ip='" & request.servervariables("REMOTE_HOST") & "', ipdatum='" & now & "' where id='" & RS("id") & "'" 
Connection.Execute(SQL)
Session("id") = RS("id")
Session("username") = RS("username")
RS.Close
End If

AJJA BAJJA! inte använda sessions i onädan ;)

Set Connection = Server.CreateObject("ADODB.Connection")
DSNtemp = "driver={MySQL};SERVER=localhost;DATABASE=databasnamn" 
Connection.Open DSNtemp

Q = "SELECT inloggningar, senast, id, username, admin FROM "&_
"medlemmar where username='" & Request.Form("medlemnamn") &_
" AND losenord='" & Request.Form("medlemlosen") & "'"
Set RS = Connection.Execute(Q)

If RS.EOF Then
	' Felaktigt användarnamn/lösenord

Else

	Q = "UPDATE medlemmar set inloggningar=CInt(inloggningar + 1), "&_
	"senast='" & now() & "', ip='" & request.servervariables("REMOTE_HOST") &"', "&_
	"ipdatum='" & now & "' where id=@@Identity;" 
	Connection.Execute(Q),,128
	Response.Cookies("id") = RS("id")
	Response.Cookies("username") = RS("username")
	RS.Close : Set rs = Nothing
End If
Connection.Close 
Set Connection = Nothing

/ Mikul

Går det att spara infon i ett VB Script till MySQL?

Ja. Om svaret är fel så har jag inte förstått vad du menar.

Problem med ASP & My SQL

Tjenare

Vi har följande SQL sats:

strSQL = "SELECT COUNT(*) FROM customer WHERE '"&vanamn&"' = anamn"

Vi skall använda detta till inloggning i en webshop och undrar därför..
Var lägger sig värdet som hämtas från databasen, dvs i detta fallet antal "counts". För i strSQL lagras väl bara själva frågan och inte svaret man får från databasen. Man vill ju gärna kunna använda "count"värdet för att sedan i en if sats kontrollera om det har blivit någon träff eller ej.

mikul: Men ditt exempel fungerar ju inte om användaren har disablat cookies i sin webbläsare? Varför skall man inte använda sig av Sessions?

Resurskrävande, fast man måste ha en massa besökare samtidigt för att det ska spela någon roll.

Har en sida med cirka 3500 unika träffar per dag, och ungefär 800 medlemmar som loggar in dagligen (som mest cirka 80-100 samtidigt inloggade). Har inte märkt av några problem faktiskt.