select vazio

Biano · Junho 5, 2008

Estou dando um select no banco, mas esta sempre retornando vazio.

Testei de todas as maneiras mas nao consigo pegar o erro.

Algum filho de Deus pode me ajudar nessa parada??

fico grato.

<%
 option explicit
 dim strSql, idParceiros, NomeEmpresa, RazaoSocial, CNPJ, RamoAtividade, NomeContato, CPF, Endereco, CEP, Cidade, Telefone, Fax, Email, Site, Ativo
%>
 <!-- #include file=includes/banco.asp -->
<%
 
 if(request.queryString("idParceiros") <> "") then
  if(isNumeric(request.queryString("idParceiros"))) then
   IdParceiros = request.queryString("idParceiros")
   strSql = "select * from Parceiros where idParceiros = " &idParceiros
   
   call abreBD
   call abreRS(strSql)

   if(objRs.eof = false) then
	NomeEmpresa = objRs("NomeEmpresa")
	RazaoSocial = objRs("RazaoSocial")
	CNPJ = objRs("cnpj")
	CPF = objRs("CPF")
	RamoAtividade = objRs("RamoAtividade")
	NomeContato = objRs("NomeContato")
	Endereco = objRs("endereco")
	CEP = objRs("cep")
	Cidade = objRs("cidade")
	Telefone = objRs("telefone")
	Fax = objRs("fax")
	Email = objRs("email")
	Site = objRs("site")
	Ativo = objRs("Ativo")
	'response.Write(strSql)
	'response.End()

   end If
   call fechaBD()
   call fechaRS()
  end if
 end if
%>

:wacko:

Jow Xavier · Junho 5, 2008

Boa tarde

<% sql = "Select * from tabela"
set rs = cnn.execute(sql)%>

ai você manda imprimir um campo do banco de dados q tem nessa tabela.

OBS: cnn deve ser a sua variável de conexão ... Testa isso ai !!!

Biano · Junho 5, 2008

Boa tarde
<% sql = "Select * from tabela"
set rs = cnn.execute(sql)%>
ai você manda imprimir um campo do banco de dados q tem nessa tabela.

OBS: cnn deve ser a sua variável de conexão ... Testa isso ai !!!

Esta tentiva eu realizei ontem, existe outra maneira de realizar o teste?

Jow Xavier · Junho 5, 2008

a sua conexão tá funcionando se estiver manda imprimir uma variável

Biano · Junho 6, 2008

Boa tarde
<% sql = "Select * from tabela"
set rs = cnn.execute(sql)%>
ai você manda imprimir um campo do banco de dados q tem nessa tabela.

OBS: cnn deve ser a sua variável de conexão ... Testa isso ai !!!
Esta tentiva eu realizei ontem, existe outra maneira de realizar o teste?

ao fazer isso a tela vem em branco.

Simplesmente nao retorna um errinho se quer.

O que pode ser isso?

Biano · Junho 6, 2008

Boa tarde
<% sql = "Select * from tabela"
set rs = cnn.execute(sql)%>
ai você manda imprimir um campo do banco de dados q tem nessa tabela.

OBS: cnn deve ser a sua variável de conexão ... Testa isso ai !!!
Esta tentiva eu realizei ontem, existe outra maneira de realizar o teste?
ao fazer isso a tela vem em branco.

Simplesmente nao retorna um errinho se quer.

O que pode ser isso?

Companheiro posso lhe enviar o script pra voce me ajudar a encontrar onde esta o erro?

Nao domino muito essa coisa de asp e talvez minha falta de experiencia esteja atrapalhando.

Posso contar com sua ajuda?

Jow Xavier · Junho 6, 2008

Bom dia manda ae pra eu tentar te ajudar !!!

Biano · Junho 6, 2008

Bom dia manda ae pra eu tentar te ajudar !!!

Qual seu email?

Ow msn?

Jow Xavier · Junho 6, 2008

Manda ai no fórum para q outros possam te ajudar tbm !!!!!!!!

Biano · Junho 6, 2008

Manda ai no fórum para q outros possam te ajudar tbm !!!!!!!!

Segue abaixo script de pesquisa dos parceiros: PESQPARCEIROS.ASP

