---
title: "Kolla om mailen redan finns i databasen vid registrering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41659-kolla-om-mailen-redan-finns-i-databasen-vid-registrering/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sico"
published: "2002-04-15T15:22:36.000Z"
updated: "2002-04-16T10:29:11.000Z"
replies: 36
views: 841
page: 2
pages: 2
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/41659-kolla-om-mailen-redan-finns-i-databasen-vid-registrering"
---

# Kolla om mailen redan finns i databasen vid registrering

_Sida 2 av 2._

## #21 — Jörgen HP, 2002-04-15T19:45Z

> *Ursprungligen av Sico*  **men det går inte att skapa en ny användare om mailen redan finns.**

Men så skulle det väl vara?

Heter formulärnamnet verkligen **txtAnvandare**?

Permalänk: https://www.webforum.nu/p/646720

## #22 — Sico, 2002-04-15T19:47Z

mjo mailspärren funkar ju, men inte användarspärren.
jepp det heter txtAnvandare. använder ctrl+c för att va på säkra sidan :)

Permalänk: https://www.webforum.nu/p/646724

## #23 — Jörgen HP, 2002-04-15T19:49Z

...och vad får du för resultat om du skriver ut det du tar emot från formuläret:

```
response.write "<p>" & Request.Form("txtmail") &"  och " &  Request.Form("txtAnvandare") &" </p>"
```

Permalänk: https://www.webforum.nu/p/646726

## #24 — Sico, 2002-04-15T19:54Z

det stämmer bra om jag skriver ut det som skickas från formuläret med den kod du skrev.

Permalänk: https://www.webforum.nu/p/646730

## #25 — @nders, 2002-04-15T20:00Z

Jag skulle vilja be dig testa denna kod:

```
<%
if not isnull(Request.Form("txtmail")) then strmail = Cstr(Request.Form("txtmail"))
if not isnull(Request.Form("txtAnvandare")) then strAnvandare = Cstr(Request.Form("txtAnvandare"))

SQL = "SELECT f_Mail, f_User FROM t_Administrators where f_mail = '" & strmail & "' OR f_User = '" & strAnvandare & "'"
intError = 0
set rsconn = connect.execute(sql)
If not Rsconn.eof Then
	while not Rsconn.eof
		if rsconn("f_mail") =  strmail then 
			intError = intError + 1
			strError = "mailen var upptagen"
		end if
		if rsconn("f_User") = strAnvandare then 
			intError = intError + 1
			strError = "namnet var upptagen"
		end if
		Rsconn.movenext
	wend
	if intError = 1 then Response.Write strError else response.write "båda var upptagna"
else
	anvandare = Request.Form( "txtAnvandare" )
	losenord = Request.Form("txtLosen")
	mail = Request.Form( "txtMail" )

	strSQL = "INSERT INTO t_Administrators "
	strSQL = strSQL & "( f_User, f_Mail, f_Password ) "
	strSQL = strSQL & "VALUES( '" & anvandare & "', '" & mail & "', '" & losenord & "' )"

	Connect.Execute( strSQL )

	Response.Redirect "login.asp?registrera=tack"
End If

%>
```

Mvh,

Permalänk: https://www.webforum.nu/p/646732

## #26 — Jörgen HP, 2002-04-15T20:02Z

Vad skriver den ut nu då?

```

if not isnull(Request.Form("txtmail")) then

strmail = Cstr(Request.Form("txtmail"))

elseif not isnull(Request.Form("txtAnvandare")) then

strAnvandare = Cstr(Request.Form("txtAnvandare"))

end if

SQL = "SELECT f_Mail, f_User FROM t_Administrators where f_mail = '" & strmail & "' OR f_User = '" & strAnvandare & "'"

response.write "sql-fråga: " & SQL & " "

set rsconn = connect.execute(sql)

If not Rsconn.eof Then

if rsconn("f_mail") =  strmail then

response.write "mailen var upptagen"

elseif rsconn("f_User") = strAnvandare then

response.write "namnet var upptagen"

elseif rsconn("f_User") =  strAnvandare and rsconn("f_mail") =  strmail then

response.write "båda var upptagna"

else

response.write "ett fel uppstod"

end if

Else
	anvandare = Request.Form( "txtAnvandare" )
	losenord = Request.Form("txtLosen")
	mail = Request.Form( "txtMail" )

	strSQL = "INSERT INTO t_Administrators "
	strSQL = strSQL & "( f_User, f_Mail, f_Password ) "
	strSQL = strSQL & "VALUES( '" & anvandare & "', '" & mail & "', '" & losenord & "' )"

	Connect.Execute( strSQL )

	Response.Redirect "login.asp?registrera=tack"
End If
```

Permalänk: https://www.webforum.nu/p/646734

## #27 — Sico, 2002-04-15T20:06Z

