<%Response.Buffer = true%>
Untitled Document
<%
dim tabela,banco
dim caminho,msql
dim connection
dim XCOD
XCOD=0
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") _
&"&ident="&request("ident")
response.write(""&"New Comment|")
response.write("Logoff
")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=amazon;DRIVER={Microsoft Access Driver (*.mdb)}"
'executa_ODBC("select * from F_topicos where cod_fo="&request("cod_fo"))
Set Tabela = Connection.Execute("select * from F_topicos where cod_fo="&request("cod_fo"))
%> <%
response.write("
")
response.write("
")
response.write("
")
RESPONSE.WRITE("
Comments")
RESPONSE.WRITE("
Replies")
RESPONSE.WRITE("
User")
RESPONSE.WRITE("
Date")
response.write("
")
DO WHILE NOT tabela.EOF
param="cod_t="&tabela(0)&"&cod_fo="&tabela(1)&"&ident="&request("ident")
response.write("