<%@LANGUAGE="VBSCRIPT"%><% set rs_spect = Server.CreateObject("ADODB.Recordset") rs_spect.ActiveConnection = "dsn=germano;" rs_spect.Source = "SELECT * FROM show" rs_spect.CursorType = 0 rs_spect.CursorLocation = 2 rs_spect.LockType = 3 rs_spect.Open rs_spect_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 rs_spect_numRows = rs_spect_numRows + Repeat1__numRows %> Germano Rocha
Espectáculos

<% While ((Repeat1__numRows <> 0) AND (NOT rs_spect.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_spect.MoveNext() Wend %>
Local
Data
Hora
Descritivo
<%=(rs_spect.Fields.Item("show_lieu").Value)%>
<%=(rs_spect.Fields.Item("show_date").Value)%>
<%=(rs_spect.Fields.Item("show_heure").Value)%>
<%=(rs_spect.Fields.Item("show_description_port").Value)%>