Kolla användarnamn

hur får jag detta skript att ta en koll om det användarnamn man valt finns redan? (som du nog ser har jag försökt med ett litet skript men det vill sig inte)

<% 
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/wwwroot/db/users.mdb" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
if RecSet.Eof then
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

else
Response.write request.form("Username") & " är upptaget, välj ett annat "
end if

RecSet.Update
RecSet.Close
Connect.Close
%>

------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 16 apr 2001]

Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"

Resten som det är

------------------
essentitia preter non sans multiplicandum

vet ej om jag har gjort rätt nu, men det funkar ju inte.... det är inga felmeddelanden utan man bara blir medlem även om personen redan finns.... jobbigt, kolla koden:

<% 
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/wwwroot/crisse6/db/users.mdb" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

RecSet.Update
RecSet.Close
Connect.Close
%>

------------------
www.groda.net *kvack*, *kvack*

Addera = "SELECT * FROM users " & _
" where username = '" & Request.Form("username") & "'"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

[b]
if  recset.eof then
[/b]
RecSet.AddNew

RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta") 
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")

RecSet.Update
[b]
else
   response.write "Namnet upptaget <br>"
end if
[/b]

------------------
essentitia preter non sans multiplicandum

Fråga...
Tillhör inte WHERE SQL-strängen? Varför konkatineras den? Jag trodde det skulle se ut så här:

Addera = "SELECT * FROM users WHERE username = '" & Request.Form("username") & "'"

Hmm..såg själv när jag fick igång hjärnan lite. Det är väl för radbrytningen antar jag?
------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein

[Redigerat av Bendro den 17 apr 2001]

tack LarsG, det fungerar....

------------------
www.groda.net *kvack*, *kvack*