%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("textfield"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="detalle.asp"
MM_redirectLoginFailed="ip.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_alumnos_STRING
MM_rsUser.Source = "SELECT USUARIO, PASSWORD"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM USUARIOS WHERE USUARIO='" & Replace(MM_valUsername,"'","''") &"' AND PASSWORD='" & Replace(Request.Form("textfield2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
EXSEMINARISTAS DE CARRIÓN DE LOS CONDES (Palencia).(Curso 1970/71)
Aunque algunos no estuvimos presentes en las conversaciones y tertulias donde fue fraguándose la idea inicial, resulta evidente, a la vista de los acontecimientos posteriores, que la primera cuestión a dilucidar era dónde se ponía el límite a la hora de determinar el grupo de compañeros al que había de realizarse la convocatoria del primer reencuentro después de casi treinta años de separación.
Se necesita contraseña previa. Si eres antiguo alumno Solicítela aqui