Ir para conteúdo
Fórum Script Brasil

mvinicius80

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2

  • Registro em

  • Última visita

Sobre mvinicius80

mvinicius80's Achievements

0

Reputação

  1. mvinicius80

    Mostrar Tabela

    pergunta respondeu ao mvinicius80 de mvinicius80 em ASP

    a linha 57 e essa aqui... gravar.open "Select Capital/Interior, Regiao, Igr/Nuc/Resi, Nome, Endereco, Bairro, Cidade, Alu/Pro, Valor, Iptu, Condominio, ValorAgua, ValorTelefone, ValorLuz, Total From iurd where Regiao = '"& regiao &"' order by regiao ", conexao
  2. mvinicius80

    Mostrar Tabela

    uma questão postou mvinicius80 ASP

    <% Dim regiao Dim conexao Dim gravar inicio = Timer function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function regiao = request.form("txtregiao") %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% set conexao = server.CreateObject("ADODB.connection") set gravar = server.CreateObject("ADODB.recordset") conexao.open ("iurd") gravar.open "Select Capital/Interior, Regiao, Igr/Nuc/Resi, Nome, Endereco, Bairro, Cidade, Alu/Pro, Valor, Iptu, Condominio, ValorAgua, ValorTelefone, ValorLuz, Total From iurd where Regiao = '"& regiao &"' order by regiao ", conexao do while not gravar.eof response.Write "<table border='0' cellpadding='3' cellspacing='0' width='700'>" response.Write "<tr>" & "<td width='40' bgcolor='maroon'><font color='white' size='1' face='arial'>Capital/Interior</FONT></TD>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Região</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Igr/Nuc/Res</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Nome_Iurd </font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Endereço </font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Bairro</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Cidade</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Alu/Pro</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Valor</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Iptu</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Condominio</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Valor_Agua</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Valor_tel</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Valor_luz</font></td>" response.write "<td width='40' bgcolor='marrom'><font color='white' size='1' face='arial'>Total</font></td>" & "</tr>" response.write "<tr>" & "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Capital/Interior") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Regiao") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Igr/Nuc/Resi") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Nome") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Endereco") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Bairro") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Cidade") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Alu/pro") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Valor") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Condominio") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Iptu") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("ValorAgua") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("ValorTelefone") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("ValorLuz") & "</font></td>" response.write "td width='40' bgcolor='gold'><font color='black' size='1' face='arial'>" & gravar.fields("Total") & "</font></td></tr>" gravar.movenext loop gravar.close conexao.close %> </body> </html> ta dando esse erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 7. /prfre/gvis.asp, line 52 me ajudem
×
×
  • Criar Novo...