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