Lave disse 2 koder om til mysql

<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

'ændre imput
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))

'Lavet af Jimmy Jacobsen www.webshadow.frip.dk
'Opbygger Sql-sætningen
rsSQL = "SELECT * FROM admin where Login = '" & Login & "' and Password = '" & Password & "'"

' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("login") = True
Response.redirect "logged.asp"

Else

'
' Hvis brugeren ikke var i databasen
Response.redirect "Login.asp"


End If

' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing

End if
%>



Og denne


<%

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

' og så finder vi dataene, hvor værdien af feltet ID = værdien i vores Session("ID")
SQL = "Select * FROM admin WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)

'Lavet af Jimmy Jacobsen www.webshadow.frip.dk
' nu kan vi så lave vores udtræk
Response.Write "Hej " & rs("Login") & "," & "<br>" & ""

Response.Write "<a href='test.asp'><p>Klik her for at komme til en beskyttet fil</p></a>"
Conn.Close
Set Conn = Nothing
%>