oprettelse af bruger

et eksempel:
<script language="Javascript">
function validateForm(form){
    inputFelter = form.getElementsByTagName("INPUT");
    for(i=0;i<inputFelter.length;i++){
        if(inputFelter[i].value == ""){
            alert(inputFelter[i].name + " mangler en værdi");
            inputFelter[i].focus();
            return false;
        }
        if(inputFelter[i].name == "password1"){
            if(form.password2.value != ""){
                if(inputFelter[i].value != form.password2.value){
                    alert("passwords skal være ens!");
                    inputFelter[i].focus();
                    return false;
                }
            }
        }
        if(inputFelter[i].name == "email1"){
            if(form.email2.value != ""){
                if(inputFelter[i].value != form.email2.value){
                    alert("emails skal være ens!");
                    inputFelter[i].focus();
                    return false;
                }
            }
        }
    }
    return true;
}

function popUp(url,width,height){
    window.open(url,"popup","width="+width+",height="+height);
}
</script>
<form action="Processider/gemNyBruger.asp" method="post" onsubmit="return validateForm(this);">
<fieldset style="border:1px solid #6699CC;">
<legend class="Comment">Personlige oplysninger</legend>
<table>
<tr>
    <td>Fornavn</td>
    <td>Efternavn</td>
</tr>
<tr>
    <td><input class="InputBox" name="fornavn"></td>
    <td><input class="InputBox" name="efternavn"></td>
</tr>
<tr>
    <td>Brugernavn</td>
</tr>
<tr>
    <td><input class="InputBox" name="brugernavn"></td>
    <td><input class="BlueButton" type="button" value="Er brugernavn ledig?" onClick="if(form.brugernavn.value==''){return false};popUp('PopUps/popup.asp?pagetype=UIdExists&uid='+form.brugernavn.value,200,60)"></td>
</tr>
<tr>
    <td>Password</td>
    <td>Gentag password</td>
</tr>
<tr>
    <td><input class="InputBox" type="password" name="password1"></td>
    <td><input class="InputBox" type="password" name="password2"></td>
</tr>
<tr>
    <td>E-mail</td>
    <td>Gentag E-mail</td>
</tr>
<tr>
    <td><input class="InputBox" name="email1"></td>
    <td><input class="InputBox" name="email2"></td>
</tr>
<tr><td colspan="2" align="right"><input type="submit" value="opret mig!" class="SubmitBox"></td></tr>
</table>
</fieldset>

Du fik lige lidt andet med fra min gamle bruger oprettelse.
bare set bort fra det med brugernavn check.

Ved godt at du skrev at jeg skulle se bort fra det med brugernavn check, men syntes sq det er en funktion jeg kunne bruge. Men hvordan får man den så til at checke brugernavnet i databasen?

hov, tak forresten! :)

Hvis du kan gennemskue det her så kan jeg forklare det lidt.
jeg kalder en popup.asp med UIdExists og det brugernavn jeg vil afprøve:

*********** popup.asp ***************
<!-- #Include File="../Database/dbinc.asp" -->
<!-- #Include File="../Util/functions.asp" -->
<!-- #Include File="../Util/user.asp" -->
<%
PrepareDb

PageType= Request.QueryString("pagetype")

If PageType = "UIdExists" Then
    uid = Request.QueryString("uid")
    If Not isNothing(UId) Then
        If UIdExists(UId) Then
            WriteLn "<div style=""color:#FF0033;"">Brugernavnet er ikke ledigt</div>"
        Else
            Writeln "<div style=""color:#339933;"">Brugernavnet er ledigt</div>"
        End If
        WriteLn "<a href=""java script:window.close()"">close window</a>"
    End If
End If

CloseDb
%>

************************************

Min dbfil skaber bare nogle database funktioner.

i min user.asp har jeg så en funktion der checker om brugernavnet er ledigt:
udpluk:
************* user.asp *****************
<%
Function UIdExists(uid)
    Dim found
    strSQL = "Select brugernavn from dmu_bruger where brugernavn = '" &uid &"'"
    OpenRs(strSQL)
    If Dbrs.EOF Then
        found = false
    Else
        found = true
    End If
    CloseRs
    UIdExists = found
