po ate consegui revoler o problema....mais mudei o codigo todo...hehehe....nao continue com esse nao...
Agora uma outra duvida, acho que e porque eu to com a cabeça meio quente desse lançe do upload, que acabei resolvendo. Seguinte eu tenho esse codigo que enviar a seleçao que o cara fazer para o email, so que rola o seguinte....se ele tem 1 produto na seleçao beleza....agora se ele tem 2 produto ele nao pega os dois e envia pro email...ele pega so 1...o loop nao ta funcionando certo...se alguem poder so dar uma força ae eu agradeço.
set reg3 = server.CreateObject("adodb.recordset")
sql3 = "select * from tb_usuarios where id="&session("id_usuario")&""
set reg3 = con.execute(sql3)
nome_usuario = reg3("nome")
email_usuario = reg3("email")
set reg2 = server.CreateObject("adodb.recordset")
sql2 = "select * from tb_selecao where cod_selecao='"&cod_selecao&"'"
set reg2 = con.execute(sql2)
set reg = server.CreateObject("adodb.recordset")
sql = "select * from tb_produtos_selecionados where cod_selecao='"&cod_selecao&"'"
set reg = con.execute(sql)
f1= "Código Seleção: "®2("cod_selecao")&"<br>"
f2= "Data: "®2("data")&"<br><br>"
f3= "Abaixo estão os produtos selecionados pelo usuário, "®3("nome")&":<br><br>"
f5= "<br>Telefone: "®3("telefone")&"<br>"
do while not reg.eof
f4= "Código Produto: "®("codigo")&" Produto: "®("produto")&" Quantidade: "®("quant")&"<br>"
reg.movenext
loop
' Texto html
msgHTML = f1 & f2 & f3 & f4 & f5
response.write msgHTML
' Pegando os dados digitados nos campos e colocando em variaveis
'sNameFrom = nome_usuario
'sEmailFrom = email_usuario
'sEmailTo = "contato@topbrasilonline.com.br"
'sNameTo = "Top Brasil On-Line"
'sAssunto = "Seleção: "®2("cod_selecao")&""
'Set Mail = Server.CreateObject("Persits.MailSender")
'Mail.Host = "smtp2.locaweb.com.br"
'Mail.From = sEmailFrom
'Mail.FromName = sNameFrom
'Mail.AddAddress sEmailTo
'Mail.Subject = sAssunto
'Mail.isHTML = true
'Mail.Body = msgHTML
'On Error Resume Next
'Mail.Send
'If Err <> 0 Then
' Response.Write "Error encountered: " & Err.Description
'End If
'Set Mail = Nothing
response.write"<script>window.alert('Você acaba de enviar sua seleção para equipe Top Brasil On-Line!')</script>"&vbCrLf
response.write"<script>self.location='"&url&"'</script>"
%>
se alguem tiver uma ideia pra resolver isso ae, me da um toque, porque ta xxxxxx as ideias nao saem mais...