| |
|
|
|
|
| |
|
|
Página em construção. Volte em breve. |
|
| |
|
|
|
|
|
| |
 |
|
 |
<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open Application("conexao")
%>
<%
Dim registros(), data(), titulo(), texto()
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT top 4 * FROM noticias"
rs.CursorLocation = 3
rs.Open strSQL, conexao
num_registros = rs.RecordCount
ReDim registros(num_registros)
ReDim data(num_registros)
ReDim titulo(num_registros)
ReDim texto(num_registros)
For x = 1 to (num_registros)
data(x) = rs("data")
titulo(x) = rs("titulo")
texto(x) = rs("texto")
rs.MoveNext
Next
%>
<%=titulo(1)%>
<%=mid(texto(1),1,50)%> |
<%=titulo(2)%>
<%=mid(texto(2),1,50)%> |
<%=titulo(3)%>
<%=mid(texto(3),1,50)%> |
<%=titulo(4)%>
<%=mid(texto(4),1,50)%> |
|
 |
|
