Kolla användarnamn

5 svar · 190 visningar · startad av crisse6 16 apr. 2001

crisse6Medlem sedan dec. 20002 526 inlägg

Trådstart16 apr. 2001 21:01#1

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
%>

LarsGMedlem sedan dec. 200012 464 inlägg

16 apr. 2001 21:19#2

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

Resten som det är

crisse6Medlem sedan dec. 20002 526 inlägg

17 apr. 2001 12:14#3

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
%>

LarsGMedlem sedan dec. 200012 464 inlägg

17 apr. 2001 13:21#4

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]

BendroMedlem sedan jan. 20013 039 inlägg

17 apr. 2001 13:34#5

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?

crisse6Medlem sedan dec. 20002 526 inlägg

17 apr. 2001 13:43#6

tack LarsG, det fungerar....