Jag har lite problem med mitt medlems script. Det är som så att när någon ska bli medlem så får han ju självklart inte använda ett användarnamn som redan finns i databasen, och det är ju inte något problem att lösa. Men jag vill även att det ska vara som så att man inte kan använda sig av en e-mail adress som redan finns i databasen.

Detta har jag löst så här (en del av koden):
<code>
username = Request.Form("userName")
email = Request.Form("eMail")

Set rsMem = Server.CreateObject("ADODB.Recordset")
memSQL = "SELECT * FROM users"
rsMem.Open memSQL, memConn, adOpenStatic, adLockOptimistic

Do Until rsMem.EOF
If rsMem("userName") = username Then
errorfunction("badusername")
ElseIf rsMem("eMail") = email Then
errorfunction("bademail")
End If
rsMem.MoveNext
Loop

'Här kommer koden för att lägga in användaren i databasen.
</code>
Detta funkar som det ska bortsett från en irreterande sak! Om användarnamnet Totte redan finns och någon försöker använda det så får han meddelandet att användarnamnet är upptaget. MEN om han skriver totte eller tottE eller liknande så går det igenom.
Så vill jag inte ha det! Totte, totte, tottE mm ska ge meddelande om att användarnamnet redan finns!


Använder jag nedanstående kod så funkar det, men då vet jag inte hur jag ska göra för att den ska kolla mailen också.
<code>
username = Request.Form("userName")
email = Request.Form("eMail")

memSQL = "SELECT * FROM users WHERE userName = '" & username & "'"

If Not rsMem.EOF Then
errorfunction("badusername")
Else

'Här kommer koden för att lägga in användaren i databasen.

End If
</code>
Någon som vet hur jag kan lösa dessa problem?

/Totte

Hej

Använd dig av antingen LCase eller UCase, dvs små eller stora bokstäver.
När du kollar användarnamnet så gör om det till små bokstäver.
T ex:
If LCase(rsMem("userName")) = Lcase(username) Then


Anna-Karin

Tackar så mycket Anna-Karin, det fungerade utmärkt :-)

/Totte

Testa med:
<code>
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function

username = Request.Form("userName")
email = Request.Form("eMail")

memSQL = "SELECT * FROM users WHERE userName = " & SQLText(username) & " OR eMail = " & SQLText(email)

If rsMem.EOF Then
'Här kommer koden för att lägga in användaren i databasen.
Else
errorfunction("badusername")
End If
</code>