<%@ LANGUAGE="VBSCRIPT" %> <%dim idusuari,usuari usuari = Session("dni") If usuari = "" then idusuari = Request.Cookies("creu_roja_idusuari") If idusuari<>"" then sql = "SELECT dni FROM users WHERE id_usu=" & Request.Cookies("creu_roja_idusuari") Set rsUser1 = Server.CreateObject("ADODB.Recordset") rsUser1.Open sql, conn, 3, 3 If not rsuser1.eof then usuari = rsuser1("dni") End If rsUser1.close set rsUser1 = nothing End If End If if request("alias")="" and request("password")="" then %> Contingut

Novetats Curs 10/11

Estudiants de 1r Grau

Màsters

Diplomes de Postgrau

Guia de l'estudiant del Curs 10/11

La web de consulta de l'Espai Europeu d'Educació Superior (Bolonya)

Com arribar:

Formació Continua

C/ de la Riba, 90

08221 Terrassa

Tel. 93 783 77 77

informacio@escola.creuroja.org

 

La Educación mediante

el cuerpo en movimiento según

el concepto de Véronica Sherborne

Inscripción

Formació Continua Curs 2009/2010

  
Copyright © 2006 Escola Universitària Creu Roja. Ultima actualització: 22 de juliol de 2010.
<%else 'Response.Cookies("creu_roja_alias")="" 'Response.Cookies("creu_roja_idusuari")="" sql = "SELECT username,password,id_usu,data_ultima_conexio,dni,firstname,surname,segon_cognom FROM Users WHERE username = '" & replace(trim(request.form("alias")),"'","''") & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 If not rsuser.EOF then If UCASE(trim(request.form("password"))) = UCASE(rsUser("password")) then idusuari=rsuser("id_usu") Response.Cookies("creu_roja_alias") = request.form("alias") Response.Cookies("creu_roja_alias").expires = #1/1/2010# Response.Cookies("creu_roja_idusuari") = Cstr(idusuari) Response.Cookies("creu_roja_idusuari").expires = #1/1/2010# Session("dni") = rsuser("dni") Session("nom") = TRIM(rsuser("firstname")) & " " & TRIM(rsuser("surname")) & " " & TRIM(rsuser("segon_cognom")) sql="" if isnull(rsUser("data_ultima_conexio")) then sql="update users set data_ultima_conexio=now,total_consultes=total_consultes+1 where id_usu=" & idusuari else if DateDiff("h",Cdate(rsUser("data_ultima_conexio")),Now)>1 then sql="update users set data_ultima_conexio=now,total_consultes=total_consultes+1 where id_usu=" & idusuari end if end if if len(sql)>0 then Set Conexion = CreateObject("ADODB.Connection") Conexion.Open Conn Conexion.Execute(sql) Set conexion=nothing end if session("cr_pasar")=1 'response.write "salgo" 'response.end response.redirect "/escola/nova2/CampusVirtual/Campus Virtual.htm" Else Response.Write "Password incorrecta" Response.End 'Response.redirect "/escola/login_eui.asp" End If Else Response.Write "No es un Alumne" Response.End 'Response.redirect "/escola/login_eui.asp" End If End if%>