Skal ikke huske tidligere indtastninger
Hej eksperterJeg har følgende kode, som opretter en bruger i databasen.
<%
set rs = Conn.Execute("SELECT Bnavn FROM bruger WHERE Bnavn ='"&Request.Form("Navn")&"'")
If Not rs.EOF Then
strBrugerOk = false
Else
strBrugerOk = true
End If
If strBrugerOk Then
fl = 0
navn = Request.form ("Navn")
Pass = Request.form ("password")
if Pass = "" Then
Response.Redirect "brugerfejlmelding.asp"
End if
Adresse = Request.form ("Adresse")
Post = Request.form ("post")
Telefon = Request.form ("Telefon")
Telefon2 = Request.form ("Telefon2")
Email = Request.form ("Email")
Bnavn = Request.form ("Bnavn")
if Bnavn = "" Then
Response.Redirect "brugerfejlmelding.asp"
End if
Gpass = Request.form ("gpass")
hp = Request.form ("hp")
Tp = "B"
if pass <> gpass then
Session("navn") = Navn
Session("pass") = pass
Session("Adresse") = Adresse
Session("Post") = Post
Session("Telefon") = Telefon
Session("Telefon2") = Telefon2
Session("Bnavn") = Bnavn
Session("email") = Email
Session("hp") = hp
Session("gpass")
Session("logon") = 1
Response.Redirect "opretsombruger.asp"
End if
Sql = "INSERT INTO bruger(navn, password, type, Adresse, post, telefon, telefon2, email, Hjemmeside, bnavn)"
SQL = SQL & "Values("
SQL = SQL & "'" & Navn & "',"
SQL = SQL & "'" & Pass & "',"
SQL = SQL & "'" & Tp & "',"
SQL = SQL & "'" & Adresse &"',"
SQL = SQL & "'" & Post & "',"
SQL = SQL & "'" & Telefon & "',"
SQL = SQL & "'" & Telefon2 & "',"
SQL = SQL & "'" & Email & "',"
SQL = SQL & "'" & hp & "',"
SQL = SQL & "'" & Bnavn & "'"
SQL = SQL & ")"
Set RS = conn.execute(SQL)
Session("navn") = Bnavn
Response.Redirect "husind.asp"
Else
rs.Close
Response.Redirect "brugerfejlmelding.asp"
End If
%>
Først tjekker den lige, om brugeren allerede findes, hvilket fungerer ok. Problemet er bare, at hvis brugeren findes, så sendes den nye bruger tilbage via brugerfejlmelding.asp for at vælge nyt brugernavn, men uanset hvad der nu indtastes, så kommer beskeden, at brugernavnet allerede findes, selvom det ikke er rigtigt. Hvis jeg lukker og genåbner browser, så virker det.
Hvilken kode skal jeg indsætte, så den starter på en frisk igen og ikke husker tidligere indtastninger - svarende til at lukke for browseren og starte på ny?
På forhånd tak.
