Utloggning

Du saknar > i din form-avslutningstagg, f.ö.

Response.Write "<form action=""leftFrame2.asp"" method=""post"" name=""logIn""><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&_
               "<tr><td class=""logIn"">Logga in </td></tr><tr><td class=""userName_passWord"">Användarnamn:</td></tr>"&_
               "<tr><td><input name=""User"" type=""text"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td class=""userName_passWord"">Lösenord:</td></tr>"&_
               "<tr><td><input name=""passWord"" type=""password"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td><input name=""Submit"" type=""submit"" class=""knapp"" value=""Logga in""></td></tr>" & _
               "<tr><td colspan=""2"">Närru, det där blev allt fel. Jag kräver att du försöker igen!</td></tr>" & _
               "</table></form>"

:q

Hur menar du?

Det där hjälpte inte. Det finns ju inga villkor för det. Det visas ju alltid.

Behövs det inte if satser för att lösa det?

Mvh

Jag antog att du bara körde SQL-frågan om man försökt logga in, det finns ju ingen anledning att köra den annars. Det här borde fungera (men jag orkar inte fixa indenteringen just nu):

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=IntranetSydostel"
objConn.Open

sUser = replace(Request.Form("User"), "'", "''")
sPassword = Replace (Request.Form("Password"), "'", "''")
blnLoginError = false

if sUser <> "" and sPassword <> "" then
	strSQL = "SELECT * FROM tblUser WHERE userName = '" & sUser & "' AND passWord = '" & sPassword & "'"
	set objRS = objConn.Execute(strSQL)

	If Request.Querystring("logoff")="yes" Then
	   Session.Abandon
	   Response.redirect "leftframe2.asp"
	End if

	If objRS.eof then
	    blnLoginError = true
	else

    Session("userId") = objRS("UserId")
    Session("Name") = objRS("name")

	Response.Write "<span class=""statusText"">Inloggad som: " & Session("Name") & "</span><br><br>"

    Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

    Response.Write "<a href=""leftframe2.asp?logout=yes"">Logga ut!</a>"

Session.Timeout = 10
end if

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

end if

if (sUser = "" and sPassword = "") or blnLoginError then

	Response.Write "<span Class=""statusText"">Ej inloggad!</span><br><br>"
 	Response.Write "<div id=""menu"">"&_
      "<a href=""avdelning1.html"" onmouseover=""fnMouseEffect( this, '../menuImages/foretaget2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/foretaget.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/foretaget.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Policy</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning2.html"" onmouseover=""fnMouseEffect( this, '../menuImages/uppdragNu2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/uppdragNu.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/uppdragNu.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	  "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa uppdrag</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning3.html"" onmouseover=""fnMouseEffect( this, '../menuImages/arbetsmiljo2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/arbetsmiljo.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/arbetsmiljo.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_
    
    "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Företagets policy</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">lagar och regler</a></td></tr></table></li>"&_
    "</ul>"&_
    
      "<a href=""avdelning4.html"" onmouseover=""fnMouseEffect( this, '../menuImages/adresslista2.gif' )"" onmouseout=""fnMouseEffect( this, '../menuImages/adresslista.gif' )"" onclick=""return fnShowHide( this )""><img src=""../menuImages/adresslista.gif"" height=""18"" width=""120"" border=""0""></a><br>"&_

    
      "<ul>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Sök adresser</a></td></tr></table></li>"&_
	   "<li><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td width=""16"" valign=""middle""><img src=""../menuImages/pil.gif"" width=""16"" height=""16""></td><td width=""134"" valign=""middle""><a href=""test.asp"">Visa adresser</a></td></tr></table></li>"&_
    "</ul>"&_
"</div>"

Response.Write "<form action=""leftFrame2.asp"" method=""post"" name=""logIn""><table width=""150"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&_
               "<tr><td class=""logIn"">Logga in </td></tr><tr><td class=""userName_passWord"">Användarnamn:</td></tr>"&_
               "<tr><td><input name=""User"" type=""text"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td class=""userName_passWord"">Lösenord:</td></tr>"&_
               "<tr><td><input name=""passWord"" type=""password"" class=""formular"" size=""20"" maxlength=""20""></td></tr>"&_
               "<tr><td><input name=""Submit"" type=""submit"" class=""knapp"" value=""Logga in""></td></tr>"

If blnLoginError then
	Response.write "<tr><td colspan=""2"">Felaktigt användarnamn eller lösenord.</td></tr>"
End if
Response.write "</table></form>"

End if
%>

:)
Kanske lite dåligt förklarat.... :r

Men det var just det... Jag kom inte på hur jag skulle göra för att inte köra sql-frågan direkt utan bara vid inloggning...

Fungerar inte helt perfekt dock... ;)

Om jag skriver rätt användarnamn med felaktigt lösenord får jag felmeddelandet.

Om jag lämnar fälten blanka kommer inget felmeddelande.

Om jag skriver i endast användarnamn men inget lösenord blir sidan helt blank.

Om jag skriver fel användarnamn OCH fel lösenord får jag felmeddelande.

I o f s så behövs ju inget felmeddelande om varken användarnamn eller lösenordf fylls i så mycket vett borde man ha...

Och vad betyder indenteringen... :r

Mvh

Indentering:

If 1=2 then
     If 2=3 then
          If 3=4 then
               For i = 0 to 7
                      'gör något
               Next
          End if
     End if
End if

http://www.susning.nu/Indentering

:)

Ok, då har jag lärt mig nått nytt idag :) :)
Jag är inte så bra på det... :r
Har du några ideer om mina andra frågor?

mvh

Det är bara att pilla till if-satserna så de gör det du vill. You can do it, Bobby Boucher! :)

:)

Bytte

if sUser <> "" and sPassword <> "" then

Mot

if sUser <> "" or sPassword <> "" then

Fungerar nu!! :)

Om man däremot lämnar båda fälten blanka händer ingenting...

Men det gör inget

mvh