<% Dim rsLogin, rsKlub, SQL Set rsItem = Server.CreateObject("ADODB.Recordset") Set rsLogin = Server.CreateObject("ADODB.Recordset") Set rsKlub = Server.CreateObject("ADODB.Recordset") If request.form("username") <> "" then SQL = "SELECT * FROM login WHERE username LIKE '" & request.form("username") & "' AND lozinka LIKE '" & request.form("password") & "'" rsLogin.Open SQL, objConn if not rsLogin.EOF then Session("id") = rsLogin(0) rsLogin.Close SQL = "SELECT * FROM klubovi WHERE id = " & session("id") rsKlub.Open SQL, objConn if not rsKlub.EOF then Session("Update") = 1 else Session("Update") = 0 End if else response.redirect "login.asp?fail=1" End If End if %> TKDonlineREG

   PODACI O KLUBU

<% if Session("Update") = 1 then rsItem.Open "klubovi", objConn, adOpenStatic, adLockOptimistic, adCmdTable rsItem.Filter = "id = " & Session("id") %> <% else %> <% end if %>
 
Na ovoj stranici unesite podatke o klubu / ekipi ...
 
klub / ekipa* :    ">
zemlja* : ">
grad* : ">    
adresa* : "> ZIP* : ">
telefon* : "> fax : ">
e-mail* : "> http:// ">
trener 1* : "> trener 2 : ">
klub / ekipa* :   
zemlja* :
grad* :    
adresa* : ZIP* :
telefon* : fax :
e-mail* : http://
trener 1* : trener 2 :
 
 
* - polja označena zvjezdicom su obavezna
** - pod "klub/ekipa" upisati samo naziv, bez prefiksa TK, TKD, Taekwondo Klub, i sl.
 

 

   LINKOVI