<% rel_msg = request("rel_msg") origem_post = request("origem_post") if request("tabela") <> "" then data = convertedata_SQL(date) hora = hour(time) &":"& minute(time) &":"& second(time) nome = replace(request("nome"),"'"," ") if len(nome) < 3 then adicionaerro("Preencha seu nome.") email = replace(request("email"),"'"," ") if valida_email(email) = "erro" then adicionaerro("Preencha corretamente seu e-mail.") titulo = replace(request("titulo"),"'"," ") if len(titulo) < 3 then adicionaerro("Preencha o campo título.") texto = request("texto") if len(texto) < 3 then adicionaerro("É necessario digitar pelo menos 3 caracteres no texto") elseif len(texto) > 7499 then adicionaerro("Limite excedido de caracteres. Reduza o conteudo do seu texto, por favor.") else texto = replace(texto, chr(13), "
") texto = replace(texto, chr(9), "
") texto = replace(texto, chr(34), """) texto = replace(texto, chr(39), "’") end if if noErrors() then call CreateConnection() 'response.write "Insert_forum '"&rel_msg&"', 0, '"&titulo&"', '"&texto&"', '"&nome&"', '"&email&"', '"&data&"', '"&hora&"'" conn.execute("Insert_forum '"&rel_msg&"', 0, '"&titulo&"', '"&texto&"', '"&nome&"', '"&email&"', '"&data&"', '"&hora&"'") call CloseConnection() postado = 1 end if end if %> ···· FÓRUM - Speedway ····

<% if postado = 1 then %> <% response.write "
Sua mensagem foi postada com sucesso.
" response.write "

" else %> <% if not noerrors() then%> <% end if %> <% if rel_msg <> 0 then%> " end if CALL CloseRecordSet(forum) CALL CLoseConnection %> <% end if%>
   .: <% if rel_msg <> 0 then%>RESPONDER<%else%>ENVIAR NOVA<%end if%> MENSAGEM

<% err=listaErros("") %>
","

<% CALL CreateConnection() id_msg = 0 data_inicio = "0" 'response.write "SELECT_FORUM "&id_msg&", "&rel_msg&", '"&data_inicio&"'" 'response.end CALL CreateRecordSet(forum, "SELECT_forum "&id_msg&", "&rel_msg&", '"&data_inicio&"'") if not forum.eof then response.write "
" rel_msg = forum("id_forum") id_msg = 0 titulo = "Re: " & forum("titulo") session.LCID= 1046 response.write "" response.write "" response.write "
"& convertedata_BR(forum("data"))&" - "& formatdatetime(forum("hora"),4) &"  "& forum("titulo") & "
"& forum("texto") & "

Nome:
E-mail:
Título:
Texto:
   


<% end if %>