<%@ Language=VBScript %> Zpracování registrace uživatele <% On Error Resume Next pocetzaznamu = 0 soubor = "../_private/user.mdb" zdroj = "DBQ=" & Server.MapPath(soubor) set objConn = server.createobject("adodb.connection") objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj set A = Server.CreateObject("adodb.Recordset") A.Open "SELECT * FROM user", objConn, 3, 3 novy = LCase(Request.Form("username")) shoda = "ne" Do Until A.EOF stary = LCase(A("username")) If (novy = stary) Then shoda = "ano" End If pocetzaznamu = pocetzaznamu + 1 A.MoveNext Loop If (shoda = "ne") Then Set typbr = Server.CreateObject("MSWC.BrowserType") If (typbr.browser="IE") And (typbr.majorver="5") Then strom = "1" Session("Strom") = 1 Else strom = "" End If A.AddNew A.Update Err.Number = 0 A.Close Set A = Nothing pocetzaznamu = pocetzaznamu + 1 set A = Server.CreateObject("adodb.Recordset") A.Open "SELECT * FROM user WHERE id = " & pocetzaznamu, objConn, 3, 3 nazvy = Array("username", "password", "firma", "osoba", "ulice", "mesto", "psc", "ico", "dic", "email", "strom") 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) A.Update nazvy, hodnoty A.Close Set A = Nothing objConn.Close Set objConn = Nothing logfilename = "../_private/log" & CStr(pocetzaznamu) & ".txt" cil = Server.MapPath(logfilename) Application.Lock Set ZData = objFileSys.CreateTextFile(cil, 8) datum = FormatDateTime(Now(),2) & ", " & time() radeklog = "0#" & datum & "#Registrace uživatele#" ZData.WriteLine(radeklog) ZData.Close Application.UnLock Err.Number = 0 If (Err.Number = 0) Then Session("Registrace") = Request.Form("username") Session("Impulsy") = 0 Session("Id") = pocetzaznamu %>

Registrace uživatele

Vaše registrace proběhla úspěšně. Nyní jste v systému zaregistrován(a) pod uživatelským jménem <%= Request.Form("username") %>.
Zapamatujte si prosím své uživatelské jméno a heslo. Pomocí těchto údajů se budete identifikovat při vstupu do systému.


<% Else Response.Write Err.description %>

Registrace uživatele

Bohužel v průběhu registrace došlo k chybě. Opakujte prosím registraci znovu.

&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") %>'">
<% End If Else %>

Registrace uživatele

Zadali jste uživatelské jméno, které v databázi již bohužel existuje.

Zvolte si prosím jiné uživatelské jméno a opakujte registraci.

&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") %>'">
<% End If %>