1\. samma namn på användare som redan finns = båda var upptagna
2\. lika dan mail som finns reggad = mailen var upptagen
3\. både mail och användare samma = mailen var upptagen

Permalänk: https://www.webforum.nu/p/646735

## #28 — @nders, 2002-04-15T20:10Z

På min kod eller Jörgens?

Permalänk: https://www.webforum.nu/p/646738

## #29 — Jörgen HP, 2002-04-15T20:11Z

Måste vara din snabelkillen, jag ville bara veta vad som skickades in i SQL-frågan :)

Permalänk: https://www.webforum.nu/p/646739

## #30 — Sico, 2002-04-15T20:12Z

@nders... ditt fungerade nu...  men hur ska jag göra för att stor lr liten bokstav inte ska ha nån betydelse?

Permalänk: https://www.webforum.nu/p/646742

## #31 — @nders, 2002-04-15T20:17Z

Du kan använda antingen LCase() eller UCase() för att göra om strängarna till gemener resp. versaler i jämförelsen.

```
if LCase(rsconn("f_mail")) =  LCase(strmail) then
```

Mvh,

Permalänk: https://www.webforum.nu/p/646747

## #32 — Sico, 2002-04-15T20:19Z

jag ska nog läsa lite om dom, har glömt bort en del :(  tack för all hjälp.. fasen va krångligt det skulle vara då :h

Permalänk: https://www.webforum.nu/p/646748

## #33 — Jörgen HP, 2002-04-15T20:21Z

Tackar och bockar @nders ;) 

Tänkte ju inte på att det kunde finnas många kombinationer  :r

Permalänk: https://www.webforum.nu/p/646750

## #34 — @nders, 2002-04-15T20:24Z

En vassegodar! :)

Mvh,

Permalänk: https://www.webforum.nu/p/646754

## #35 — Sico, 2002-04-15T20:51Z

Jag vill ju att man ska kunna registrera sig med stora bokstäver. Men det inte ska spela nån roll om det är en användare registrerad som "Sico" så ska det inte gå att registrera en ny som "sico" ...  Med LCase gör man ju alla bokstäver små och då försvinner ju funktionern att ha stor bokstav i namnet. Eller har jag helt fel?

Permalänk: https://www.webforum.nu/p/646768

## #36 — @nders, 2002-04-15T20:52Z

Nej, så länge du bara använder det vid jämförelser och inte vid tilldelningar så ändrar du ingenting.

Mvh,

Permalänk: https://www.webforum.nu/p/646769

## #37 — Sico, 2002-04-16T10:29Z

jag fortsätter på denna tråden...

```
If not isnull(Request.Form("txtMail")) Then strMail = Cstr(Request.Form("txtMail"))
[b]If not isnull(Request.Form("txtLosen")) Then strLosen = Cstr(Request.Form("txtLosen"))[/b]
If not isnull(Request.Form("txtAnvandare")) Then strAnvandare = Cstr(Request.Form("txtAnvandare"))

SQL = "SELECT f_Mail, f_User, f_Password FROM t_Administrators where f_mail = '" & strmail & "' OR f_User = '" & strAnvandare & "' OR f_Password = '" & strLosen & "'"
intError = 0
set rsconn = connect.execute(sql)
If not RSConn.eof Then
	While not Rsconn.eof
		If LCase(RSConn("f_Mail")) =  LCase(strMail) Then
			intError = intError + 1
			strError = "Mailen är redan använd. <a href=""login.asp?reqlosen"">Glömt bort lösenordet?</a>" & _
			"<br><a href=""login.asp?registrera"">Försök igen</a>"
		End If
		If LCase(RSConn("f_User")) =  LCase(strAnvandare) Then
			intError = intError + 1
			strError = "Användarnamnet är upptaget<br><a href=""login.asp?registrera"">Försök igen</a>"
		End If
		[b]If Len(strLosen) < 4 Then
			intError = intError + 1
			strError = "Lösenordet måste vara minst 4 tecken.<br><a href=""login.asp?registrera"">Försök igen</a>"
		End If[/b]
		RSConn.movenext
	Wend
	If intError = 1 Then Response.Write strError Else response.write "Både mailen och användarnamnet är upptaget" & _
			"<br><a href=""login.asp?registrera"">Försök igen</a>"
Else

lägg till allt till databasen
```

Jag la till en koden med fet stil för att kolla minimumlängden på lösenordet. Men den klagar inte om man har mindre än 4 tecken. varför?

R/ ändrade en del fel jag såg

Permalänk: https://www.webforum.nu/p/647048

---

Tråden på webben: https://www.webforum.nu/amne/asp/41659-kolla-om-mailen-redan-finns-i-databasen-vid-registrering/page2  
Föregående sida: https://www.webforum.nu/amne/asp/41659-kolla-om-mailen-redan-finns-i-databasen-vid-registrering.md