Ir para conteúdo
Fórum CódigoFonte.net

Wesley Nunes

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. Wesley Nunes

    ASP E SQL

    Pessoal Preciso de ajuda no script abaixo, estou aprendendo asp, tenho um certo domínio em SQL, está dando o seguinte erro : Microsoft OLE DB Provider for SQL Server (0x80040E14) Incorrect syntax near the keyword 'and'. /asp/sql.asp, line 30 para facilitar vou marcar a linha 30 onde está dando "pau" <% set Conexao=server.CreateObject("adodb.connection") Conexao.open "PROVIDER=SQLOLEDB;DATA SOURCE=USUARIO-9672E87;UID=wesleyfnunes;PWD=wf0385yn;DATABASE=Northwind" set rs=server.CreateObject("adodb.recordset") Server.ScriptTimeOut = 5000 SQL = "" SQL = SQL & "SELECT Distinct " SQL = SQL & "tpcartao, " SQL = SQL & "Convert(char(10),dtcompra,103) AS DtaCompra, " SQL = SQL & "estabelecimento, " SQL = SQL & "mesrefpg, " SQL = SQL & "anopg, " SQL = SQL & "nparcela, " SQL = SQL & "qtdparcela, " SQL = SQL & "Convert(Numeric(12,2),vlrlancamento) as Vlr " SQL = SQL & "FROM wfn_divida " If Mes = 00 then SQL = SQL & "and mesrefpg is not null " ElSE SQL = SQL & "and mesrefpg = "& Mes &" " END IF If Ano = 00 then SQL = SQL & "and anoPG is not null " ELSE SQL = SQL & "and anoPG = "& Ano &" " END IF 'Response.Write SQL 'Response.End Rs.Open SQL,Conexao,3,3 If Rs.eof then Response.Write "Deu Pau!" Response.Write "<BR>" BGCOLOR="#91C5FF" Rs.close Set Rs=Nothing Conexao.Close Set Conexao=Nothing Response.end Else Rs.movefiRst Do While Not Rs.Eof %> <table border="1" width="100%"> <tr> <td width="12%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("tpcartao") %></font></td> <td width="12%" align="left" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("DtaCompra") %></font></td> <td width="12%" align="left" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("estabelecimento") %></font></td> <td width="12%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%=Rs("mesrefpg") %></font></td> <td width="13%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("anopg") %></font></td> <td width="13%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("nparcela")%></font></td> <td width="13%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("qtdparcela")%></font></td> <td width="13%" align="center" bgcolor="#E0E0E0"><b><font face="Arial" size="1"><%= RS("Vlr")%></font></td> </tr> </table> <% rs.MoveNext loop rs.close Set RS=Nothing Conexao.Close Set Conexao=Nothing end if %>
×
×
  • Criar Novo...