Tratamento Para Exibir Imagem Padrao

[moe]

pessoal, segue o codigo:

dim recCatalogo
set recCatalogo = Server.CreateObject("ADODB.recordset")
recCatalogo.open "SELECT * FROM produtos where categoria='" & catcod & "'", conBDcatalogo

if recCatalogo.EOF then
	response.write "<tr>"
	response.write "<td bgcolor=""#ffffff"" COLSPAN=""5"" VALIGN=""middle"" HEIGHT=""270""><center>NENHUM PRODUTO ENCONTRADO</center></td>"
	response.write "</tr>"
else

Do While not recCatalogo.EOF
	response.write "<tr>"
	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"
	response.write "<td valign=""top"" width=""100%"" style=""padding-left: 13px""><b><font size=""2"">" & recCatalogo.fields("nome") & "</b></font><br><br>" & recCatalogo.fields("descricao") & "<br><br><strong>Preço:</strong> R$" & FormatNumber(recCatalogo.fields("preço"),2) & "</td>"
	response.write "</tr>"
	recCatalogo.MoveNext
Loop
recCatalogo.Close
conBDcatalogo.Close	

end if

ali onde ele exibe a imagem:

Do While not recCatalogo.EOF
	response.write "<tr>"
	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"
	response.write "<td valign=""top"" width=""100%"" style=""padding-left: 13px""><b><font size=""2"">" & recCatalogo.fields("nome") & "</b></font><br><br>" & recCatalogo.fields("descricao") & "<br><br><strong>Preço:</strong> R$" & FormatNumber(recCatalogo.fields("preço"),2) & "</td>"
	response.write "</tr>"
	recCatalogo.MoveNext
Loop

mais especificamente nessa linha:

	response.write "<td style=""padding-bottom: 13px""><img WIDTH=""100"" HEIGHT=""100"" src=""" & recCatalogo.fields("foto") & """></td>"

eu quero que, se não tiver nenhuma imagem cadastrada, ele mostre essa imagem:

http://www.awl.com.br/rstocco/imagens/img_prod.gif

como eu faco esse tratamento? eu tentei aqui, mas ele parece que carrega as imagens, mas depois ele não as exibe... ;/

se alguém puder ajudar, eu agradeço, vlw!

[fercosmig]

[moe]

cara, não rolou...

ele não ta mandando valor nenhum pro banco mesmo...

mas vlw ae...

o que eu fiz então foi o seguinte, eu deixei o valor padrão do campo do banco, como essa imagem que eu quero, porque se cadastrar algum produto sem imagem, ele já mostra essa imagem direto...

MAS, to com um problema na hora de cadastrar isso... se eu não cadastro uma imagem, ele não manda informacao nenhuma pro banco...

você tem ideia de como eu posso resolver isso?

vou mandar o codigo todo pra você ver, por favor:

<!-- #include file="abre_conexao.asp" -->

<%

dim recCadastro
dim sql
dim categoria_produto
Dim mySmartUpload
Dim arquivo
Dim oConn
Dim oRs
Dim intCount
Dim caminho
intCount = 0
caminho = "imagens/produtos/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

intCount = mySmartUpload.Save("../imagens/produtos")

strSQL = "SELECT arquivo, foto, nome, descricao, preço, categoria FROM produtos"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = conBDcatalogo
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

For each file In mySmartUpload.Files
	If not file.IsMissing Then
  nome_produto = mySmartUpload.form("prod_nome")
  descricao_produto = mySmartUpload.form("prod_desc")
  preco_produto = mySmartUpload.form("prod_prec")
  categoria_produto = mySmartUpload.form("prod_cat")
  oRs.AddNew
  file.FileToField oRs.Fields("arquivo")
  oRs("foto") = caminho & file.FileName
  oRs("nome") = nome_produto
  oRs("descricao") = descricao_produto
  oRs("preço") = preco_produto
  oRs("categoria") = categoria_produto
  oRs.Update
  intCount = intCount + 1
	End If
Next

response.write "<script>alert('O Registro " & nome_produto & " foi inserido com sucesso!');location.href = 'listagem_produto.asp'</script>"
conBDcatalogo.close
oRs.Close
set conBDcatalogo = Nothing
Set oRs = Nothing

%>

vlw!