<%
	option explicit
	dim strSql, idParceiros, NomeEmpresa, ativo, i, bgColor
%>
	<!-- #include file=includes/banco.asp -->

	<html>
	<head>
		
		<style type="text/css">
			input{font-family:verdana; font-size:10px; border: 1px solid #808080;}
		</style>

		<script src="includes/funcoes.js"></script>

		<script language="javaScript">
			function excluirParceiro(NomeEmpresa, idParceiros){
				if(confirm("Tem certeza que deseja excluir Parceiro '" + NomeEmpresa + "' ???")){
					document.location.href = "excParceiros.asp?idparceiros=" + IdParceiros;
				}
			}
		</script>

	</head>

	<body topMargin="0" leftMargin="0" style="text-align:center;">
		
		<form name="frmPesqParceiros" method="post" action="pesqParceiros.asp">
		<table style="width:50%;font-family:verdana; font-size:10px; text-align:center;">
			<tr style="height:50px;">
				<td colspan="2" style="font-size:14px; font-weight:bold;">
					Pesquisa de Parceiros
				</td>
			</tr>
			<tr>
				<td colspan="4">
					Pesquisa por nome:  
					<input type="text" name="txtNomeEmpresa" size="30" maxlength="30px" value="<% = request.form("txtNomeEmpresa")%>">
					 
					<input type="submit" value="Pesquisar">
				</td>
			</tr>
		</table>
		<input type="hidden" name="submited" value="true">
		</form>
<%
			if((request.form("submited") = "true") and (replace(request.form("txtNomeEmpresa"),"'","") <> "")) Then
				NomeEmpresa = replace(request.form("txtNomeEmpresa"),"'","")
				strSql = "select IdParceiros, NomeEmpresa, cnpj, Ativo from Parceiros "
				strSql = strSql & "where NomeEmpresa like '%" &NomeEmpresa& "%' order by NomeEmpresa"
			else
				NomeEmpresa = replace(request.form("txtNomeEmpresa"),"'","")
				strSql = "select IdParceiros, NomeEmpresa, cnpj, Ativo from Parceiros order by NomeEmpresa"	
			end if
			
			call abreBD()
			call abreRS(strSql)

				if(objRs.eof = false) then
					i = 1
%>
					<table cellspacing="0" style="width:75%;font-family:verdana; font-size:10px; text-align:center; border: 1px solid #000080;">
						<tr style="background-color:#000080; color:#FFFFFF; font-weight:bold;">
							<td style="width:5%;">Codigo</td>
							<td style="width:20%;">Nome Empresa</td>
							<td style="width:10%;">CNPJ</td>
							<td style="width:10%;">Ativo</td>
							<td style="width:5%;">!</td>
							<td style="width:5%;">!</td>
						</tr>
<%
						do while objRs.eof = false
							if(i = 1) then : bgColor = "#E6E6E6" : else : bgColor = "" : end if
%>
							<tr style="background-color:<% = bgColor %>">
								<td>
									<% = objRs("IdParceiros")%>
								</td>
								<td>
									<% = objRs("NomeEmpresa")%>
								</td>
								<td>
									<% = objRs("cnpj")%>
								</td>
								<td>
									<% if ativo = "true" then %>
							   <img src="imagens/btn_inativo.gif" border="0">
									<% else %>
							   <img src="imagens/btn_ativo.gif" border="0">
									 <% end if %>								
								</td>
								<td>
									<img src="imagens/btn_lupa.gif" alt="Detalhes do cliente" style="cursor:hand;" onClick="openModalWindow('detParceiros.asp?id=<% = objRs("IdParceiros")%>', window, 450, 430);">
								</td>
								<td>
									<img src="imagens/btn_excluir.gif" alt="excluir" style="cursor:hand;" onClick="excluirCliente('excParceiros.asp?id=<% = objRs("NomeEmpresa") %>', '<% = objRs("IdParceiros") %>');">
								</td>
							</tr>
<%
						i = i * -1
						objRs.moveNext()
						loop
%>
						<tr>
							<td colspan="6" style="text-align:right; background-color:#000080; color:#FFFFFF;">
								<span style="font-weight:bold;"> <% = objRs.recordCount%> </span>
								registros encontrados. 
							</td>
						</tr>
					</table>
<%
				else
%>
					<table  cellspacing="0" style="width:75%;font-family:verdana; font-size:12px; text-align:center;">
						<tr style="background-color:#FF0000; color:#FFFFFF; font-weight:bold;">
							<td>Nenhum registro encontrado !!!</td>
						</tr>
					</table>
<%
				end if

			call fechaBD()
			call fechaRS()

%>
		</table>


	</body>

	</html>

Aqui o script completo onde é feito o select no banco: DETPARCEIROS.ASP

<%
	option explicit
	dim strSql, idParceiros, NomeEmpresa, RazaoSocial, CNPJ, RamoAtividade, NomeContato, CPF, Endereco, CEP, Cidade, Telefone, Fax, Email, Site, Ativo
	'id = idparce
%>
	<!-- #include file=includes/banco.asp -->
<%
	'response.Write(strSql)
	
	if(request.queryString("idParceiros") <> "") then
		if(isNumeric(request.queryString("idParceiros"))) then
		
			IdParceiros = request.queryString("idParceiros")
			strSql = "select * from Parceiros where idParceiros = " &idParceiros
			
			
			call abreBD
			call abreRS(strSql)


			if(objRs.eof = false) then
				NomeEmpresa = objRs("NomeEmpresa")
				RazaoSocial = objRs("RazaoSocial")
				CNPJ = objRs("cnpj")
				CPF = objRs("CPF")
				RamoAtividade = objRs("RamoAtividade")
				NomeContato = objRs("NomeContato")
				Endereco = objRs("endereco")
				CEP = objRs("cep")
				Cidade = objRs("cidade")
				Telefone = objRs("telefone")
				Fax = objRs("fax")
				Email = objRs("email")
				Site = objRs("site")
				Ativo = objRs("Ativo")

			end If
			call fechaBD()
			call fechaRS()

%>

	<html>
	<head>
		
		<style type="text/css">
			input{font-family:verdana; font-size:10px; border: 1px solid #808080;}
		</style>

	</head>

	<body topMargin="0" leftMargin="0" style="text-align:center;" style="background-color:#F4F4F4;">
		
		<form name="frmDetParceiros" method="post" action="DetParceiros.asp">
		<table style="width:100%;font-family:verdana; font-size:10px; text-align:center;">
			<tr>
				<td  colspan="2" style="font-size:14px; font-weight:bold;">Detalhes do Parceiro
				</td>
			</tr>
			<tr>
				<td  colspan="2" style="font-size:14px; font-weight:bold;"><% = NomeEmpresa %>
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Nome da Empresa: 				</td>
  <td style="text-align:left;">
					<input type="text" name="NomeContato" size="50" readOnly="true" value="<% = NomeEmpresa %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Razão Social: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="Cnpj" size="20" maxlength="15" readOnly="true" value="<% = RazaoSocial %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CNPJ: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCnpj" size="20" maxlength="15" readOnly="true" value="<% = CNPJ %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Ramo de Atividade: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtRamoAtividade" size="20" maxlength="15" readOnly="true" value="<% = RamoAtividade %>">
				</td>
			</tr>
			<tr>
				<td colspan="2">
					<hr width="95%">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Nome Contato: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtNomeContato" size="50" readOnly="true" value="<% = NomeContato %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CPF: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCPF" size="50" readOnly="true" value="<% = CPF %>">
				</td>
			</tr>
			<tr>
				<td colspan="2">
					<hr width="95%">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Endereço: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtEndereco" size="50" readOnly="true" value="<% = Endereco %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CEP: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCep" size="10" maxlength="9" readOnly="true" value="<% = CEP %>">
					  
					Cidade: 
					<input type="text" name="txtCidade" size="23" maxlength="50" readOnly="true" value="<% = Cidade %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Telefone: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtTelefone" size="20" maxlength="12" readOnly="true" value="<% = Telefone %>">
					  
					Fax: 
					<input type="text" name="txtFax" size="17" maxlength="12" readOnly="true" value="<% = Fax %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Email: 
				</td>
				<td style="width:70%; text-align:left;">
					<input type="text" name="txtEmail" size="40" maxlength="50" readOnly="true" value="<% = Email %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Site: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtSite" size="40" maxlength="50" readOnly="true" value="<% = Site %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Ativo: 
				</td>
				<td style="text-align:left;">
				<% if ativo = "true" then %>
				<img src="imagens/btn_ativo.gif">
				<% else %>
				<img src="imagens/btn_inativo.gif">
				<% end if%>
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
				</td>
				<td style="text-align:left;">
				<input name="alterar" type="button" value="alterar">  </td>
			</tr>
		</table>
		</form>

	</body>

	</html>

Arquivo de conexao com o banco: BANCO.ASP

<%	
	dim objConn, objRs

	'SUB QUE ABRE CONEXAO COM O BANCO -----------------------------------------------------------------------
	sub abreBD()
		set objConn = server.createObject("adodb.connection")
		objConn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.mapPath("../dados/banco.mdb")& ";Persist Security Info=False"
		objConn.open()
	end sub
	'--------------------------------------------------------------------------------------------------------

	'SUB QUE FECHA A CONEXAO COM O BANCO E DESTROI OS OBJETOS DO MESMO --------------------------------------
	sub fechaBD()
		objConn.close()
		set objConn = nothing
	end sub
	'--------------------------------------------------------------------------------------------------------

	'FUNÇÃO Q ABRE O RECORDSET APARTIR DA QUERY PASSADA AO MESMO --------------------------------------------
	function abreRS(strSql)
		set objRs = server.createObject("adodb.recordSet")
		objRs.open strSql, objConn, 3, 3
	end function
	'---------------------------------------------------------------------------------------------------------

	sub fechaRS()
		set objRs = nothing
	end sub

%>

Biano · Junho 7, 2008

Fiquei aguardando ajuda, e realizando mudanças mas nao encontrei a soluçao pro erro!!!

help

Manda ai no fórum para q outros possam te ajudar tbm !!!!!!!!

Segue abaixo script de pesquisa dos parceiros: PESQPARCEIROS.ASP

<%
	option explicit
	dim strSql, idParceiros, NomeEmpresa, ativo, i, bgColor
%>
	<!-- #include file=includes/banco.asp -->

	<html>
	<head>
		
		<style type="text/css">
			input{font-family:verdana; font-size:10px; border: 1px solid #808080;}
		</style>

		<script src="includes/funcoes.js"></script>

		<script language="javaScript">
			function excluirParceiro(NomeEmpresa, idParceiros){
				if(confirm("Tem certeza que deseja excluir Parceiro '" + NomeEmpresa + "' ???")){
					document.location.href = "excParceiros.asp?idparceiros=" + IdParceiros;
				}
			}
		</script>

	</head>

	<body topMargin="0" leftMargin="0" style="text-align:center;">
		
		<form name="frmPesqParceiros" method="post" action="pesqParceiros.asp">
		<table style="width:50%;font-family:verdana; font-size:10px; text-align:center;">
			<tr style="height:50px;">
				<td colspan="2" style="font-size:14px; font-weight:bold;">
					Pesquisa de Parceiros
				</td>
			</tr>
			<tr>
				<td colspan="4">
					Pesquisa por nome:  
					<input type="text" name="txtNomeEmpresa" size="30" maxlength="30px" value="<% = request.form("txtNomeEmpresa")%>">
					 
					<input type="submit" value="Pesquisar">
				</td>
			</tr>
		</table>
		<input type="hidden" name="submited" value="true">
		</form>
<%
			if((request.form("submited") = "true") and (replace(request.form("txtNomeEmpresa"),"'","") <> "")) Then
				NomeEmpresa = replace(request.form("txtNomeEmpresa"),"'","")
				strSql = "select IdParceiros, NomeEmpresa, cnpj, Ativo from Parceiros "
				strSql = strSql & "where NomeEmpresa like '%" &NomeEmpresa& "%' order by NomeEmpresa"
			else
				NomeEmpresa = replace(request.form("txtNomeEmpresa"),"'","")
				strSql = "select IdParceiros, NomeEmpresa, cnpj, Ativo from Parceiros order by NomeEmpresa"	
			end if
			
			call abreBD()
			call abreRS(strSql)

				if(objRs.eof = false) then
					i = 1
%>
					<table cellspacing="0" style="width:75%;font-family:verdana; font-size:10px; text-align:center; border: 1px solid #000080;">
						<tr style="background-color:#000080; color:#FFFFFF; font-weight:bold;">
							<td style="width:5%;">Codigo</td>
							<td style="width:20%;">Nome Empresa</td>
							<td style="width:10%;">CNPJ</td>
							<td style="width:10%;">Ativo</td>
							<td style="width:5%;">!</td>
							<td style="width:5%;">!</td>
						</tr>
<%
						do while objRs.eof = false
							if(i = 1) then : bgColor = "#E6E6E6" : else : bgColor = "" : end if
%>
							<tr style="background-color:<% = bgColor %>">
								<td>
									<% = objRs("IdParceiros")%>
								</td>
								<td>
									<% = objRs("NomeEmpresa")%>
								</td>
								<td>
									<% = objRs("cnpj")%>
								</td>
								<td>
									<% if ativo = "true" then %>
							   <img src="imagens/btn_inativo.gif" border="0">
									<% else %>
							   <img src="imagens/btn_ativo.gif" border="0">
									 <% end if %>								
								</td>
								<td>
									<img src="imagens/btn_lupa.gif" alt="Detalhes do cliente" style="cursor:hand;" onClick="openModalWindow('detParceiros.asp?id=<% = objRs("IdParceiros")%>', window, 450, 430);">
								</td>
								<td>
									<img src="imagens/btn_excluir.gif" alt="excluir" style="cursor:hand;" onClick="excluirCliente('excParceiros.asp?id=<% = objRs("NomeEmpresa") %>', '<% = objRs("IdParceiros") %>');">
								</td>
							</tr>
<%
						i = i * -1
						objRs.moveNext()
						loop
%>
						<tr>
							<td colspan="6" style="text-align:right; background-color:#000080; color:#FFFFFF;">
								<span style="font-weight:bold;"> <% = objRs.recordCount%> </span>
								registros encontrados. 
							</td>
						</tr>
					</table>
<%
				else
%>
					<table  cellspacing="0" style="width:75%;font-family:verdana; font-size:12px; text-align:center;">
						<tr style="background-color:#FF0000; color:#FFFFFF; font-weight:bold;">
							<td>Nenhum registro encontrado !!!</td>
						</tr>
					</table>
<%
				end if

			call fechaBD()
			call fechaRS()

%>
		</table>


	</body>

	</html>

Aqui o script completo onde é feito o select no banco: DETPARCEIROS.ASP

<%
	option explicit
	dim strSql, idParceiros, NomeEmpresa, RazaoSocial, CNPJ, RamoAtividade, NomeContato, CPF, Endereco, CEP, Cidade, Telefone, Fax, Email, Site, Ativo
	'id = idparce
%>
	<!-- #include file=includes/banco.asp -->
<%
	'response.Write(strSql)
	
	if(request.queryString("idParceiros") <> "") then
		if(isNumeric(request.queryString("idParceiros"))) then
		
			IdParceiros = request.queryString("idParceiros")
			strSql = "select * from Parceiros where idParceiros = " &idParceiros
			
			
			call abreBD
			call abreRS(strSql)


			if(objRs.eof = false) then
				NomeEmpresa = objRs("NomeEmpresa")
				RazaoSocial = objRs("RazaoSocial")
				CNPJ = objRs("cnpj")
				CPF = objRs("CPF")
				RamoAtividade = objRs("RamoAtividade")
				NomeContato = objRs("NomeContato")
				Endereco = objRs("endereco")
				CEP = objRs("cep")
				Cidade = objRs("cidade")
				Telefone = objRs("telefone")
				Fax = objRs("fax")
				Email = objRs("email")
				Site = objRs("site")
				Ativo = objRs("Ativo")

			end If
			call fechaBD()
			call fechaRS()

%>

	<html>
	<head>
		
		<style type="text/css">
			input{font-family:verdana; font-size:10px; border: 1px solid #808080;}
		</style>

	</head>

	<body topMargin="0" leftMargin="0" style="text-align:center;" style="background-color:#F4F4F4;">
		
		<form name="frmDetParceiros" method="post" action="DetParceiros.asp">
		<table style="width:100%;font-family:verdana; font-size:10px; text-align:center;">
			<tr>
				<td  colspan="2" style="font-size:14px; font-weight:bold;">Detalhes do Parceiro
				</td>
			</tr>
			<tr>
				<td  colspan="2" style="font-size:14px; font-weight:bold;"><% = NomeEmpresa %>
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Nome da Empresa: 				</td>
  <td style="text-align:left;">
					<input type="text" name="NomeContato" size="50" readOnly="true" value="<% = NomeEmpresa %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Razão Social: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="Cnpj" size="20" maxlength="15" readOnly="true" value="<% = RazaoSocial %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CNPJ: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCnpj" size="20" maxlength="15" readOnly="true" value="<% = CNPJ %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Ramo de Atividade: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtRamoAtividade" size="20" maxlength="15" readOnly="true" value="<% = RamoAtividade %>">
				</td>
			</tr>
			<tr>
				<td colspan="2">
					<hr width="95%">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Nome Contato: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtNomeContato" size="50" readOnly="true" value="<% = NomeContato %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CPF: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCPF" size="50" readOnly="true" value="<% = CPF %>">
				</td>
			</tr>
			<tr>
				<td colspan="2">
					<hr width="95%">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Endereço: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtEndereco" size="50" readOnly="true" value="<% = Endereco %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					CEP: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtCep" size="10" maxlength="9" readOnly="true" value="<% = CEP %>">
					  
					Cidade: 
					<input type="text" name="txtCidade" size="23" maxlength="50" readOnly="true" value="<% = Cidade %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Telefone: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtTelefone" size="20" maxlength="12" readOnly="true" value="<% = Telefone %>">
					  
					Fax: 
					<input type="text" name="txtFax" size="17" maxlength="12" readOnly="true" value="<% = Fax %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Email: 
				</td>
				<td style="width:70%; text-align:left;">
					<input type="text" name="txtEmail" size="40" maxlength="50" readOnly="true" value="<% = Email %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Site: 
				</td>
				<td style="text-align:left;">
					<input type="text" name="txtSite" size="40" maxlength="50" readOnly="true" value="<% = Site %>">
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
					Ativo: 
				</td>
				<td style="text-align:left;">
				<% if ativo = "true" then %>
				<img src="imagens/btn_ativo.gif">
				<% else %>
				<img src="imagens/btn_inativo.gif">
				<% end if%>
				</td>
			</tr>
			<tr>
				<td style="text-align:right;">
				</td>
				<td style="text-align:left;">
				<input name="alterar" type="button" value="alterar">  </td>
			</tr>
		</table>
		</form>

	</body>

	</html>

Arquivo de conexao com o banco: BANCO.ASP

<%	
	dim objConn, objRs

	'SUB QUE ABRE CONEXAO COM O BANCO -----------------------------------------------------------------------
	sub abreBD()
		set objConn = server.createObject("adodb.connection")
		objConn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.mapPath("../dados/banco.mdb")& ";Persist Security Info=False"
		objConn.open()
	end sub
	'--------------------------------------------------------------------------------------------------------

	'SUB QUE FECHA A CONEXAO COM O BANCO E DESTROI OS OBJETOS DO MESMO --------------------------------------
	sub fechaBD()
		objConn.close()
		set objConn = nothing
	end sub
	'--------------------------------------------------------------------------------------------------------

	'FUNÇÃO Q ABRE O RECORDSET APARTIR DA QUERY PASSADA AO MESMO --------------------------------------------
	function abreRS(strSql)
		set objRs = server.createObject("adodb.recordSet")
		objRs.open strSql, objConn, 3, 3
	end function
	'---------------------------------------------------------------------------------------------------------

	sub fechaRS()
		set objRs = nothing
	end sub

%>

Arquivado

select vazio

Recommended Posts

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Biano 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

mostrar quanto tempo foi postado um conteudo

Fóruns

Tempo Real

Informação importante