Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Wesley Nunes

ASP E SQL

Recommended Posts

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

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...