kolla här...

6 svar · 242 visningar · startad av JAreMANNEN 13 sep. 2001

JAreMANNENMedlem sedan aug. 20002 272 inlägg

Frågan13 sep. 2001 15:10#1

Vad är fel med följande då..HUH? :(

<%
  Dim Connection, DSN, SQL, objRS, strPass, strUser, rsUser, rsPass

  Set Connection=server.CreateObject("adodb.connection")
  DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN=dsn & "DBQ=" & server.mappath("chezlami.mdb")
  Connection.Open DSN

  strUser = Request.Form("user")
  strPass = Request.Form("pass")

  If Len(strUser) <0 AND Len(strPass) <0 Then
    Response.Write "Du fyllde inte i alla fält!!! <a href=""javascript:history.go(-1);"">Försök igen>></a>"
  Else

  SQL = "SELECT * FROM TBL_login WHERE FLD_user = " &strUser& " AND FLD_pass = " &strPass& ""
  'Response.Write SQL  
  Set objRS = Connection.Execute(SQL)

  rsUser = objRS("FLD_user")
  rsPass = objRS("FLD_Pass")

  If strUser = rsUser AND strPass = rsPass Then
    Response.Redirect "hem.htm"
  Else
    Response.Write "Användarnamnet och Lösenordet stämde inte överrens! <a href=""javascript:history.go(-1);"">Försök igen>></a>"
  End If
  End If
%>

Får följande felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'FLD_user = chezlami AND FLD_pass ='.

/login.asp, line 24

Detta felmesset får jag när jag lämnar pass-fältet tomt, fyller jag i båda så står det "Too few parameters, expected 1"

Sen så ignoreras If-satsen totalt...!!
------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

[Redigerat av JAreMANNEN den 13 sep 2001]

EclipseMedlem sedan juli 20003 825 inlägg

13 sep. 2001 15:23#2

1. I Access, välj "Tillåt nollängd".
2. Du måste ha enkelfjumpar i din SQL fråga när du frågar om text.

EclipseMedlem sedan juli 20003 825 inlägg

13 sep. 2001 15:27#3

**INSIDERTIPS**

För att göra det lite enklare för dig, se över dina namnval.

SELECT * FROM [users] WHERE [x_user] = '" & x_user &"' AND [x_password] = '" & x_password & "';"

Jag menar, TBL_login borde heta users i stället.

JAreMANNENMedlem sedan aug. 20002 272 inlägg

13 sep. 2001 15:30#4

JAO!!

Tackar för tipsen..

Löste det såhär nu

<html>
<head>
<title>LOGIN!</title>
</head>
<body background src="bilder/bakgrund.gif" text="#000000">
<center>
<%
  Dim Connection, DSN, SQL, objRS, strPass, strUser, rsUser, rsPass

  Set Connection=server.CreateObject("adodb.connection")
  DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN=dsn & "DBQ=" & server.mappath("chezlami.mdb")
  Connection.Open DSN

  strUser = Request.Form("user")
  strPass = Request.Form("pass")

  SQL = "SELECT * FROM TBL_login WHERE FLD_user = '" &strUser& "' AND FLD_pass = '" &strPass& "'"
  'Response.Write SQL  
  Set objRS = Connection.Execute(SQL)

  If objRS.EOF Then
    Response.Write "Användarnamnet och Lösenordet stämde inte överrens! <a href=""javascript:history.go(-1);"">Försök igen>></a>"
  Else

  rsUser = objRS("FLD_user")
  rsPass = objRS("FLD_Pass")

  If strUser = rsUser AND strPass = rsPass Then
    Response.Redirect "hem.htm"
  Else 

  End If
  End If
%>
</center>
</body>
</html>

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

EclipseMedlem sedan juli 20003 825 inlägg

13 sep. 2001 15:56#5

 Response.Redirect "hem.htm"

Du hade inte fått jobb på vårt företag i alla fall! ;-) Filändelsen .htm är bannlyst! Löneavdraget stiger med storleken på webbplatsen i kubik.

emissionMedlem sedan dec. 19996 721 inlägg

13 sep. 2001 16:03#6

Jag menar, TBL_login borde heta users i stället

Varför? Prefix-notation är inte alls så tokigt. :)

JAreMANNENMedlem sedan aug. 20002 272 inlägg

13 sep. 2001 17:44#7

Du hade inte fått jobb på vårt företag i alla fall! ;-) Filändelsen .htm är bannlyst! Löneavdraget stiger med storleken på webbplatsen i kubik.

Varför använda någon annan filändelse när du inte ska ha något annat än HTML/CSS på dina sidor..?!?

TRAMS!

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post