[Resolvido] erro em SQL

[claytonprog 0]

Pessoal estou com um problema numa sql aqui:

 

<%
	Function DiaEvento(dia,mes,ano)
	
	
		perfil = request.querystring("id")
				
			
		RS.Open "Select * From eventos Where Data=#" & mes & "/" & dia & "/" & ano & "#" and id_perfil ="&perfil" , CN
		
				
		If RS.Eof Then
			DiaEvento =  dia
		Else
			DiaEvento = "<b><font color=black>" & dia & "</b></a>"
		End If
		
		RS.Close
	End Function
%>

 

está dando o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: "Select * From evento"]'

/portalpregadores/agenda.asp, line 9

 

 

o valor do id_perfil é = 44 o tipo de campo é numero na tabela.

 

Peço a juda de vcs

[DSerma 19]

RS.Open "Select * From eventos Where Data=#" & mes & "/" & dia & "/" & ano & "# and id_perfil ="&perfil" , CN

 

Abraços...

[claytonprog 0]

Fiz a alteração:

 

mais deu esse erro:

 

Erro de compilação do Microsoft VBScript (0x800A0409)

Constante de seqüência não finalizada

/portalpregadores/agenda.asp, line 10, column 109

RS.Open "Select * From eventos Where Data=#" & mes & "/" & dia & "/" & ano & "# and id_perfil ="&perfil" , CN

[claytonprog 0]

Pessoal valew ai, Consegui de outra forma!!!

 

Segue a sintaxe:

 

sqleventos = ("select * from eventos where id_perfil = "& perfil &" and DATA = #" & mes & "/" & dia & "/" & ano & "# ")
				   	
		rs.open sqleventos, cn