<% ' Conexión con la base de datos vorden=request("curso") response.Buffer=true set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "dsn=cedeco.es.cursospdf" sSQL= "select * from cursos where orden="&vorden&"" Set RS =Server.CreateObject("ADODB.RecordSet") RS.Open sSQL,oConn,1,2 ' Datos a mostrar sobjetivo=RS("Objetivos") stitulo = RS("Titulo") srequisitos = RS("Requisitos") sduracion = RS("Duracion") scontenidos = RS("Contenidos") slogo = RS("Logo") scategoria = RS("Categoria") ' Creamos una instancia del componente AspPDF Set Pdf = Server.CreateObject("Persits.Pdf") ' Creamos un nuevo documento vacío Set Doc = Pdf.CreateDocument ' Indicamos título y creador del documento Doc.Title = "Plan Formativo" Doc.Creator = "CEDECO" ' Añadimos una nueva página Set Page = Doc.Pages.Add 'insertar imagen Set Image = Doc.OpenImage( Server.MapPath( "cabecera_pdf.gif") ) Set Params = Pdf.CreateParam Params("x") = 80 Params("y") = 690 Params("ScaleX") = 3 / 4 Params("ScaleY") = 3 / 4 Page.Canvas.DrawImage Image,Params 'if scategoria="OFIMATICA" then 'insertar Logo Set Image = Doc.OpenImage( Server.MapPath( ""&slogo&".jpg") ) Set Params = Pdf.CreateParam Params("x") = 63 Params("y") = 710 Params("ScaleX") = 3 / 4 Params("ScaleY") = 3 / 4 Page.Canvas.DrawImage Image,Params 'end if ' Establecemos la fuente para el texto Set Font = Doc.Fonts("Helvetica") ' Insertamos el texto del PDF ' Titulo stitular="

"&stitulo&"

" Params = "x=50; y=670; width=490; alignment=left; size=16; color=&H0033CC; html=true" Page.Canvas.DrawText stitular, Params, Font 'Objetivos Params = "x=50; y=625; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "OBJETIVOS:                                                                                                                                " , Params, Font Params = "x=50; y=605; width=490; alignment=left; color=&H333333; size=11; html=true" Page.Canvas.DrawText "
"&sobjetivo& "
", Params, Font ' Requisitos Params = "x=50; y=530; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "REQUISITOS:                                                                                                                               " , Params, Font Params = "x=50; y=510; width=490; alignment=left; color=&H333333; size=11" Page.Canvas.DrawText srequisitos, Params, Font ' Duración Params = "x=50; y=480; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "DURACIÓN:                                                                                                                                  " , Params, Font Params = "x=50; y=460; width=490; alignment=left; color=&H333333; size=11" Page.Canvas.DrawText sduracion, Params, Font ' Contenidos Params = "x=50; y=435; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "CONTENIDOS:                                                                                                                              " , Params, Font Params = "x=50; y=415; width=500; alignment=left; color=&H333333; size=11; html=true" Page.Canvas.DrawText "
"&scontenidos& "
", Params, Font ' Pie página 1 'Params = "x=50; y=40; width=520; alignment=center; size=12; color=&H999999; html=true" 'Page.Canvas.DrawText "
                                                                                                                               
" , Params, Font Params = "x=50; y=45; width=490; alignment=center; color=&H999999; size=10; html=true" Page.Canvas.DrawText "
Gestionamos su bonificación con la Fundación Tripartita.

MADRID. C/ Cartagena, 70 (Avd. América). 28028 Tel:913 554 482

