AspEmail

[Victor_roots 0]

Bom pessoal não sei mas oq fazer.....esse é o codigo...dentro do meu ponto de vista esta certinho....mas esta dando erro... :( ....

 

prd = Split(session("prodSele"),",")

 

for w = LBound(prd) to UBound(prd)

 

Quant = request.form("txtQuant" & w+1)

 

SQLprod = "Select Prod_Codigo, Prod_Descricao, Prod_valor from Produto where Prod_Codigo='" & prd(w) & "'"

set Prodtemp = Server.CreateObject("ADODB.Recordset")

ProdTemp.Open SQLprod, objBanco, 3, 3

 

 

'da erro bem aki>>>>> CdgProd = Prodtemp("Prod_Codigo")

DesProd = Prodtemp("Prod_Descricao")

ValProd = Prodtemp("Prod_Valor")

 

msgtemp = msgtemp & "<b> Cod.Produto:. </b>" & CdgProd & "<BR>"

msgtemp = msgtemp & "Descriçao do Produto:." & DesProd & "<BR>"

msgtemp = msgtemp & "Valor:. R$" & ValProd & "<BR>"

msgtemp = msgtemp & "Quantidade:. " & Quant & "<BR>"

 

next

 

msgtemp = msgtemp & "<b><font color='red'>Valor Total:.R$ <i>" & vTotal & "</i></font></b><BR><BR>"

msg = msg & msgtemp & "</body></html>"

 

Set Mail = Server.CreateObject("Persits.MailSender")

 

Mail.isHTML = true

Mail.Host = "200.201.133.10"

 

Mail.FromName = "Victor Martins"

Mail.From = "victor.martins@ssiconsultoria.com.br"

 

Mail.Subject = "Teste de email"

 

Mail.AddAddress mailUsu

 

Mail.Body = msgtemp

x=Mail.Send

 

if x= true then

response.write "Email enviado com sucesso."

else

response.write "Erro no envio do email."

End if

 

 

Então ele da erro como se não encontrasse o registro...mas se eu der um response.write e um response.end................ele imprimeeeee o campo....aaaaaaaaaaaaa q raiva...rs....Alguem pode me ajudar? Obrigadoooo....

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

cara faz um teste de EOF mesmo caraIF NOT Prodtemp.EOF THENCdgProd = Prodtemp("Prod_Codigo")DesProd = Prodtemp("Prod_Descricao")ValProd = Prodtemp("Prod_Valor")END IF

[Victor_roots 0]

cara faz um teste de EOF mesmo caraIF NOT Prodtemp.EOF THENCdgProd = Prodtemp("Prod_Codigo")DesProd = Prodtemp("Prod_Descricao")ValProd = Prodtemp("Prod_Valor")END IF

Meu Brother....valeu...mas mesmo assim só esta impriminto um produto da compra....Abraços..Victor