|
Promociones
<% set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pccomm.mdb")
set rst = Server.CreateObject("ADODB.RecordSet")
rst.Open "SELECT * FROM promociones",cnn,3,3
If (rst.EoF <> True) Then
rst.Movelast
Else
End IF %>
" class="comentarios">
 " align="left" width="89" height="100"> " class="comentarios"><%= rst("titulo") %> <%= rst("fecha") %>
<%
i = 0
Maximo = 250 ' Tamaño máximo permitido
Cadena = rst("Noticia")
If len(Cadena) > Maximo Then
Cadena2 = Split(Cadena," ")
Cadena = ""
Do While len(Cadena) + len(Cadena2(i)) < Maximo
Cadena = Cadena & " " & Cadena2(i)
i = i+1
Loop
End if
%>
<%= Cadena %> ..." class="comentarios">[más]
<%
rst.Close
cnn.close
%>
Noticias
<%
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pccomm.mdb")
set rst = Server.CreateObject("ADODB.RecordSet")
rst.Open "SELECT * FROM noticias",cnn,3,3
rst.Movelast
Contator = 1
Do Until Contator = 3
%>
" class="comentarios">
" align="left" width="89" height="100"> " class="comentarios"><%= rst("titulo") %> <%= rst("fecha") %> @ <%= rst("Hora") %>
<%
i = 0
Maximo = 500 ' Tamaño máximo permitido
Cadena = rst("Noticia")
If len(Cadena) > Maximo Then
Cadena2 = Split(Cadena," ")
Cadena = ""
Do While len(Cadena) + len(Cadena2(i)) < Maximo
Cadena = Cadena & " " & Cadena2(i)
i = i+1
Loop
End if
%>
<%= Cadena %> ..." class="comentarios">[más]
<%
rst.MovePrevious
Contator = contator + 1
Loop
rst.Close
cnn.close
%>
|
|
