4 replies to this topic

[NaDaI]

Entao...seguinte, eu fiz o script do dundas ja consegui capturar o nome dos arquivo que vao ser upado e tudo mais....so que o problema e o seguinte...sao 2 imagens ou seja 2 nomes de arquivos diferente...a imagem pequena e a grande....eu precaria fazer um insert no bd com esses nomes em seus respectivos campos no bd....ae que ta o problema....se eu jogar o mesmo valor para os dois campos nao sei se funcionaria....precisava saber se alguem sabe...algum jeito que eu separe os dois valores e jogue em duas novas variaveis entedeu...

segue o codigo

<%
Response.Buffer = true
on error resume next

dim objUpload
dim strMessage

set objUpload = server.CreateObject("Dundas.Upload.2")

if err.number <> 0 then
Response.write err.description
end if

objUpload.MaxFileSize = 1048576 

objUpload.UseUniqueNames = false

objUpload.Save "e:\home\topbrasilonline\web\imagem"

dim temp

if IsEmpty(objUpload.Form("file1")) = false then temp = " "
if err.number <> 0 then
strMessage = objUpload.Form("file1") & temp & "Falha, ocorreu o erro: " & err.description

else
strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("file1") & "<br>"
'strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("form1") & "."
end if 

For Each objUploadedFile in objUpload.Files 
'nomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) & "<BR>" 
variavel = split(objUploadedFile.path,"\")
ultimo = ubound(variavel)
foto = variavel(ultimo)

response.write foto &"<br>"
Next 

texto = objUpload.Form("texto") 

Response.write strMessage
response.write texto

Set objUpload = nothing 
%>

[Agente Linhares]

ue? mas se vc pega 2 fotos, ja tem 2 vars, so jogar no bd entao..


ou seriam a mama, so q em 2 cmapos?

se for é so vc fazer algo assim:


var1 = objUpload.Form("file1")
var2 = objUpload.Form("file1")

aí so inserir no bd as 2

[NaDaI]

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: "&reg2("cod_selecao")&"<br>"
f2= "Data: "&reg2("data")&"<br><br>"
f3= "Abaixo estão os produtos selecionados pelo usuário, "&reg3("nome")&":<br><br>"
f5= "<br>Telefone: "&reg3("telefone")&"<br>"
do while not reg.eof
f4= "Código Produto: "&reg("codigo")&"&nbsp;Produto: "&reg("produto")&"&nbsp;Quantidade: "&reg("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: "&reg2("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...

[Agente Linhares]

um dos meios de se fazer u loop:

<% While Not rs.eof %>
<%=rs("campo")%>
<%  rs.movenext : Wend %>

tenta encaixar ai no seu pra ver..

qualquer coisa, procure aqui: http://forum.wmonlin...s&highlite=loop

[NaDaI]

entao fazer o loop eu sei...o problema ali se voce ver e que na hora que eu faço o loop ele faz normal...se junto ao loop eu colocar um response.write nome da variavel funciona normal....

so que o que rola...eu to fazendo esse loop pra depois enviar tudo isso por email...so que ele faz o loop so que na hora que chega no meu email so vem 1 vez a variavel impressa entendeu...

eu precisaria ter uma ideia de como fazer pra que loop imprimir em tela todas variaveis pra eu mandar pro email...e mais ou menos isso