<%@ LANGUAGE=VBScript%><%
Response.Expires = 0
Response.Buffer = true
'--- pega os dados do cookie temporário
If ( Request.Cookies("sitetmp")("id") <> "" ) Then
strId = Request.Cookies("sitetmp")("id")
strNome = Request.Cookies("sitetmp")("nome")
strEmail = Request.Cookies("sitetmp")("email")
End If
'--- se não existe cookie, redireciona o internauta para o adm.asp
If ( strId = "" Or strEmail = "" Or strNome = "" ) Then
Response.Clear
Response.Redirect "blank.htm"
Response.End
end if
%>
<%
'Abre conexao com banco de dados
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open application("CnxStrMDBSite")
%>
<%
SQLQuery = "SELECT manifestacoes.*, manifestantes.nome FROM manifestacoes INNER JOIN manifestantes On(manifestacoes.manifestante=manifestantes.id) Where manifestacoes.manifestante=" & strId & " ORDER BY dia desc, manifestantes.nome"
Set rsSQL = dbConn.Execute(SQLQuery)
original = SetLocale("pt-br")
Do While Not rsSQL.EOF
%>
