%@ Language="VBScript"%>
<%
'Declaração das variáveis
Dim conSofts 'Conexão com o banco de dados
Dim rsDados 'Resultado da consulta
Dim strConsulta 'Nome da consulta
Dim strSQL 'Instrução SQL
dim codx
codx = Request.querystring("codigo")
Set conSofts = Server.CreateObject("ADODB.Connection")
Set rsDados = Server.CreateObject("ADODB.Recordset")
conSofts.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("dados.mdb")
strsql="SELECT devedor.Titulo, devedor.texto, devedor.Autor, devedor.codigo FROM devedor WHERE (((devedor.codigo)=" & codx & "))"
rsDados.Open strsql, conSofts, adOpenStatic, adLockReadOnly, adCmdText
Dim Tit, Tex, Aut
Tit= rsDados(0)
Tex= rsDados(1)
Aut= rsDados(2)
' rsDados.Close
conSofts.Close
Set rsDados = Nothing
Set conSofts = Nothing
%>
ClicDireito - Direitos do Cidadão - Direito e cidadania na rede
Se
você deseja mais informações você pode enviar um e-mail para o autor deste
artigo
gabriel@clicdireito.com.br ou ligar para o nosso escritório (51) 3023-8685) ou
mesmo nos fazer uma visita.
ClicDireito ® é uma marca de Gabriel Garcia Advogados Associados -
Reprodução e link autorizado mediante referência da fonte. Rua Furriel Luiz Antônio Vargas, 380/411 - Bela Vista - Porto Alegre/RS - Brasil
- Fone: (51) 3023-8685