Auto password

Hej alle, jeg har fået lavet dette script, og det virker som det skal, men jeg mangler noget der automatisk kan lave kodeord.

Prøv at se scriptet, hvis du har en brugbar løsning vil jeg være evig taknemmelig :)

<%

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\forhandler.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")

kundenr = ""
kundenavn = ""
kundeadr = ""
kundepostnr = ""
kundeby = ""
kundetele = ""

'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  if Request.Form("kn") <> "" then
    'find kunde data fra angivet kunde nummer:
    strSQL = "SELECT * FROM kunder WHERE kundenr = '" & Request.Form("kn") & "'"
    set rs = conn.Execute(strSQL)
    if not rs.EOF then
      kundenr = rs("kundenr")
      kundenavn = rs("kundenavn")
      kundeadr = rs("kundeadr")
      kundepostnr = rs("kundepostnr")
      kundeby = rs("kundeby")
      kundetele = rs("kundetele")
    end if
  end if
  if Request.Form("mode") = "dataform" then
    if Request.Form("kundenr") = "" then
      'Opret ny kunde, gemt i database og giv dem et kunde nr.
      'Her skal der indsættes noget kode som lavet et kundenr og ikke kun nummer "ert".
      nytkundenr = "ert"
      strSQL = "INSERT INTO kunder (kundenr, kundenavn,kundeadr,kundepostnr,kundeby,kundetele)"
      strSQL = strSQL & " VALUES ('" & nytkundenr & "', "
      strSQL = strSQL & "'" & Request.Form("kundenavn") & "', "
      strSQL = strSQL & "'" & Request.Form("kundeadr") & "', "
      strSQL = strSQL & "'" & Request.Form("kundepostnr") & "', "
      strSQL = strSQL & "'" & Request.Form("kundeby") & "', "
      strSQL = strSQL & "'" & Request.Form("kundetele") & "')"
      Conn.Execute (strSQL)
      Response.Write "Du er oprette som kunde, dit kunde nr er : " & nytkundenr
      Response.End
    else
      'Opdater data for den valgte kunde
      strSQL = "UPDATE kunder SET "
      strSQL = strSQL & "kundenavn = '" & Request.Form("kundenavn") & "', "
      strSQL = strSQL & "kundeadr = '" & Request.Form("kundeadr") & "', "
      strSQL = strSQL & "kundepostnr = '" & Request.Form("kundepostnr") & "', "
      strSQL = strSQL & "kundeby = '" & Request.Form("kundeby") & "', "
      strSQL = strSQL & "kundetele = '" & Request.Form("kundetele") & "' "
      strSQL = strSQL & "WHERE kundenr = '" & Request.Form("kundenr") & "'"
      Conn.Execute (strSQL)
      Response.Write "Dine data er nu opdatert."
      Response.End
    end if
  end if 
end if
Conn.Close
%>
<HTML>
<HEAD>
<TITLE>Formular</TITLE>
</HEAD>
<BODY BGCOLOR="#D3E2D3">
<P></head> <STYLE>BODY { scrollbar-darkshadow-color: #D3E2D3;
scrollbar-shadow-color: #D3E2D3; scrollbar-3dlight-color: #D3E2D3;
scrollbar-face-color: #000000; scrollbar-arrow-color: #D3E2D3;
scrollbar-track-color: #D3E2D3; scrollbar-highlight-color: #D3E2D3; }</STYLE></P>
<CENTER><FONT SIZE="+2" FACE="Tahoma"><B>Online registrering</B></FONT></CENTER>
<P>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" name="WEB">
  <P>&nbsp;</P>
  <P>&nbsp;
  <TABLE BORDER=1><TR><TD>
  <P><FONT SIZE="-1" FACE="Tahoma"><B>Kunde nummer</B></FONT><INPUT TYPE=text NAME=kn VALUE="" SIZE=4><input type="submit" name="getData" value="Hent Data"></P>
  </TD>
  </TR>
  </TABLE>
  </P>
</FORM>
<FORM action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" name="kundedata">
  <P>&nbsp;</P><input type="hidden" name="kundenr" value="<%=kundenr%>"><input type="hidden" name="mode" value="dataform">
  <CENTER><TABLE BORDER=1>
      <TR>
        <TD>
            <P><FONT SIZE="-1" FACE="Tahoma"><B>Kundens navn &amp;
            adresse: </B></FONT></P>
        </TD>
        <TD>
            <P><INPUT TYPE="text" NAME="kundenavn" VALUE="<%=kundenavn%>" SIZE=20>
            <INPUT TYPE="text" NAME="kundeadr" VALUE="<%=kundeadr%>" SIZE=20></P>
        </TD>
      </TR>
      <TR>
        <TD>
            <P><FONT SIZE="-1" FACE="Tahoma"><B>Kundens postnummer,
            by &amp; telefonnummer:</B></FONT></P>
        </TD>
        <TD>
            <P><INPUT TYPE=text NAME=kundepostnr VALUE="<%=kundepostnr%>" SIZE=4>
            <INPUT TYPE=text NAME=kundeby VALUE="<%=kundeby%>" SIZE=20>
            <INPUT TYPE=text NAME=kundetele VALUE="<%=kundetele%>" SIZE=7></P>
        </TD>
      </TR>
      <TR>
        <TD>
            <P><FONT SIZE="-1" FACE="Tahoma"><B>Indtast
            dato:</B></FONT></P>
        </TD>
        <TD>
            <P><SCRIPT LANGUAGE="" type="text/javascript">var nu = new Date();
var dag = ""+nu.getDate();
var maaned = "0"+(nu.getMonth()+1);
var aar = ""+nu.getYear();
var dato = dag.substr(-2)+maaned.substr(-2)+aar.substr(-200);
document.write("<input type='text' name='dato' value='" +dato +"'>" );</SCRIPT></P>
        </TD>
      </TR>
      <tr><td><input type="submit" name="Send Data" value="Send Data">
  </TABLE>
  </CENTER>
 
  <P>
</FORM></P>
</BODY>
</HTML>