<% session("clientAccess") = "new" conn=StrAdminProvider 'response.write conn Set rs3=Server.CreateObject("ADODB.Recordset") sqltext3 = "delete from clientes WHERE nombre_de_la_empresa='' AND nombre='' AND apellidos=''" 'response.write sqltext3 'rs3.open sqltext3, conn,adOpenStatic, adLockOptimistic,adCmdText 'rs3.open sqltext3, conn,3,3 'rs3.open sqltext3, conn,2,3 rs3.open sqltext3, conn ' database connection 'sqltext = "select * from clients WHERE 1=0" 'Set rs=Server.CreateObject("ADODB.Recordset") 'rs.open sqltext, conn,2,3 'rs.addnew 'rs.update 'id=rs("id") sqltext = "INSERT into clientes (nombre) VALUE ('')" Set rs=Server.CreateObject("ADODB.Recordset") rs.open sqltext, conn Function password_GenPass( nNoChars, sValidChars ) ' nNoChars = length of generated password ' sValidChars = valid characters. If zerolength-string ( "" )then ' default is used: A-Z AND a-z AND 0-9 Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789" Dim nCount Dim sRet Dim nNumber Dim nLength Randomize 'init random If sValidChars = "" Then sValidChars = szDefault End If nLength = Len( sValidChars ) For nCount = 1 To nNoChars nNumber = Int((nLength * Rnd) + 1) sRet = sRet & Mid( sValidChars, nNumber, 1 ) Next password_GenPass = sRet End Function xpassword=password_GenPass( 5, "ABCabc1" ) xusername=password_GenPass( 5, "ABCabc1" ) ' check if password exists for I = 1 to 200 sqltext2 = "select * from clientes WHERE username='"&xusername&"' AND xpassword='"&xpassword&"'" 'response.write sqltext2 Set rs2=Server.CreateObject("ADODB.Recordset") rs2.open sqltext2, conn if rs2.eof then xpassword=password_GenPass( 5, "ABCabc1" ) Response.Redirect "editclient.asp?client_access=new_client_access&xpassword="&xpassword&"&xusername="&xusername&"&keyword="&keyword&"" 'exit for else ' call the page again to find another password response.redirect "add_new_client.asp" end if next %>