<%@ language=vbscript %>
<%
Option explicit
Response.expires=0
dim xerro
dim tabela,banco
dim caminho,mysql,msql,conta_sql
dim mes,dia,ano
dim comentario
dim param
dim TOTAL
dim recordset
dim connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=amazon;DRIVER={Microsoft Access Driver (*.mdb)}"
sub Executa_sql(sql)
Set tabela = server.createobject("ADODB.Recordset")
banco = "FILE NAME=" & server.MapPath("\mundoadm\conexao") & "\mundoadm.udl"
tabela.Open sql, banco
if err.number <> 0 then
Response.Write err.description
end if
end sub
Sub Executa_ODBC ( sql )
Set banco=Server.CreateObject("ADODB.Connection")
banco.Open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath(session("path_forum"))
Set recordset=Server.CreateObject("ADODB.Recordset")
Set recordset.ActiveConnection=banco
Set tabela = Server.CreateObject("ADODB.Recordset")
tabela.Open sql,banco , 3
if err.number <> 0 then
Response.Write err.description
end if
End sub
param="?cod_fo="&request("cod_fo") _
&"&cod_t="&request("cod_t") _
&"&ident="&request("ident")
xerro=false
if request("apelido")="" or request("mensagem")="" then
if request.servervariables("Content_length")<>0 then
xerro=true
response.write("
")
response.write("
Erro ao tentar responder comentário.
")
response.write("
Nao foi possivel responder comentário, o campo resposta não podem estar vazio
")
response.write("
")
end if
end if
if request.servervariables("Content_length")<>0 and xerro=false then
mysql="insert into F_respostas(" _
&"cod_t," _
&"apelido," _
&"mensagem," _
&"data," _
&"topico) VALUES"
mes=month(date)
dia=day(date)
ano=year(date)
mysql=mysql&"("&Request("cod_t")&",'" _
&Request("apelido")&"','" _
&Request("mensagem")&"','" _
&mes&"/"&dia&"/"&ano&"','" _
&Request("comentario")&"')"
' executa_ODBC(mysql)
Set Tabela = Connection.Execute(mysql)
conta_sql="select count(*) AS TOTAL from f_respostas where cod_t="&request("cod_t")
'executa_ODBC(conta_sql)
set Tabela=Connection.Execute(conta_sql)
TOTAL=tabela("TOTAL")
tabela.close
set tabela=nothing
mysql="update F_topicos set n_respo ="&TOTAL&" where cod_t="&request("cod_t")
'executa_ODBC(mysql)
set Tabela=Connection.Execute(mysql)
set tabela=nothing
%>