|
Välkommen!
Och tack.<%=firstname%>. <%=surname%>.för din anmälan om medlemskap på test
Ditt användarnamn är <%=username%>, och du är nu inloggad.
Tillbaka till hemsidan <% rsUser.close set rsUser = nothing cn.close set cn = nothing end if End Function%> <%Function signuperror()%>
Du har inte fyllt i följande fält korrekt:
<%for count = 0 to 13%> <%if notfilled(count) <> "" then%> <%=notfilled(count)%>Din lösenords bekräftelse stämmer inte!
<%Response.end%> <%elseif calltype = "length" then%>Ditt lösenord är inte mellan 5 och 12 tecken långt!
<%Response.end%> [b] <%elseif calltype = "badusername" then%>Tyvärr, användarnamnet "<%=username%>" andvänds redan.
[/b] <% Response.end rsUser.close set rsUser = nothing cn.close set cn = nothing elseif calltype = "invalidchars" then%>Användarnamnet kan inte innehålla några sådana tecken.
<%Response.end%> <%end if End Function%> ``` Permalänk: https://www.webforum.nu/p/14419 ## #2 — LarsG, 2002-02-09T17:55Z Hur är det tänkt att fungera? Har du skapat ett unique constraint på kolumnen username? Du behöver också lägga till lite kod så att inte körningen avbryts när du får fel. ``` [b]on error resume next[/b] rs.update if Err.Number = -2147217887 then ``` Permalänk: https://www.webforum.nu/p/310374 ## #3 — Jesper T, 2002-02-10T02:41Z > Har du skapat ett unique constraint på kolumnen username? Jo jag har ju det! ``` if Err.Number = -2147217887 then Err.clear errorfunction("badusername") else ``` Jag tog bort "on error" i denna version men jag fattar att man måste ha med det. När jag har med det så kan man "gå vidare" utan att bli medlem så att säga inget läggs till i databasen men man får access till sidorna!!! = dumt! Jag vet inte vad som är felet?! Username skall vara unikt och har jag med on error resume next så blir det så! MVH Jesper Permalänk: https://www.webforum.nu/p/310375 ## #4 — LarsG, 2002-02-10T14:46Z Hur kontrollerar du att en person har access till en sida? Permalänk: https://www.webforum.nu/p/310376 ## #5 — Jesper T, 2002-02-10T17:53Z Så här: ``` <% if Request.Co(o)kies("username") = "" then Response.Redirect("nologin.asp?page=index.asp") end if session("username") = username%> ``` Kör jag "on error resume next" så skapas ju en kaka med användarnamnet även fast det redan finns en annan användare i databasen med samma användarnamn, det ger den personen access till sidorna en gång. Tar jag bort "on error resume next" så kommer det ett felmeddelande, men det är ju inte så snyggt ju! MVH Jesper Permalänk: https://www.webforum.nu/p/310377 ## #6 — Jesper T, 2002-02-10T21:13Z huummm... ;) Permalänk: https://www.webforum.nu/p/310378 ## #7 — Jesper T, 2002-02-11T14:24Z Hjääälp!! :x Permalänk: https://www.webforum.nu/p/310379 ## #8 — Jesper T, 2002-02-12T07:18Z Hjäääääääääällllppp!!!!!!!! :x :x :x :x :x :x :x :x :x Permalänk: https://www.webforum.nu/p/310380 ## #9 — @nders, 2002-02-12T07:22Z Jag gillar inte riktigt on error resume next. Kan du inte göra tillräckliga kontroller, så slipper du skapa fel? Ex: ställ en SELECT-fråga innan du lägger till användaren. Finns användaren redan (dvs du får något annat än ett tomt recordset), så kallar du på din errorfunction. Det är livsfarligt med on error resume next, eftersom exekveringen av koden ju fortsätter om du inte själv bryter den med if-satser innan varje viktigt statement. Mvh, Permalänk: https://www.webforum.nu/p/310381 ## #10 — solbulle, 2002-02-12T21:27Z Typ: ``` SQL = "SELECT username FROM users WHERE username = "& username Set rs = Connection.Execute(SQL) if rs.eof then 'Lägg in i databasen! Else 'Snubben finns redan! errorfunction("badusername") end if ``` Du får komplettera med din öppning o stängning av databasen. I "vanliga fall" har man väl frågan överst på sidan och kör sen inläggningen med ditt script om allt är ok. (=username finns inte.) Kanske kan gå att kalla på din errorfunktion inuti if-satsen iofs. Sök annars på tex "om post finns" eller eof el. dyl Permalänk: https://www.webforum.nu/p/310382 ## #11 — Jesper T, 2002-02-13T02:48Z gör så här nu, men nu godkänns inga namn! :l Konstigt Permalänk: https://www.webforum.nu/p/310383 ## #12 — @nders, 2002-02-13T07:00Z Hur ser din kod ut nu? Permalänk: https://www.webforum.nu/p/310384 ## #13 — Jesper T, 2002-02-13T09:21Z Evighetstföljetongen ser ut ungefär såhär: ``` ' kod kod kod massa kod SQL = "SELECT username FROM users WHERE username = "& username Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open "users", conn, 3, 3 if rsUser.eof then rsUser.AddNew rsUser("username") = username rsUser("password") = password rsUser("firstname") = firstname rsUser("surname") = surname rsUser("address") = address rsUser("zip") = zip rsUser("city") = city rsUser("country") = country rsUser("phone") = phone rsUser("mobil") = mobil rsUser("email") = email rsUser("dob") = dob rsUser("fritext") = fritext rsUser("sex") = sex rsUser("icon") = icon rsUser("member") = member rsUser.Update else Err.clear errorfunction("badusername") end if ' kod kod kod massa kod ``` MVH Jesper Permalänk: https://www.webforum.nu/p/310385 ## #14 — @nders, 2002-02-13T09:28Z Du öppnar ju hela tabellen, och inte den SQL-frågan du skrivit. Så länge det finns någon data i tabellen läggs det alltså inte in någonting. Ändra din rsUser.open-rad till: ``` rsUser.open SQL, conn, 3, 3 ``` Mvh, Permalänk: https://www.webforum.nu/p/310386 ## #15 — Jesper T, 2002-02-13T09:32Z Ja, du ser vilken nivå vi snackar här :r Tack! Permalänk: https://www.webforum.nu/p/310387 ## #16 — Jesper T, 2002-02-13T09:42Z Ja ha, nu ser det ut så här! \[Microsoft\]\[ODBC Microsoft Access Driver\] Too few parameters. Expected 1. /signupprocess.asp, line 126 ``` SQL = "SELECT username FROM users WHERE username = "& username Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open SQL, conn, 3, 3 'rad 126 if rsUser.eof then ``` Permalänk: https://www.webforum.nu/p/310388 ## #17 — @nders, 2002-02-13T09:45Z Ah. Apostrofer runt användarnamnet: ``` SQL = "SELECT username FROM users WHERE username = '"& username & "'" ``` Eftersom det är en sträng skall den omslutas av apostrofer, annars tolkas det som ett fält, och fältet Pelle finns ju inte, därav felmeddelandet. Mvh, Permalänk: https://www.webforum.nu/p/310389 ## #18 — Jesper T, 2002-02-13T17:53Z Juste, skall genast hacka lite! Citerar mig själv: > Ja, du ser vilken nivå vi snackar här MVH Jesper T Permalänk: https://www.webforum.nu/p/310390 --- Tråden på webben: https://www.webforum.nu/amne/asp/14419-snälla-felmedelanden