Erro Bd Sqlserver

[jethrotull]

Olá Pessoal!

Estou tendo problema para efetuar uma consulta no SQL-Sever. Ocorre o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][sql Server]Line 1: Incorrect syntax near 'de'.

/gera_excel.asp, line 114

O código fonte é o seguinte:

set rstemp=Conn.execute(query)

If Err.Number<>0 Then

response.write "<br>*Erro!

( . . . )

Do while Not rstemp.Eof

  if rstemp("Nome")&"*a"="*a" then

  nome=""

  sobrenome=""

  else

  nameArray = Split(rstemp("Nome")," ",2) 

  nome = nameArray(0)

  if uBound(nameArray) > 0 then

    sobrenome = nameArray(1)

  else

    sobrenome = ""

  end if

 

  end if

  if rstemp("Grupo")&"a" = "a" then

  nomGrupo = ""

  else

  set getGrupo = Conn.Execute("SELECT GRUPO FROM GRUPO WHERE ID ="&rstemp("Grupo")) 

  nomGrupo= getGrupo("GRUPO")

  end if

  if rstemp("Evento")&"a" = "a" then

  nomEvento = ""

  else

  set getEvento = Conn.Execute("SELECT EVENTO FROM EVENTO WHERE ID ="&rstemp("Evento"))

  nomEvento= getEvento("EVENTO")

  end if

O erro ocorre na linha:

set getGrupo = Conn.Execute("SELECT GRUPO FROM GRUPO WHERE ID ="&rstemp("Grupo"))

nomGrupo= getGrupo("GRUPO")

Desde já agradeço qualquer sugestão.

JT

[JCMPJ]

Tenta não usar o mesmo nome para a tabela e para a coluna(campo).

JCMPJ

[Developer]

set rstemp=Conn.execute(query)

If Err.Number<>0 Then

response.write "<br>*Erro!

( . . . )

Do while Not rstemp.Eof

  if rstemp("Nome")&"*a"="*a" then

  nome=""

  sobrenome=""

  else

  nameArray = Split(rstemp("Nome")," ",2) 

  nome = nameArray(0)

  if uBound(nameArray) > 0 then

    sobrenome = nameArray(1)

  else

    sobrenome = ""

  end if

 

  end if

  if rstemp("Grupo")&"a" = "a" then

  nomGrupo = ""

  else

  set getGrupo = Conn.Execute("SELECT GRUPO FROM GRUPO WHERE ID ="&rstemp("ID")) 

  nomGrupo= getGrupo("GRUPO")

  end if

  if rstemp("Evento")&"a" = "a" then

  nomEvento = ""

  else

  set getEvento = Conn.Execute("SELECT EVENTO FROM EVENTO WHERE ID ="&rstemp("ID"))

  nomEvento= getEvento("EVENTO")

  end if