<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_usuarios Dim rs_usuarios_numRows Set rs_usuarios = Server.CreateObject("ADODB.Recordset") rs_usuarios.ActiveConnection = MM_cnx_socios_STRING rs_usuarios.Source = "SELECT * FROM socios where nivel=1 or nivel=0" rs_usuarios.CursorType = 0 rs_usuarios.CursorLocation = 2 rs_usuarios.LockType = 1 rs_usuarios.Open() rs_usuarios_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="nivel" MM_redirectLoginSuccess="biblioteca_in.asp" MM_redirectLoginFailed="index_login_incorrecto.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_cnx_socios_STRING MM_rsUser.Source = "SELECT usuario, clave" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM socios WHERE nivel=1 or nivel=0 AND usuario='" & Replace(MM_valUsername,"'","''") &"' AND clave='" & Replace(Request.Form("clave"),"'","''") & "'" 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 %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_cnx_biblioteca_STRING rs.Source = "SELECT * FROM biblioteca where categoria=1 ORDER BY id DESC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> Biblioteca SAMeR

SAMeR

 

Bienvenidos a nuestra
Biblioteca Virtual para socios SAMeR

SAMeR brinda a sus socios una selección de materiales de interés relacionados a la Medicina Reproductiva.

Si sos socio o alumno de SAMeR y tenés tu cuota al día, podés ingresar con el mail que nos brindaste al darte de alta como socio o alumno como usuario y contraseña.

Revistas

Cochrane

Por consultas administrativas secretaria@samer.org.ar