Envio de cartão Postal

[igadino 0]

Estou tentando fazer um sistema de envio de cartão postal, so que tem um porem eu tenho que fazer o seguinte se for as extenões gif, jpg, jpeg tem que entra na linha em vermelho, se for a extesão swf tem que entra na linha azul alguem pode me dizer como eu faço isso?

 

Obs Não é para fazer o download as imagens e sim para enviar apenas o caminho conforme as linha em azul e vermelho.

 

 

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.igadino.com"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = Request.Form("De")&"<"&Request.Form("Email")&">" 'e-mail do remetente

objCDOSYSMail.To = Request.Form("para")&"<"&Request.Form("Email_Para")&">" 'e-mail do destinatário

objCDOSYSMail.CC = Request.Form("Cc")&"<"&Request.Form("Email_Cc")&">" 'destinatario para copia, permite múltiplos

objCDOSYSMail.BCC = Request.Form("Cco")&"<"&Request.Form("Email_Cco")&">" 'destinatário também, porém fica oculto, não aparece no mail, permite múltiplos

objCDOSYSMail.Subject = "Você recebeu um cartão virtual de "&Request.Form("De") 'conteúdo da mensagem

if not request("HtmlText") = "" then

StrBody = "<img width='595' height='550' src='http://www.igadino.com/cartoes/"&request("no")&""

else

StrBody = "<img width='595' height='550' src='http://www.igadino.com/cartoes/"&request("no")&""

end if

strBody = strBody & "."

'objCDOSYSMail.TextBody = strBody

'para envio da mensagem no formato html altere o TextBody para HtmlBody

objCDOSYSMail.HtmlBody = strBody

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

'response.write ("<font color='#FF0000'>'E-mail enviado com suceso!'</font>" )

[igadino 0]

Sim meus amigo, estou dando um exemplo:porque não estou conseguindo fazer, se a extenção for swf tem que entrar na linha azul e se for gif, jpg jpeg, tem que entrar na linha vermelha.