Puxar informações do BD!

[Leo KW 0]

Eu estou tentando chamar uma função no ASP, com esse nome: <%Call Lista_Cores(cores,produto)%>

 

a função que eu quero chamar esta assim:

Function Lista_Cores(cores,produto)
	'Cria objeto de consulta a tabela de cores
	
	dim p 
	
	Set RS_Cores = Server.CreateObject("ADODB.Recordset")
	RS_Cores.CursorLocation = 3
	RS_Cores.CursorType = 0
	RS_Cores.LockType = 3
	RS_Cores.Open "SELECT codigo_cor, nome_cor, url_imagem FROM Cores ORDER BY nome_cor", Conexao
	'Coluna = 0
	If Not RS_Cores.Eof Then
%>
	<select name="nome_cor" id="nome_cor">
<%
	   While Not RS_Cores.EOF

			If cores <> "" Then 
				Vetor = Split(cores, ",") 
				For I = 0 To Ubound(Vetor) 
					If CDbl(Vetor(I)) = CDbl(RS_Cores("codigo_cor")) Then
								
								Set RS_Cores2 = Server.CreateObject("ADODB.Recordset")
								RS_Cores2.CursorLocation = 3
								RS_Cores2.CursorType = 0
								RS_Cores2.LockType = 3
								
								
								query = empty
								query = "SELECT * FROM Produtos_Cores WHERE codigo_produto=" & produto
								query = query & " AND codigo_cor=" & RS_Cores("codigo_cor") & " ORDER BY id_tabcor ASC;"
								RS_Cores2.Open query, conexao
								if not (RS_Cores2.bof and RS_Cores2.eof) then
								
										p = lcase(trim(rs_cores2("foto")))
										p = replace(p,"config/imagens_conteudo/produtos/imagensgrd/","")
										p = left(p,8)										
										
										'GRD_adic
										'GRD_
										'If I = 0 Then response.write "selected" End If
										
								%>
								
								<option value="<%=RS_Cores("codigo_cor")%>" onclick="view_prod('<%=RS_Cores2("foto")%>');" <%if p <> "grd_adic" then response.write "selected" End If%>>
									<%=RS_Cores("nome_cor")%>
								</option>
								
								<%else%>
								 
								 <option value="<%=RS_Cores("codigo_cor")%>" <%'If I = 0 Then response.write "selected" End If%>>
									<%=RS_Cores("nome_cor")%>
								</option>							   
								
								<%end if%>
					 
<%
					End If
				Next 
			End If 	   
			
			RS_Cores.MoveNext
		 Wend
%>
	</select>
	<img src="config/templates/<%=varLang%>/<%=varSkin%>/regua1x1.gif" height="3" width="5">
<%
	End If
	'Fecha e libera da memória o objeto de Recordset
	RS_Cores.Close
	Set RS_Cores = Nothing
End Function

Porém não aparece nada no select_menu, alguém pode me dar uma luz?!

 

Abraços!

[hargon 64]

Verifica se está entrando dentro de algum do IF.

Coloque dentro de cada um

Response.Write IF 1<br />

 

No outro

Response.Write IF 2<br />

 

etc...