Laboratorio de Endourología

y Litotripcia
Perfíl Empresarial
Junta de Directores
Facultad
Litotripcia
Facilidades
Noticias
Contactos
E-mail
Intro (Home)
<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open("LITOTRIPCIA") sql = "SELECT Show, Titulo, Noticia, PhotoNameJPG, FloatLeft FROM NEWS WHERE Show='Yes';" set oDs = Conn.Execute(sql) If Not oDs.EOF Then Counter=1 FlipLineColor=1 oDs.MoveFirst ' ABRIR UNA CELDA TODAS LAS NOTICIAS Response.Write "" End If oDs.Close Set oDs = Nothing %>
NOTICIAS
" ' INCLIR UNA TABLA EN LA CELDA Response.Write "" Do While Not oDs.EOF ' strTitulo=oDs.Fields("Titulo") strNoticia=oDs.Fields("Noticia") strPhotoNameJPG=oDs.Fields("PhotoNameJPG") strFloatLeft=oDs.Fields("FloatLeft") ' ' AREA PARA MOSTRAR EL TITULO ' If strTiulo="NoData" or IsNull(strTitulo) Then ' NO INTRODUZCA LA LINEA DE TITULO Else If FlipLineColor=1 Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "" End if ' ' AREA PARA MOSTRAR LA NOTICIA ' If strNoticia="NoData" or IsNull(strNoticia) Then ' NO INTRODUZCA NOTICIA Else ' ARMAR EL CUERPO DE LA NOTICIA ' VERIFIQUE SI HAY IMAGEN E INCLUYALA If strPhotoNameJPG="NoData" or IsNull(strPhotoNameJPG) Then ' NO INCLUYA PROVISION PARA LA IMAGEN If FlipLineColor=1 Then Response.Write "" Else Response.Write "" End If ' Response.Write "" Else Response.Write "" End If ' Response.Write "" Else Response.Write "" End If ' Response.Write "" Response.Write "" ' If FlipLineColor=1 Then Response.Write "" Else Response.Write "" End If ' Response.Write "" Response.Write "" End if ' ' PONGA UN ROW PARA SEPARAR ENTRE NOTICIAS ' Response.Write "" ' ' PASOS FINALES DE CADA LOOP ' oDs.MoveNext Counter=Counter+1 FlipLineColor=FlipLineColor*-1 Loop ' ' TERMINE LA TABLA Y LA LINEA CON LA CELDA DE LAS NOTICIAS ' Response.Write "
" Response.Write strTitulo Response.Write "
" Else ' INCLUYA PROVISION PARA LA IMAGEN If strFloatLeft="Yes" Then If FlipLineColor=1 Then Response.Write "
" ' Response.Write "" Else If FlipLineColor=1 Then Response.Write "
" ' Response.Write "" ' Response.Write "
" End If End If ' INCLUYA EL TEXTO DE LA NOTICIA Response.Write strNoticia Response.Write "

" Response.Write "

 Endourological Institute  Copyright © 2002