--- title: "Utloggning" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/120561-utloggning" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "devotion" published: "2005-01-19T21:59:08.000Z" updated: "2005-01-20T14:27:26.000Z" replies: 8 views: 274 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/120561-utloggning" --- # Utloggning ## #1 — devotion, 2005-01-19T21:59Z :) Hej! Hur gör jag en funktion som skriver ut med Response.write "Användarnamn eller lösenord är fel, försök igen!" i denna koden. Det ska skrivas under formuläret... Koden är lång och ful..... Help, please! ``` <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=IntranetSydostel" objConn.Open strSQL = "SELECT * FROM tblUser WHERE userName = '" & replace(Request.Form("User"), "'", "''") & "' AND passWord = '" & Replace (Request.Form("Password"), "'", "''") & "'" set objRS = objConn.Execute(strSQL) If Request.Querystring("logoff")="yes" Then Session.Abandon Response.redirect "leftframe2.asp" End if If objRS.eof then Response.Write "Ej inloggad!

" Response.Write "
"&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
" Response.Write "
"&_ ""&_ ""&_ ""&_ ""&_ "
Logga in
Användarnamn:
Lösenord:
Inloggad som: " & Session("Name") & "

" Response.Write "
"&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
" Response.Write "Logga ut!" end if Session.Timeout = 10 objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> ``` Mvh Permalänk: https://www.webforum.nu/p/120561 ## #2 — @nders, 2005-01-20T04:40Z Du saknar \> i din form-avslutningstagg, f.ö. ``` Response.Write ""&_ ""&_ ""&_ ""&_ ""&_ "" & _ "" & _ "
Logga in
Användarnamn:
Lösenord:
Närru, det där blev allt fel. Jag kräver att du försöker igen!
" ``` Permalänk: https://www.webforum.nu/p/1533092 ## #3 — devotion, 2005-01-20T06:10Z :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 Permalänk: https://www.webforum.nu/p/1533094 ## #4 — @nders, 2005-01-20T06:55Z 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 "Inloggad som: " & Session("Name") & "

" Response.Write "
"&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
" Response.Write "Logga ut!" 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 "Ej inloggad!

" Response.Write "
"&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
"&_ ""&_ "
" Response.Write "
"&_ ""&_ ""&_ ""&_ ""&_ "" If blnLoginError then Response.write "" End if Response.write "
Logga in
Användarnamn:
Lösenord:
Felaktigt användarnamn eller lösenord.
" End if %> ``` Permalänk: https://www.webforum.nu/p/1533096 ## #5 — devotion, 2005-01-20T14:01Z :) 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 Permalänk: https://www.webforum.nu/p/1533295 ## #6 — @nders, 2005-01-20T14:08Z 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 ``` Permalänk: https://www.webforum.nu/p/1533299 ## #7 — devotion, 2005-01-20T14:12Z :) 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 Permalänk: https://www.webforum.nu/p/1533300 ## #8 — @nders, 2005-01-20T14:18Z Det är bara att pilla till if-satserna så de gör det du vill. You can do it, Bobby Boucher! :) Permalänk: https://www.webforum.nu/p/1533303 ## #9 — devotion, 2005-01-20T14:27Z :) 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 Permalänk: https://www.webforum.nu/p/1533310 --- Tråden på webben: https://www.webforum.nu/amne/asp/120561-utloggning