oprette ny bruger i database, men kun hvis han ikke eksistere

Du laver bare et lille tjek først.

If ot rs.eof or rs.bof then
- opret bruger -
  else
Response.Write "Brugeren eksisterer allerede i databasen."
End if

hov ot skulle selfølgelig være not

http://www.eksperten.dk/spm/75375

Her kommer lige mit ASP
har sat det ind du skrev pfp men den samme fejl kommer alligevel,
har skisme nok placeret det lidt forkert. :-)

<%
'Åbner connection til databasen
   
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/bruger.mdb")

'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Tjecker om felterne er udfyld
    if (Request.Form("tlf") <> "" AND Request.Form("fornavn") <> "" AND Request.Form("efternavn") <> "" AND Request.Form("adresse") <> "" AND Request.Form("postnr") <> "" AND Request.Form("by") <> "" AND Request.Form("land") <> "" AND Request.Form("e-mail") <> "") then

'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from nyheder"
    rs.Open strsql, conn, 1, 3

If not rs.eof or rs.bof then

'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("tlf") = Server.HTMLEncode(Request("tlf"))
    rs("fornavn") = Server.HTMLEncode(Request("fornavn"))
    rs("efternavn") = Server.HTMLEncode(Request("efternavn"))
    rs("adresse") = Server.HTMLEncode(Request("adresse"))
    rs("postnr") = Server.HTMLEncode(Request("postnr"))
    rs("by") = Server.HTMLEncode(Request("by"))
    rs("land") = Server.HTMLEncode(Request("land"))
    rs("fax") = Server.HTMLEncode(Request("fax"))
    rs("e-mail") = Server.HTMLEncode(Request("e-mail"))
    rs("priverhverv") = Server.HTMLEncode(Request("priverhverv"))
    rs("kontaktperson") = Server.HTMLEncode(Request("kontaktperson"))
    rs.update
   
    Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")

    rs.Close
    set rs = nothing
    conn.close

    else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
    end if

Response.Write "Brugeren eksisterer allerede i databasen."
End if

    end if
%>

har sat den "else" ind lige over Response.Write "Brugeren eksisterer allerede i databasen." men samme fejl

strSQL = "select * from nyheder where tlf='" & Server.HTMLEncode(Request("tlf")) & "'"

nu ser min kode sådan ud

<%
'Åbner connection til databasen
   
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/bruger.mdb")

'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Tjecker om felterne er udfyld
    if (Request.Form("tlf") <> "" AND Request.Form("fornavn") <> "" AND Request.Form("efternavn") <> "" AND Request.Form("adresse") <> "" AND Request.Form("postnr") <> "" AND Request.Form("by") <> "" AND Request.Form("land") <> "" AND Request.Form("e-mail") <> "") then

'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
'    strSQL = "select * from nyheder"
    strSQL = "select * from nyheder where tlf='" & Server.HTMLEncode(Request("tlf")) & "'"
    rs.Open strsql, conn, 1, 3

If Not rs.eof or rs.bof then

'Tilføjer brugeren til databasen
    rs.AddNew
    rs("tlf") = Server.HTMLEncode(Request("tlf"))
    rs("fornavn") = Server.HTMLEncode(Request("fornavn"))
    rs("efternavn") = Server.HTMLEncode(Request("efternavn"))
    rs("adresse") = Server.HTMLEncode(Request("adresse"))
    rs("postnr") = Server.HTMLEncode(Request("postnr"))
    rs("by") = Server.HTMLEncode(Request("by"))
    rs("land") = Server.HTMLEncode(Request("land"))
    rs("fax") = Server.HTMLEncode(Request("fax"))
    rs("e-mail") = Server.HTMLEncode(Request("e-mail"))
    rs("priverhverv") = Server.HTMLEncode(Request("priverhverv"))
    rs("kontaktperson") = Server.HTMLEncode(Request("kontaktperson"))
    rs.update
   
    Response.Write("<strong><font color='red'>Du har sendt formen!</font></strong>")

    rs.Close
    set rs = nothing
    conn.close

    else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter!</font></strong>")
    end if

else
Response.Write "Brugeren eksisterer allerede i databasen."
End if

    end if
%>

men nu kommer der en ny fejl.

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/test/bruger/opret.asp, line 40

line 40 er rs.Open strsql, conn, 1, 3

Nå da da. Du har måske lagt dit telefon nummer som en integer
i databasen. Det er en klassisk begynderfejl.
  1) Det er IKKE en integer, da du aldrig skal regne på den
  2) Den kan indeholde meget andet end cifre "11111111/22222222"
    hvis en bruger vil angive 2, eller "11111111-333" hvis med
    lokalnummer, eller "+46 11111111" hvis fra udlandet
  3) Når du laver en HTML encode på den, mener du jo heller ikke
    det er et tal.

Men ok da. Prøv så:
strSQL = "select * from nyheder where tlf=" & Request("tlf")

nu fatter jeg sgu minus.

jeg ville dele de 200 point mellem jer alle 3, men pfp fik dem alle sammen, og erikjacobsen som jeg ville have givet 100 point var slet ikke på min liste.

Hvis jeg kan give jeg point på en anden måde så skriv lige tilbage så får i de point, for ret skal sgu være ret.

PS: har rettet If not rs.eof or rs.bof then til If rs.eof or rs.bof then
så virker det.

Glem det - jeg samler ikke på ligegyldige point

Pointene har heller ikke min største interesse. Så hvis det er nogle involverede i dette som er interesseret i point, kan jeg sagtens overføre dem.