Como fazer para inserir um texto antes do .jpg

[rodrigovetorix 0]

Primeiramente obrigado por ler minha dúvida!

 

Desenvolvi um galeria dinâmica de fotos com base de dados, com ela subo as imagens (foto e thumbnail), quando Subo a foto teste.jpg e gero automaticamente o thumbnail ficando com o nome teste_thumb.jpg.

 

Agora a minha dúvida, ao mostrar o thumb coloco a seguinte programação:

 

<img src="<%=(rsprod.Fields.Item("foto").Value)%>" width="100" border="0" />

Com isso eu não mostro o thumbnail, apenas a foto em si, com isso fica lento o carregamento da página.

 

Gostaria de aprender um função que pegasse o valor do campo foto e inserisse a palavra _thumb antes da extensão do arquivo

 

Exite essa possibilidade?

 

Obrigado pela atenção!

 

Rodrigo

[Public2004 79]

<%
Dim foto
foto = rsprod("foto")
foto = Replace(foto,".","_thumb.")
Response.Write(foto)
%>

Abs.

[rodrigovetorix 0]

Oba amigo,

 

Infelizmente não consegui, olha como estou fazendo!

 

<%
Dim foto
foto=rsmscli("foto")
foto=Replace(foto,".","_thumb.")

%>
<img src="foto/<%Response.Write(foto)%>" width="100" hspace="5" vspace="2" align="left" >

Mensagem de erro

Tipo de erro:

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

Uso inválido de Null: 'Replace'

 

Se puder ajudar, agradeço

[hargon 64]

if len(foto) > 0 then

foto=Replace(foto,".","_thumb.")

end if

[Public2004 79]

O erro é porque o campo está vazio (nulo), faça uma condição como o ex. do hargon.

 

Abs

[Mário Monteiro 179]

voce criou a miniatura?