<% dim Conn1, rs1 , rs2 Set Conn1 = Server.CreateObject("ADODB.Connection") Set rs1 = server.CreateObject("ADODB.Recordset") Conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\siteeafs\faleconosco.mdb" 'dim var_nome_maquina, var_ip_maquina , var_data_acesso ' OK var_nome_maquina = request.servervariables("GATEWAY_INTERFACE") ' VAZIO var_nome_maquina = request.servervariables("LAST_MODIFIED") ' VAZIO var_nome_maquina = request.servervariables("DOCUMENT") ' OK var_nome_maquina = request.servervariables("HTTP_USER_AGENT") ' OK var_nome_maquina = request.servervariables("SERVER_PORT") 'var_nome_maquina = request.servervariables("REMOTE_ADDR") 'var_ip_maquina = request.servervariables("REMOTE_ADDR") 'var_data_acesso = now() '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> dim string_consulta string_consulta = "select * from t_exaluno where mo = '1' order by momento desc" rs1.open string_consulta , Conn1, 3,3 %> www.eafs.gov.br
 



MURAL DOS EX-ALUNOS E AMIGOS
-Este espaço é dedicado a homenagens feitas pelos nossos ex-alunos . Qualquer amigo ou ex-aluno poderá usar esta ferramenta a fim de que a homenagem seja publicada neste espaço. Ao enviar, em 24 horas sua mensagem estará publicada neste espaço.
Um Grande Abraço para aqueles que um dia viveram esta Escola!!
DICA: TECLE "CONTROL F" E FAÇA UMA BUSCA POR NOMES DE PESSOAS CONHECIDAS QUE DEIXARAM RECADOS...



 


<% if rs1.eof = false then rs1.movefirst else response.redirect("tabela vazia") end if while rs1.eof = false %>

Em    <%=rs1("momento") %>

<%=rs1("mensagem") %>


<% if rs1.eof = false then rs1.movenext end if %> <% wend %>

     
 
<% function RTESafe(strText) 'returns safe code for preloading in the RTE dim tmpString tmpString = trim(strText) 'convert all types of single quotes tmpString = replace(tmpString, chr(145), chr(39)) tmpString = replace(tmpString, chr(146), chr(39)) tmpString = replace(tmpString, "'", "'") 'convert all types of double quotes tmpString = replace(tmpString, chr(147), chr(34)) tmpString = replace(tmpString, chr(148), chr(34)) ' tmpString = replace(tmpString, """", "\""") 'replace carriage returns & line feeds tmpString = replace(tmpString, chr(10), " ") tmpString = replace(tmpString, chr(13), " ") RTESafe = tmpString end function %>