| |
Não sou
cadastrado ainda
Para facilitar o processo de reserva solicitamos que você se cadastre
no nosso sistema. Só você terá acesso a esse cadastro e ele servirá
apenas para facilitar novas reservas que certamente serão feitas.
É fácil. Basta clicar no link abaixo.
Quero me cadastrar agora.
Já sou cadastrado
Se você já se cadastrou mas esqueceu a sua senha digite o seu e-mail,
marque a caixa acima e clique em enviar. Um e-mail com a sua senha
será enviado, aí é só voltar aqui e fazer sua reserva.
|
|
| |
 |
|
 |
<%
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)%> |
|
 |
|