home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 March / Chip_2001-03_cd1.bin / bonus / shop / registrace.asp < prev    next >
Text File  |  2000-12-06  |  8KB  |  184 lines
  1. <%@ Language=VBScript %>
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  6. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  7. <meta name="ProgId" content="FrontPage.Editor.Document">
  8. <title>Zpracovßnφ registrace u₧ivatele</title>
  9. </head>
  10. <body bgcolor="#FFFFFF" topmargin="5" leftmargin="5">
  11. <OBJECT RUNAT="server" PROGID="Scripting.FileSystemObject" id="objFileSys"></OBJECT>
  12. <%
  13. On Error Resume Next
  14. pocetzaznamu = 0
  15. soubor = "../_private/user.mdb"
  16. zdroj = "DBQ=" & Server.MapPath(soubor)
  17. set objConn = server.createobject("adodb.connection")
  18. objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj
  19. set A = Server.CreateObject("adodb.Recordset")
  20. A.Open "SELECT * FROM user", objConn, 3, 3
  21. novy = LCase(Request.Form("username"))
  22. shoda = "ne"
  23. Do Until A.EOF
  24. stary = LCase(A("username"))
  25. If (novy = stary) Then
  26. shoda = "ano"
  27. End If
  28. pocetzaznamu = pocetzaznamu + 1
  29. A.MoveNext
  30. Loop
  31. If (shoda = "ne") Then 
  32. Set typbr = Server.CreateObject("MSWC.BrowserType")
  33. If (typbr.browser="IE") And (typbr.majorver="5")  Then
  34. strom = "1"
  35. Session("Strom") = 1
  36. Else
  37. strom = ""
  38. End If
  39. A.AddNew
  40. A.Update
  41. Err.Number = 0
  42. A.Close
  43. Set A = Nothing
  44. pocetzaznamu = pocetzaznamu + 1
  45. set A = Server.CreateObject("adodb.Recordset")
  46. A.Open "SELECT * FROM user WHERE id = " & pocetzaznamu, objConn, 3, 3
  47. nazvy = Array("username", "password", "firma", "osoba", "ulice", "mesto", "psc", "ico", "dic", "email", "strom")
  48. hodnoty = Array(Request.Form("username"), Request.Form("password"), Request.Form("firma"), Request.Form("osoba"), Request.Form("ulice"), Request.Form("mesto"), Request.Form("psc"), Request.Form("ico"), Request.Form("dic"), Request.Form("email"), strom)
  49. A.Update nazvy, hodnoty
  50. A.Close
  51. Set A = Nothing
  52. objConn.Close
  53. Set objConn = Nothing
  54. logfilename = "../_private/log" & CStr(pocetzaznamu) & ".txt"
  55. cil = Server.MapPath(logfilename)
  56. Application.Lock
  57. Set ZData = objFileSys.CreateTextFile(cil, 8)
  58. datum = FormatDateTime(Now(),2) & ", " & time()
  59. radeklog = "0#" & datum & "#Registrace u₧ivatele#"
  60. ZData.WriteLine(radeklog)
  61. ZData.Close
  62. Application.UnLock
  63. Err.Number = 0
  64. If (Err.Number = 0) Then
  65. Session("Registrace") = Request.Form("username")
  66. Session("Impulsy") = 0
  67. Session("Id") = pocetzaznamu
  68. %>
  69. <form name="ok"><table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#FFFFFF">
  70.     <tr>
  71.       <td width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><div align="center"><center>
  72.           <div align="center">
  73.             <table border="0" cellspacing="0" cellpadding="0" width="70%">
  74.               <tr>
  75.                 <td width="100%" align="center" bordercolordark="#C0C0C0">
  76.                   <p align="center"><font face="Verdana" color="#000080"><strong>Registrace
  77.                   u₧ivatele</strong></font></p>
  78.                 </td>
  79.               </tr>
  80.             </table>
  81.           </div>
  82.           </div>
  83.         </center></td>
  84.     </tr>
  85.     <tr align="center">
  86.       <td width="100%" align="center" bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="0"
  87.       cellpadding="3">
  88.         <tr>
  89.           <td bgcolor="#E5E5E5" align="right"><div align="left"><p><font face="Verdana"><b><small>VaÜe
  90.               registrace prob∞hla ·sp∞Ün∞. Nynφ jste v systΘmu zaregistrovßn(a) pod u₧ivatelsk²m
  91.               jmΘnem <font color="#FF0000"><%= Request.Form("username") %></font>.<br>
  92.               Zapamatujte si prosφm svΘ u₧ivatelskΘ jmΘno a heslo. Pomocφ t∞chto ·daj∙ se
  93.               budete identifikovat p°i vstupu do systΘmu.</small></b></font>
  94.             </div>
  95.           </td>
  96.         </tr>
  97.         <tr>
  98.           <td width="10%" bgcolor="#E5E5E5" align="left" nowrap>
  99.             <p align="center"><input type="button" value=" PokraΦovat "
  100.       name="SUBMIT" onClick="document.location = 'uvod.asp'"></td>
  101.         </tr>
  102.       </table>
  103.         </td>
  104.     </tr>
  105.   </table>
  106. </form>
  107. <p align="center"><br>
  108. </p>
  109. <% Else
  110. Response.Write Err.description  %>
  111. <form name="chyba"><table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#FFFFFF">
  112.     <tr>
  113.       <td width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><div align="center"><center>
  114.           <div align="center">
  115.             <table border="0" cellspacing="0" cellpadding="0" width="70%">
  116.               <tr>
  117.                 <td width="100%" align="center" bordercolordark="#C0C0C0">
  118.                   <p align="center"><font face="Verdana" color="#000080"><strong>Registrace
  119.                   u₧ivatele</strong></font></p>
  120.                 </td>
  121.               </tr>
  122.             </table>
  123.           </div>
  124.           </div>
  125.         </center></td>
  126.     </tr>
  127.     <tr align="center">
  128.       <td width="100%" align="center" bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="0"
  129.       cellpadding="3">
  130.         <tr>
  131.           <td bgcolor="#E5E5E5" align="right"><div align="left"><p><font face="Verdana"><b><small>Bohu₧el
  132.               v pr∙b∞hu registrace doÜlo k chyb∞. Opakujte prosφm registraci znovu.</small></b></font>
  133.             </div>
  134.           </td>
  135.         </tr>
  136.         <tr>
  137.           <td width="10%" bgcolor="#E5E5E5" align="left" nowrap>
  138.             <p align="center"><input type="button" value=" Opakovat"
  139.       name="SUBMIT" onClick="document.location = 'registrace1.asp?firma=<%= Request.Form("firma") %>&osoba=<%= Request.Form("osoba") %>&ulice=<% = Request.Form("ulice") %>&mesto=<%= Request.Form("mesto") %>&psc=<%= Request.Form("psc") %>&ico=<%= Request.Form("ico") %>&dic=<%= Request.Form("dic") %>&email=<% = Request.Form("email") %>&password=<% = Request.Form("password") %>&passwordconfirm=<%= Request.Form("passwordconfirm") %>'"></td>
  140.          </tr>
  141.       </table>
  142.         </td>
  143.     </tr>
  144.   </table></form>
  145. <% End If 
  146. Else %>
  147. <form name="chyba"><table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#FFFFFF">
  148.     <tr>
  149.       <td width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><div align="center"><center>
  150.           <div align="center">
  151.             <table border="0" cellspacing="0" cellpadding="0" width="70%">
  152.               <tr>
  153.                 <td width="100%" align="center" bordercolordark="#C0C0C0">
  154.                   <p align="center"><font face="Verdana" color="#000080"><strong>Registrace
  155.                   u₧ivatele</strong></font></p>
  156.                 </td>
  157.               </tr>
  158.             </table>
  159.           </div>
  160.           </div>
  161.         </center></td>
  162.     </tr>
  163.     <tr align="center">
  164.       <td width="100%" align="center" bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="0"
  165.       cellpadding="3">
  166.         <tr>
  167.           <td bgcolor="#E5E5E5" align="right"><div align="left"><p><font face="Verdana"><b><small>Zadali jste u₧ivatelskΘ jmΘno, kterΘ v databßzi ji₧ bohu₧el existuje.<p> Zvolte si prosφm jinΘ u₧ivatelskΘ jmΘno a opakujte registraci.</small></b></font>
  168.             </div>
  169.           </td>
  170.         </tr>
  171.         <tr>
  172.           <td width="10%" bgcolor="#E5E5E5" align="left" nowrap>
  173.             <p align="center"><input type="button" value=" Opakovat"
  174.       name="SUBMIT" onClick="document.location = 'registrace1.asp?firma=<%= Request.Form("firma") %>&osoba=<%= Request.Form("osoba") %>&ulice=<% = Request.Form("ulice") %>&mesto=<%= Request.Form("mesto") %>&psc=<%= Request.Form("psc") %>&ico=<%= Request.Form("ico") %>&dic=<%= Request.Form("dic") %>&email=<% = Request.Form("email") %>&password=<% = Request.Form("password") %>&passwordconfirm=<%= Request.Form("passwordconfirm") %>'"></td>
  175.          </tr>
  176.       </table>
  177.         </td>
  178.     </tr>
  179.   </table></form>
  180. <% End If %>
  181. </body>
  182.  
  183. </html>
  184.