Ir para conteúdo
Fórum Script Brasil
  • 0

Mostrar Tabela

mvinicius80

Perguntado por mvinicius80,

 Share

Pergunta

mvinicius80

mvinicius80

Postado
Postado

<%

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

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

hum

Perae

O que quer dizer a '/' que tem ali?

Capital/Interior

O que a barra faz?

Pois, que eu saiba o nome de um campo não pode conter uma /..

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...