Services

<% function quote_string(s) pos = InStr(s, "'") while pos > 0 s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1) pos = InStr(pos + 2, s, "'") wend quote_string = "'" & s & "'" end function If Request.Cookies("7D2C-3780-BA18-26F5") = "FFFF" Then Response.Redirect("../Services/Halt/halt.htm") Else If Request.Form("asp_login_username") <> "" Then asp_login_num_attempts = CInt(Session("asp_login_num_attempts")) If asp_login_num_attempts >= 2 Then Response.Cookies("7D2C-3780-BA18-26F5") = "FFFF" Response.Cookies("7D2C-3780-BA18-26F5").Expires = DateAdd("n", 2, Now) Session("asp_login_num_attempts") = 0 Response.Redirect("../Services/Halt/halt.htm") Else asp_login_num_attempts = asp_login_num_attempts + 1 Session("asp_login_num_attempts") = asp_login_num_attempts Set asp_login_conn = Server.CreateObject("ADODB.Connection") asp_login_conn.Open "vetusers", "", "" sql = "SELECT userid,username,password FROM users WHERE username=" & quote_string(Trim(Request.Form("asp_login_username"))) If Trim(Request.Form("asp_login_password")) <> "" Then sql = sql & " AND password=" & quote_string(Trim(Request.Form("asp_login_password"))) End If Set asp_login_rs = asp_login_conn.Execute(sql) If asp_login_rs.EOF Then asp_login_message = "?? ID ?????? ?/??? ? ??????? ??? ??????????????? ????? ??????????!!" Else Session("asp_login_unique_id") = asp_login_rs("userid") Session("asp_login_username") = asp_login_rs("username") Session("asp_login_success") = True Session("asp_login_name") = "Services Login 1" Session.Timeout = 20 Session("asp_login_num_attempts") = 0 Response.Redirect("../Services/Profesional/profesional.asp") End If End If End If End If %> Services

Ο χώρος αυτος προορίζεται για χρήση μόνον απο τα εγγεγραμμένα μέλη του ΣΚΜΖΑ

Μέσα απο τις επόμενες σελίδες υπάρχει πρόσβαση σε πληροφορίες επαγγελματικού επιπέδου

Για την πρόσβαση είναι απαραίτητη η χρήση ειδικού ID και κωδικού πρόσβασης

Αν έχετε ID χρήστη και κωδικό, πληκτολογήστε τα εδώ


	ID χρήστη

		Κωδικός


	<% = asp_login_message %>

Αν είσαστε μέλος του ΣΚΜΖΑ και δεν έχετε κωδικούς πρόσβασης, κάντε κλικ στο “Νέος χρήστης”, και συμπληρώστε τη φόρμα που θα εμφανιστεί.

Αν είσαστε Κτηνίατρος Μικρών Ζώων που ασκεί το το επάγγελμα του κτηνιατρου στον νομό Αττικής και επιθυμείτε να εγγραφείτε στον ΣΚΜΖΑ, κάντε κλικ στο “Νέο μέλος”, και συμπληρώστε τη φόρμα που θα εμφανιστεί.


	[mainpage] [home] [Links] [News] [Contact us] [Themata] [Services] [Profesional] [Halt] [Efhmeries] [Vetmap] [KATALOGOS]