|
|
| NEWS |
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("LITOTRIPCIA")
sql = "SELECT Show, Title, News, 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 ""
' INCLIR UNA TABLA EN LA CELDA
Response.Write ""
Do While Not oDs.EOF
'
strTitle=oDs.Fields("Title")
strNews=oDs.Fields("News")
strPhotoNameJPG=oDs.Fields("PhotoNameJPG")
strFloatLeft=oDs.Fields("FloatLeft")
'
' AREA PARA MOSTRAR EL TITULO
'
If strTitle="NoData" or IsNull(strTitle) Then
' NO INTRODUZCA LA LINEA DE TITULO
Else
If FlipLineColor=1 Then
Response.Write ""
Else
Response.Write " "
End If
Response.Write "| "
Response.Write strTitle
Response.Write " | "
Response.Write " "
End if
'
' AREA PARA MOSTRAR LA NOTICIA
'
If strNews="NoData" or IsNull(strNews) 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
' INCLUYA PROVISION PARA LA IMAGEN
If strFloatLeft="Yes" Then
If FlipLineColor=1 Then
Response.Write ""
Else
Response.Write " "
End If
'
Response.Write ""
'
Response.Write "![]() "
Else
If FlipLineColor=1 Then
Response.Write ""
Else
Response.Write " "
End If
'
Response.Write ""
'
Response.Write "![]() "
'
Response.Write " | "
Response.Write " | "
'
If FlipLineColor=1 Then
Response.Write " "
Else
Response.Write " "
End If
'
Response.Write "| "
End If
End If
' INCLUYA EL TEXTO DE LA NOTICIA
Response.Write strNews
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 " | "
End If
oDs.Close
Set oDs = Nothing
%>
|
|
|
|
|
Endourological Institute
Copyright © 2002
|
|
|