BARCELONA. Travessera de Gràcia 56, 3º,1ª 08006
", Params, Font 'PÁGINA 2 ' Añadimos una nueva página Set Page = Doc.Pages.Add if scategoria="OFIMATICA" then ' VENTAJAS CEDECO Params = "x=50; y=670; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "VENTAJAS CEDECO " , Params, Font Params = "x=50; y=650; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "1. Solo contamos con los mejores profesores especialistas
2. Asumimos toda la puesta en marcha del curso
3. Realizamos una prueba de nivel a los participantes para formar un grupo más homogéneo
4. Nos involucramos a fondo en el seguimiento del curso.
5. Evaluamos la calidad del curso" , Params, Font ' Formación In Company Params = "x=50; y=570; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " FORMACIÓN IN COMPANY" , Params, Font Params = "x=50; y=550; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Entendemos la necesidad que tiene tu empresa de ajustar su Plan Formativo tanto en contenidos, como en tiempos, como en presupuesto
" , Params, Font Params = "x=50; y=510; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
1. Elige el grupo que quieres formar
2. Elige la duración y contenidos del curso
3. Elige el lugar. También podemos llevar nuestros ordenadores.
4. Elige las fechas.
" , Params, Font Params = "x=50; y=450; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Un consultor informático te ayudará a poner en marcha el Plan Formativo y a verificar la calidad de la formación.
" , Params, Font ' Cursos de calendario Params = "x=50; y=410; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " CURSOS CALENDARIO" , Params, Font Params = "x=50; y=390; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Consulta nuestros cursos en abierto http://www.cedeco.es/cedeco/planformacion/empresas/cursoscalendario/vercalendario.htm " , Params, Font ' Formación Online Params = "x=50; y=345; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " FORMACIÓN ONLINE" , Params, Font Params = "x=50; y=325; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Consúltanos en la dirección infoempresas@cedeco.es o llamando al 913 554 482. " , Params, Font ' Otros cursos 'Params = "x=50; y=300; width=520; alignment=left; size=12; color=&H000000; html=true" 'Page.Canvas.DrawText " OTROS CURSOS" , Params, Font 'Params = "x=50; y=270; width=490; alignment=left; size=11; color=&H333333; html=true" 'Page.Canvas.DrawText "
BASE DE DATOS " , Params, Font else Params = "x=50; y=670; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText "VENTAJAS CEDECO " , Params, Font Params = "x=50; y=650; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "1. Solo contamos con los mejores profesores especialistas
2. Asumimos toda la puesta en marcha del curso
3. Nos involucramos a fondo en el seguimiento del curso.
4. Evaluamos la calidad del curso" , Params, Font ' Formación In Company Params = "x=50; y=570; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " FORMACIÓN IN COMPANY" , Params, Font Params = "x=50; y=550; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Entendemos la necesidad que tiene tu empresa de ajustar su Plan Formativo tanto en contenidos, como en tiempos, como en presupuesto
" , Params, Font Params = "x=50; y=510; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
1. Elige el grupo que quieres formar
2. Elige la duración y contenidos del curso
3. Elige el lugar. También podemos llevar nuestros ordenadores.
4. Elige las fechas.
" , Params, Font Params = "x=50; y=450; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Un consultor informático te ayudará a poner en marcha el Plan Formativo y a verificar la calidad de la formación.
" , Params, Font ' Cursos de calendario Params = "x=50; y=410; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " CURSOS DE CALENDARIO" , Params, Font Params = "x=50; y=390; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Consulta nuestros cursos en abierto http://www.cedeco.es/cedeco/planformacion/empresas/cursoscalendario/vercalendario.htm " , Params, Font ' Formación Online Params = "x=50; y=345; width=520; alignment=left; size=12; color=&H000000; html=true" Page.Canvas.DrawText " FORMACIÓN ONLINE" , Params, Font Params = "x=50; y=325; width=490; alignment=left; size=11; color=&H333333; html=true" Page.Canvas.DrawText "
Consúltanos en la dirección infoempresas@cedeco.es o llamando al 913 554 482. " , Params, Font ' Otros cursos 'Params = "x=50; y=300; width=520; alignment=left; size=12; color=&H000000; html=true" 'Page.Canvas.DrawText " OTROS CURSOS" , Params, Font 'Params = "x=50; y=270; width=490; alignment=left; size=11; color=&H333333; html=true" 'Page.Canvas.DrawText "
BASE DE DATOS " , Params, Font end if ' Pie página 2 'Params = "x=50; y=40; width=520; alignment=center; size=12; color=&H999999; html=true" 'Page.Canvas.DrawText "
                                                                                                                               
" , Params, Font Params = "x=50; y=45; width=490; alignment=center; color=&H999999; size=10; html=true" Page.Canvas.DrawText "
Gestionamos su bonificación con la Fundación Tripartita.

MADRID. C/ Cartagena, 70 (Avd. América). 28028 Tel:913 554 482

BARCELONA. Travessera de Gràcia 56, 3º,1ª 08006
", Params, Font ' Guardamos el documento en disco ' El directorio 'pdf' debe tener permiso de escritura sFichero = "curso.pdf" Filename = Doc.Save( Server.MapPath(sFichero), true) oConn.Close set oConn=nothing response.redirect sFichero %>