Opret bruger med ifs.

Såååådanner:

<%
function lavPassword(antal)
  tilladtkarakter = "1234567890abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTYVXYZ"
  str = ""
  for i = 1 to antal
    randomize
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function
%>
<%    if request.form("B1") <> "" then

        valideringskode = lavPassword(10)
        uid = lavPassword(10)
        brugernavn = request.form("brugernavn")
        mail = request.form("mail")
        ok = true
       
        Set conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
       
        sqlTjekBruger = "Select * From bruger WHERE brugernavn = '"& brugernavn &"'"
        Set rsTjekBruger = Conn.Execute(sqlTjekBruger)
       
        sqlTjekMail = "Select * From bruger WHERE mail = '"& mail &"'"
        Set rsTjekMail = Conn.Execute(sqlTjekMail)    
       
        if not rsTjekBruger.eof then
            response.Write("Brugernavnet findes i forvejen, vælg venligt et andet.")
            ok = false
        end if
       
        if not rsTjekMail.eof then
            response.Write("E-mailen findes i forvejen, vælg venligt et andet.")
            ok = false
        end if
       
        if ok = true then
            sql = "Insert into bruger (brugernavn, password, mail, uid, valideringskode, valideret) values('" & brugernavn & "', '" & request.form("password") & "', '" & email & "', '"& uid &"', '"& valideringskode &"', false)"
            Conn.Execute(sql)   
       
            navn = Request.Form("navn")
            mail = Request.Form ("mail")
   
            Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ContentType = "text/html"
            JMail.ServerAddress = "localhost"
            JMail.Sender = "Password@FirmDesign.dk"
            Jmail.AddRecipient mail
            JMail.Priority = 3
            JMail.Subject = "Password"
            JMail.body = "Hej " & navn & "<br>" & "Dit password er " & valideringskode & "<br>" & "<a href=""http://www.firmdesign.dk/e/sys/Validering.asp?mail="& mail &"&valideringskode="& valideringskode &"""><font color=""#000000"">Klik for at aktivere din bruger</font></a>"
            JMail.Execute%>
            <script>
            alert("Der er nu sendt en mail til <%=mail%> med en valideringskode");
            </script>
        end if
<%
    end if
%>

I øvrigt ville jeg også tage mine forbehold mod pling's, fx:

brugernavn = replace(request.form("brugernavn"),"'","''")
mail = replace(request.form("mail"),"'","''")

Kunne du bruge det til noget?

ser på det i aften...

lige i vinkel... takker

Så lidt, tak for point :o)