<%@LANGUAGE="VBSCRiPT" CODEPAGE="1252"%>
<%
if session("autorizacion")<>"si" then
Path_index=Request.ServerVariables("PATH_INFO")
response.redirect("../Nosesion.asp?Origen="+Path_index)
end if
set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "cobandalucia.org.dirprof"
set rst = Server.CreateObject("ADODB.RecordSet")
if request("ID")<>"" then
sqltext = "SELECT * FROM Directorio WHERE ID=" + request("ID") + ""
else
if Request.Cookies("nombreUsu") <> "" then szNombreUsu=Request.Cookies("nombreUsu")
sqltext = "SELECT * FROM Directorio WHERE NumCol='" + szNombreUsu + "'"
sqltextBolsa = "SELECT * FROM Bolsa WHERE NumCol='" + szNombreUsu + "'"
end if
rst.Open sqltext,conexion,3,3
if (not rst.eof) then
ID=rst("ID")
NumCol=rst("NumCol")
Nombre=rst("Nombre")
Apellido1=rst("Apellido1")
Apellido2=rst("Apellido2")
NIF=rst("NIF")
Foto=rst("Foto")
Telefono=rst("Telefono")
eMail=rst("eMail")
Campo1=rst("Campo1")
Campo2=rst("Campo2")
Campo3=rst("Campo3")
rst.Close
set rst=Nothing
else
rst.Close
set rst=Nothing
'response.Redirect("resultado.asp?tipo=dir&err=usu")
response.Redirect("directorioNuevo.asp")
'response.Write("Imposible cargar los datos")
end if
'obtengo los datos de la bolsa
'if request("edit")="1" then
set rec = Server.CreateObject("ADODB.RecordSet")
rec.Open sqltextBolsa,conexion,3,3
if (not rec.eof) then
FechaNac=rec("FechaNac")
LugarNac=rec("LugarNac")
Direccion=rec("Direccion")
Licenciatura=rec("Licenciatura")
Master=rec("Master")
Cursos=rec("Cursos")
Doctorado=rec("Doctorado")
Trabajos=rec("Trabajos")
Idiomas=rec("Idiomas")
Informatica=rec("Informatica")
Carnet=rec("Carnet")
Otros=rec("Otros")
Referencias=rec("Referencias")
rec.Close
set rec=Nothing
Set conexion=Nothing
else
rec.Close
set rec=Nothing
'response.Redirect("resultado.asp?tipo=dir&err=usu")
'response.Redirect("directorioNuevo.asp")
'response.Write("Imposible cargar los datos")
end if
'end if
Set conexion=Nothing
%>
Colegio Oficial de Biólogos de Andalucía § Bolsa de Profesionales
