<% if PRF("acao") = "comentario" then sql = "insert into noticias_comentario (id_noticia, nome, email,texto, data) values (" _ & PRF("id_noticia") & ", " _ & "'" & RemoveTagHTML(PRF("nome")) & "'," _ & "'" & RemoveTagHTML(PRF("email")) & "'," _ & "'" & RemoveTagHTML(PRF("texto")) & "'," _ & "'" & year(now) & "-" & month(now) & "-" & day(now) & " " & time & "')" ' response.write sql db.execute(sql) response.redirect "noticia.asp?id=" & PRF("id_noticia") end if Set objFSO = CreateObject("Scripting.FileSystemObject") sql = "select N.*, C.nome from t_noticias N, t_colunistas C where C.id_colunista = N.id_colunista and N.id_noticia = " & PRQ("id") set rsnoticias = db.execute(sql) if rsnoticias("tipo") = "0" then tipo = 0 fundo = "vinheta_noticias.jpg" BG = "bg_aba_cinza.gif" BG2 = "bg_aba_cinza01.gif" elseif rsnoticias("tipo") = "1" then tipo = 1 fundo = "vinheta_noticias_animes.jpg" BG = "bg_aba_cinza.gif" BG2 = "bg_aba_cinza01.gif" elseif rsnoticias("tipo") = "2" then tipo = 2 fundo = "vinheta_noticias_cinetv.jpg" BG = "bg_aba_cinza.gif" BG2 = "bg_aba_cinza01.gif" elseif rsnoticias("tipo") = "3" then tipo = 3 fundo = "vinheta_noticias_internet.jpg" BG = "bg_aba_cinza.gif" BG2 = "bg_aba_cinza01.gif" elseif rsnoticias("tipo") = "4" then tipo = 4 fundo = "vinheta_noticias_esport.jpg" BG = "bg_aba_cinza.gif" BG2 = "bg_aba_cinza01.gif" end if %>

<% if rsnoticias.eof then %> <% else %>

<% = rsnoticias("titulo") %>

postado por: <% = rsnoticias("nome") %>
em: <% = rsnoticias("data") %>
arquivos sobre: <% if rsnoticias("tipo") = "0" then response.write "Games" elseif rsnoticias("tipo") = "1" then response.write "Animes" elseif rsnoticias("tipo") = "2" then response.write "Cine & Tv" elseif rsnoticias("tipo") = "3" then response.write "Internet" else response.write "e-sport" end if %>

<% If objFSO.FileExists(Server.MapPath("/noticias/"& rsnoticias("id_noticia") & ".jpg")) = True then %>

.jpg" align="right">

<% end if %>

<% = rsnoticias("texto") %>

<% sql = "select * from noticias_comentario where id_noticia = " & PRQ("id") set rscoment = db.execute(sql) if not rscoment.eof then while not rscoment.eof %> <% = rscoment("nome") %> disse...
<% = rscoment("texto") %>

<% = rscoment("email") %>

<% = rscoment("data") %>

<% rscoment.movenext wend end if %>

<% end if %>