<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if session("autorizacion")<>"si" then
Path_index=Request.ServerVariables("PATH_INFO")
response.redirect("../Nosesion.asp?Origen="+Path_index)
end if
if Request.Cookies("nombreUsu") <> "" then NombreUsu=Request.Cookies("nombreUsu")
set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "cobandalucia.org.dirprof"
set rst = Server.CreateObject("ADODB.RecordSet")
sqltext = "SELECT * FROM Directorio WHERE NumCol='" + NombreUsu + "'"
rst.Open sqltext,conexion,3,3
'---compruebo que el nº colegiado exista, para obtener sus datos
if (not rst.eof) then
ID=rst("ID")
FechaAlta=rst("FechaAlta")
Nombre=rst("Nombre")
Apellido1=rst("Apellido1")
Apellido2=rst("Apellido2")
NumCol=rst("NumCol")
Telefono=rst("Telefono")
Localidad=rst("Localidad")
Provincia=rst("Provincia")
CP=rst("CP")
eMail=rst("eMail")
NIF=rst("NIF")
EntidadBanco=Left(rst("CCC"),4)
Sucursal=Mid(rst("CCC"),5,4)
DC=Mid(rst("CCC"),9,2)
CC=Right(rst("CCC"),10)
Info=rst("Info")
Colaboracion=rst("Colaboracion")
Foto=rst("Foto")
Entidad=rst("Entidad")
TlfEntidad=rst("TlfEntidad")
LocEntidad=rst("LocEntidad")
ProEntidad=rst("ProEntidad")
CPEntidad=rst("CPEntidad")
eMailEntidad=rst("eMailEntidad")
webEntidad=rst("webEntidad")
Logo=rst("Logo")
DatosEntidad=rst("DatosEntidad")
Remunerada=rst("Remunerada")
NoRemunerada=rst("NoRemunerada")
Campo1=rst("Campo1")
Campo2=rst("Campo2")
Campo3=rst("Campo3")
Area1=rst("Area1")
Area2=rst("Area2")
Area3=rst("Area3")
Otra1=rst("Otra1")
Otra2=rst("Otra2")
rst.Close
set rst=Nothing
Set conexion=Nothing
accion="editar"
end if
%>
Colegio Oficial de Biólogos de Andalucía § Directorio Profesional
