Opret bruger

navn er det bruger navn du vil tjekke på eks:
navn = \"ole\"

sql = \"SELECT * FROM login WHERE username =\'\" & navn & \"\';\"
set rs = Conn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  Response.Write \"Bruger navnet er ledig vil du havde det til denne site?\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if

Skal bruge en hel source,
har lavet en side med form\'en på..

(:

Jeg er ikke den vilde ASP haj

Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"DINDB.mdb\")
Conn.Open DSN

navn = request.form(\"nytbrugernavn\")

sql = \"SELECT * FROM login WHERE username =\'\" & navn & \"\';\"
set rs = Conn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  Response.Write \"Bruger navnet er ledig vil du havde det til denne site?\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if 
conn.close

Vidre bygning :
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"BlaBla.mdb\")

sql = \"SELECT * FROM login WHERE username =\'\" & navn & \"\';\"

set rs = myConn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  strSQL=\"INSERT INTO login (username, password) values (\'\" & Request(\"username\") & \"\',\'\" & Request(\"password\") & \"\');\"
  myConn.Execute(strSQL)
  Response.Write \"Bruger tilføjet\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if

Det virker meget godt med at se om der findes en bruger med det navn,,,
Men kunne man ikke tilføje noget så den skriver info til dben ??

<html>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"db/db.mdb\")
Conn.Open DSN

brugernavn = Request.Form(\"brugernavn\")
password = Request.Form(\"password\")
email = Request.Form(\"email\")
fnavn = Request.Form(\"fnavn\")
lnavn = Request.Form(\"lnavn\")
alder = Request.Form(\"alder\")
kon = Request.Form(\"kon\")
beskrivelse = Request.Form(\"beskrivelse\")
navn = Request.Form(\"navn\")
icq = Request.Form(\"icq\")
hjemmeside = Request.Form(\"hjemmeside\")


sql = \"SELECT * FROM brugere WHERE brugernavn =\'\" & brugernavn & \"\';\"
set rs = Conn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  Response.Write \"Bruger navnet er ledig vil du havde det til denne site?\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if 
conn.close

%>

Sådan her:  du skal nok lige tjekke omdatatyperne passer mth \' omkring. Alder har jeg antaget er et tal, restern har jeg anteget er strenge. Ligeledes tjekke om kolonne navne er rigtge:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"db/db.mdb\")
Conn.Open DSN

brugernavn = Request.Form(\"brugernavn\")
password = Request.Form(\"password\")
email = Request.Form(\"email\")
fnavn = Request.Form(\"fnavn\")
lnavn = Request.Form(\"lnavn\")
alder = Request.Form(\"alder\")
kon = Request.Form(\"kon\")
beskrivelse = Request.Form(\"beskrivelse\")
navn = Request.Form(\"navn\")
icq = Request.Form(\"icq\")
hjemmeside = Request.Form(\"hjemmeside\")


sql = \"SELECT * FROM brugere WHERE brugernavn =\'\" & brugernavn & \"\';\"
set rs = Conn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  strSQL=\"INSERT INTO login \"
  strSQL  = strSQL & \"(username, password, email, fnavn, lnavn, alder, kon, beskrivelse, navn, icq, hjemmeside) values (\"
  strSQL  = strSQL & \"\'\" & brugernavn & \"\', \"
  strSQL  = strSQL & \"\'\" & password & \"\', \"
  strSQL  = strSQL & \"\'\" & email & \"\', \"
  strSQL  = strSQL & \"\'\" & fnavn & \"\', \"
  strSQL  = strSQL & \"\'\" & lnavn & \"\', \"
  strSQL  = strSQL & \"\" & alder & \", \"
  strSQL  = strSQL & \"\'\" & kon & \"\', \"
  strSQL  = strSQL & \"\'\" & beskrivelse & \"\', \"
  strSQL  = strSQL & \"\'\" & navn & \"\', \"
  strSQL  = strSQL & \"\'\" & icq & \"\', \"
  strSQL  = strSQL & \"\'\" & hjemmeside & \"\'\"
  strSQL  = strSQL & \");\"
  myConn.Execute(strSQL)
  Response.Write \"Bruger tilføjet\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if
conn.close
%>

Jeg har da lige set to ting:

strSQL=\"INSERT INTO login -->
strSQL=\"INSERT INTO brugere

username -->
brugernavn

Det dur desværre ikke jeg for http 500 fejl og der bliver ikke skrevet til databasen

nej for jeg kender ikke dine kolonne navne go typer i databasen:
Prøv under IE  Tools->Internet Option->Advanved-> Slå krydet fra i \"vis Venlig HTML fejl\"

Så ser den sådan ud

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/sofus/test/opret.ASP, line 39

ville det hjælpe hvis jeg sendte en kopi af databasen ?

ok

Du skal nok rette s databasen kan modtage tomme felter for de tin som ikke er nødvendige at indtaste.
Kolonne sætte til Tillad Null-længte = JA og Obligatorik= nej

Prøver lige det.. lyder som en god ide..

ja ok aoe@earthling.net

You got mail (:

håber du kan finde fejlen

er det access 2000 du har for jeg kan ikke læse den?

læse ---> åbne filen

Ja det er access 2000

Sad imens og legede med dark-mixer\'s source,, og den kan godt skrive til db\'en..

der er dog 1 mindre fejl,, den skriver brugernavn som et tomt felt

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/db.mdb\")

sql = \"SELECT * FROM brugere WHERE brugernavn =\'\" & brugernavn & \"\';\"

set rs = myConn.Execute(sql)
if (rs.BOF AND rs.EOF) then
  strSQL=\"INSERT INTO brugere (brugernavn , password, email) values (\'\" & Request(\"brugernavn \") & \"\',\'\" & Request(\"password\") & \"\',\'\" & Request(\"email\") & \"\');\"
  myConn.Execute(strSQL)
  Response.Write \"Bruger tilføjet\"
else
  Response.Write \"Bruger navnet er optaget!\"
end if
%>

http://www.magik.dk/asp/login.zip :)

(: tror bare jeg bruger magiks script...

du bruger bare hvad du finder bedst.

Jeg ville gææte på hvis den kolonnen er tom så er det fordi dit input felt ikke hedder brugernavn.

15 point til hver er det ikke meget fair ?

>>-sofus-: Jeg klager ikke *g*

Helt fint med mig :)

hmm glemte at give points (: