Udlæs en variabel fra et SQL SELECT
Jeg bruger Frontpage hvor jeg har en formular der er lavet som log in. Log in virker perfekt. Jeg ønsker at udtrække variablen Kunde_Nr fra SQL selecten. Jeg er ikke kendt med ASP. Jeg har spurgt flere gange her men svarene har ikke hjulpet. Venligst vil du korigere mit script så jeg kan få Kunde_Nr over i en Session("Kunde_Nr") Se nederst i Scriptet.<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")
If Request("mode") = "Check" then
Function unQuote(strTekst)
strTekst = Trim(strTekst)
unQuote = Replace(strTekst,"%","53")
End Function
' Gemmer formfelterne i Variabler
strBrugernavn = unQuote(request("Brugernavn"))
strAdgangskode = unQuote(request("Adgangskode"))
strKunde_Nr = unQuote(request("Kunde_Nr"))
Sql = "Select Count(*) as Found from Adgangskoder where (Brugernavn = '" & strBrugernavn & "') and (Adgangskode ='" & strAdgangskode & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "Du blev ikke godkendt af systemet"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("fpdb/Komponentbors.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT Kunde_Nr FROM Adgangskoder where (Brugernavn = '" & Request("Brugernavn") & "') and (Adgangskode ='" & Request("Adgangskode") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "yes mate"
Session("Kunde_Nr") = rs("Kunde_Nr")
EZ.Close
RS.Close
Conn.Close
end if
end if
%>