Vad är felet?

24 december, 2001

Jag har ett problem med att hämta en rad ur en databas

Jag vill hämnta kolumben Namn ur databasen login men det går inte. I databasen har jag 6 stycken kollumber Namn, ID, UserName, Password, Clearance, Epire

jag kan hämta kollumben Clearance men inte Namn vad e felet?

Jag loggar in med hjälp av denna fil:

<%@Language=VBScript%>

<%Response.Buffer = True%>

<html>

<body>

<%

UserName = Replace(Trim(Request.Form("username")), "'", "''")

PassWord = Replace(Trim(Request.Form("password")), "'", "''")

If UserName = "" OR PassWord = "" Then Response.Redirect "default.asp"

SQL = "Select ID, UserName, [PassWord], Clearance, ExpireDate From Login"

Set RS = MyConn.Execute(SQL)

While Not RS.EOF

If UserName = RS("UserName") And PassWord = RS("Password") Then

If RS("ExpireDate") > Now() Then

Session("allow") = True

Session("clearance") = RS("Clearance")

Level = RS("Clearance")

Else

Response.Redirect "utility.asp?method=expired"

End If

RS.MoveNext

Wend

CleanUp(RS)

If Session("allow") = True Then

If Level = 1 Then Response.Redirect "1.asp"

If Level = 2 Then Response.Redirect "2.asp"

If Level = 3 Then Response.Redirect "3.asp"

If Level = 4 Then Response.Redirect "4.asp"

If Level = 5 Then Response.Redirect "5.asp"

If Level = 6 Then Response.Redirect "6.asp"

If Level = 7 Then Response.Redirect "7.asp"

If Level = 8 Then Response.Redirect "8.asp"

If Level = 9 Then Response.Redirect "9.asp"

If Level = 10 Then Response.Redirect "10.asp"

If Level = 11 Then Response.Redirect "11.asp"

If Level = 12 Then Response.Redirect "12.asp"

If Level = 13 Then Response.Redirect "13.asp"

If Level = 14 Then Response.Redirect "14.asp"

If Level = 15 Then Response.Redirect "15.asp"

If Level = 16 Then Response.Redirect "16.asp"

Else

Response.Redirect "default.asp"

End If

%>

</body>

</html>

Sedan ska jag i denna fil hämra uppgiften "namn" ur databasen

<%

'///////////////////////////////////////////////////////////////////////////////////

'connection string

Set MyConn=Server.CreateObject("ADODB.Connection")

MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("Login.mdb")

'///////////////////////////////////////////////////////////////////////////////////

'cleanup routines

Sub CleanUp(RS)

RS.Close

MyConn.Close

Set RS = Nothing

Set MyConn = Nothing

End Sub

Sub CleanUp2()

MyConn.Close

Set MyConn = Nothing

End Sub

'////////////////////////////////////////////////////////////////////////////////////

%>

<html>

<head>

<title>Untitled Document</title>

</head>

</div>

<tr>

</div>

</td>

<td height="2" bgcolor="#999999" width="604">:::::::::::::

<a href="start.asp">Startsida</a> :: <a href="hus.asp">Husprislistor</a> :: <a href="pdf.asp">PDF filer</a> :: <a href="excel.asp">Excel filer</a> :: <a href="word.asp">Word filer</a> :: <a href=""utility.asp?method=abandon"">Logga ut</a> :: </td>

</tr>

<tr>

:>Välkommen

</td>

Prislistor

och formulär 2001 : Forsgrens Timmerhus, Faluhus

<%

Session("Name") = "Mats"

Response.Write "Välkommen " & Session("Namn") & "."

%>

<a href=""utility.asp?method=abandon"">Logga ut</a>

Vad är felet, snälla hjälp mig lösa det vore riktigt snällt

25 december, 2001

INte kan jag se att Du hämtar "Namn" ur databasen.

Pröva det här:

SQL = "Select Namn, ID, UserName, [PassWord], Clearance, ExpireDate From Login"

Logga in

Vad är felet?

Rekommendera Poster

Karl

Länk till kommentar

Dela på andra webbplatser

Curt

Länk till kommentar

Dela på andra webbplatser

Arkiverat

Vem är online 0 Medlemmar, 0 anonym, 11 gäster (Visa hela listan)

Populära medlemmar

Publika meddelanden

Senaste som Tittar

Senaste inlägg

Forum

Aktivitet

pcforalla.se