End Function
%>
**************************'


min db fil kan du lige se på.
****************** DBinc.asp ************************'
<%
Dim DbRs, DbConn, DSN

Sub PrepareDB
    DSN = "driver={mysql};server=server; port=3306;Database=dindatabase;uid=uid;pwd=password"
    set DbConn = Server.CreateObject("ADODB.Connection")
    set DbRs = Server.CreateObject("ADODB.Recordset")
    DbConn.Open DSN
End Sub

Sub OpenRS (sql)
    Dbrs.open sql, DSN
End Sub

Sub CloseRS
    Dbrs.close
End Sub

Sub ExecuteSQL (sql)
    DbConn.execute (sql)
End Sub

Sub CloseDB
    DbConn.Close
End Sub
%>

******************************

hvad med functions.asp?

ellers ser det ud til at jeg godt kan bruge det.

functions indeholder en liste genereller funktioner jeg bruger rundt omkring.




<%
Sub WriteLn (output)
    Response.Write(output) & VBCrlf
end Sub

Sub Write(output)
    Response.Write(output)
End Sub

Function PageLink (link, text, label, click)
    If not IsNothing(label) then
        Write "<a href="""&link&""" onclick="""&click&""" title="""&label&""" border=""0"">"&text&"</a>"
    Else
        Write "<a href="""&link&""" border=""0"">"&text&"</a>"
    End If
End Function

Sub Redirect (url)
    Response.Redirect(url)
End Sub

Function QueryVar (FeltName)
    QueryVar = Trim(Request.QueryString(FeltName))
End Function

Function FormVar (FeltName)
    FormVar = Trim(Request.Form(FeltName))
End Function

Function IsNothing(Value)
  If IsEmpty(Value) Or IsNull(Value) Or Value="" Then
    IsNothing = true
  else
    IsNothing = false
  end if
End Function

Function getCookie(name)
    getCookie = Request.Cookies(name)
End Function

Function sendMail(afsender, modtager, subject, body)
    set msg = Server.CreateObject("JMail.Message")
    msg.logging = true
    msg.From = afsender
    msg.FromName = afsender
    msg.AddRecipient modtager
    msg.Subject = subject
    msg.Body = body
   
    if msg.Send("smtp.cliche.dk") then
        sendMail = 1
    else
        sendMail = 0
    End If
End Function

Function returnSpace(Value)
    If isNothing(Value) Then
        returnSpace = "&nbsp;"
    Else
        returnSpace = Value
    End If
End Function

Function danskDato(dato)
    '//mm/dd/yyyy
    If Not isNothing(dato) Then
        tmp = Split(dato,"/")
        If isArray(tmp) Then
            If len(tmp(0))=1 Then
                tmp(0) = "0"&tmp(0)
            Elseif len(tmp(1))=1 Then
                tmp(1) = "0"&tmp(1)
            End If
            danskDato = tmp(1)&"-"&tmp(0)&"-"&tmp(2)
        End If
    Else
        danskDato = dato
    End If
End Function

Function sqlDato(dato)
    tmp = Split(dato,"-")
    If isArray(tmp) Then
        If len(tmp(0))=1 Then
            tmp(0) = "0"&tmp(0)
        Elseif len(tmp(1))=1 Then
            tmp(1) = "0"&tmp(1)
        End If
        sqlDato = tmp(2)&"-"&tmp(1)&"-"&tmp(0)
    End If
End Function

Function ulovligTegn(inpTekst)
    tmpString = inpTekst
    tmpString = Replace(tmpString,"'","''")
    ulovligTegn = tmpString
End Function
%>

okay, tak for det. Jeg skal lige have rodet det hele igennem, så jeg får en større forståelse for hvordan det virker. Men det er helt sikkert noget jeg kan bruge.

Takker :)

Det var så lidt.

husk at lukke spørgsmålet hvis du er har fået svar på det du manglede :-)