%@ 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 ® é 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 |