oprettes system check brugernavn

og den skal også checke email

Response.Write rs("Brugernavnt er optaget. Brug et andet.")
skal være
Response.Write ("Brugernavnt er optaget. Brug et andet.")

en skrive fejl her inde..

det er koden jeg ikke få til at virke

Hvilken fejl får du?? Umiddelbart ser det OK ud.

ellers prøv med:
if rs("Brugernavn") = '"& Request.Form("Brugernavn") &"' then

Hvis det ikke virker, må der mere kode til

(superior) Jeg fik denne fejl efter havde din koden i.

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/test/add_entry.asp, line 27, column 22
if rs("Brugernavn") = '"& Request.Form("Brugernavn") &"' then
---------------------^

det var min fejl - sad ogkiggede på noget andet samtidig...

Du må rette tilbage og smide noget mere kode op, så vi kan se fra din select og hvad der skal ske...

koden ser sådan ud nustrSQL2 = "SELECT * From Brugere"

            Set rs = my_conn.Execute(strSQL2)


if rs("Brugernavn") = & Request.Form("Brugernavn")  then

Response.Redirect "bruger_add.asp"

else

Brugernavn = Request.Form("Brugernavn")

end if

koden ser sådan ud nustrSQL2 = "SELECT * From Brugere"

            Set rs = my_conn.Execute(strSQL2)

ups.
if rs("Brugernavn") = & Request.Form("Brugernavn")  then

Response.Redirect "bruger_add.asp"

else

Brugernavn = Request.Form("Brugernavn")

end if

sådan.
strSQL2 = "SELECT * From Brugere"

            Set rs = my_conn.Execute(strSQL2)


if rs("Brugernavn") =  Request.Form("Brugernavn")  then

Response.Redirect "bruger_add.asp"

else

Brugernavn = Request.Form("Brugernavn")

end if

du er nødt til at have et kriterie med i selecten
nustrSQL2 = "SELECT * From Brugere where Brugernavn =" Request.Form("Brugernavn")
Set rs = my_conn.Execute(strSQL2)
if rs.eof or rs.bof then
Brugernavn = Request.Form("Brugernavn")
else
Response.Write ("Brugernavnt er optaget. Brug et andet.")
end if

nustrSQL2 = "SELECT * From Brugere where Brugernavn =" Request.Form("Brugernavn")

skal være
nustrSQL2 = "SELECT * From Brugere where Brugernavn =" & Request.Form("Brugernavn")

Endnu mere kode, tak.

hvad hvis jeg skal også checke mail

superior>>Det er jo det han checker i if-satsen, men en whileloop ville göre undervärker.

nustrSQL2 = "SELECT * From Brugere where Brugernavn ='" & Request.Form("Brugernavn") & "' AND Email = " & Request.Form("Email")
Set rs = my_conn.Execute(strSQL2)
if rs.eof or rs.bof then
Brugernavn = Request.Form("Brugernavn")
Email = Request.Form("Email")
else
Response.Write ("Brugernavnt eller email er optaget. Brug et andet.")
end if

michael_stim: der er ingen grund til at selecte alle brugere og smide dem ind i en loop for at finde ud af om brugernavnet er optaget. Så hellere forsøge at finde brugernavn i select'en - det er hurtigere

Jeg havde misset din EOF og BOF, sorry.
Men det er en dårlig idé at kun acceptere én emailadresse. Tänk hvis man deler.

du siger noget..

Men det er klart det går hurtigere at teste direkte på brugernavnet ;o)

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/test/add_entry.asp, line 23 -->
Set rs = my_conn.Execute(strSQL2)

Jeg gætter på det er din select... Har du de felter, du spørger på ?
.. men hvordan ser din kode ud nu ??

ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("_private/fdf.mdb")


set my_conn= Server.CreateObject("ADODB.Connection")
       
        my_Conn.Open ConnString       


           
       

strSQL2 = "SELECT Brugernavn From Brugere where Brugernavn =" & Request.Form("Brugernavn")
Set rs = my_conn.Execute(strSQL2)
if rs.EOF or rs.BOF then
Brugernavn = Request.Form("Brugernavn")

else
Response.Write ("Brugernavnt optaget. Brug et andet.")
end if

nustrSQL2 = "SELECT * From Brugere where Brugernavn ='" & Request.Form("Brugernavn") & "' AND Email = '" & Request.Form("Email") & "'"

Kommentar: michael_stim [18/11-2004 09:20:37]
Det er klart at den er et problem hvis man deler email ... men hvem gør det i dag (havde jeg nær sagt), og hvad skal det bruges til.. det kunne jo være at systemet kræver en unik mailadresse..  :o)

strSQL2 = "SELECT Brugernavn From Brugere where Brugernavn ='" & Request.Form("Brugernavn") & "'"

Uha, der er mange der stadig deler emailadresse. Tänk på Hr og fru Jensen der lige har fået internet ;o)

m_fisker:
strSQL2 = "SELECT Brugernavn From Brugere where Brugernavn ='" & Request.Form("Brugernavn") &"'"

michael_stim: Ja, men hvis de ikke er målgruppen, betyder det ikke noget

det ser findt ud nu.. men den oprette en brugerkonto. men med uden Brugernavn

det er nok i din insert der er noget galt :o)
husk at deet nu er vaiablen Brugernavn, der skal sættes ind

kan man ikke stoppe script

jo: response.end

Nej men kan vel lige så godt undgå at få problemer, og udelukke eventuelle fejl.

det er korrekt...  c",)

Nu virker det med 112% 1000 Tak