Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Carlos Moreira

[Resolvido] Array - Não esta pegando Valor

Por , em ASP Clássico

Recommended Posts

Carlos Moreira    0

Carlos Moreira
Postado

Ola pessoal estou usando o seguinte Codigo abaixo mas nao esta Nem pegando o valor pq sera?

 

Vejam

 

Session.LCID = 1046

'Associação básica dos campos do formulário as variáveis
'O comando TRIM é para retirar os espaços desnecessários que vierem com as variáveis
tipo = "1,"
nome = "1,"
cwt = "1,"
peso_lb = "1,"
valor_parcial = "1,"

total = "1"

separa_tipo = Split(tipo,",")
separa_nome = Split(nome,",")
separa_cwt = Split(cwt,",")
separa_peso_lb = Split(peso_lb,",")
separa_valor_parcial = Split(valor_parcial,",")

for i=lbound(separa_nome) to ubound(separa_nome) 
body = body & "<tr>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_tipo(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_nome(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_cwt(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_peso_lb(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_valor_parcial(i) & "</font></td>"
body = body & "</tr>"
next

Estou usando o codigo acima mas nao esta pegando os valores pq sera?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como assim? Só não pega o que está em separa_valor_parcial(i) ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Poste o resultado disso:

response.write tipo & "<br>"
response.write nome & "<br>"
response.write cwt & "<br>"
response.write peso_lb & "<br>"
response.write valor_parcial & "<br><br>"
response.write lbound(separa_nome) & "<br><br>"
response.write ubound(separa_nome) & "<br><br>"
response.end

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos Moreira    0

Carlos Moreira
Postado

Segue abaixo codigo inteiro

 

1ª parte envio para o email

 

e

 

2ª gravo no banco

 

Session.LCID = 1046

'Associação básica dos campos do formulário as variáveis
'O comando TRIM é para retirar os espaços desnecessários que vierem com as variáveis
tipo = "1,"
nome = "1,"
cwt = "1,"
peso_lb = "1,"
valor_parcial = "1,"

'tipo = Trim(Request.Form("tipo"))
'nome = Trim(Request.Form("name"))
'cwt = Trim(Request.Form("cwt"))
'peso_lb = Trim(Request.Form("peso_lb"))
'valor_parcial = Trim(Request.Form("valor_parcial"))


total = Trim(Request.Form("total"))

tipopessoa = ""

razaosocial = ""
nomefantasia = ""
cnpj = ""

sexo = ""
nome = ""
rg = ""
cpf = ""
cep = ""
datanasc = ""
endereco = ""
endnumero = ""
complemento = ""
bairro = ""
cidade = ""
estado = ""
dddtelefone = ""
telefone = ""
dddfax = ""
fax = ""
email = ""
id = ""
comentarios = ""

'Abaixo o ARRAY para a separação pela vírgula dos dados
separa_tipo = Split(tipo,",")
separa_nome = Split(nome,",")
separa_cwt = Split(cwt,",")
separa_peso_lb = Split(peso_lb,",")
separa_valor_parcial = Split(valor_parcial,",")

'Aqui a mesma declaração que você vem usando para criar o objeto do e-mail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "vlademir@acerotex.com"
Mailer.FromAddress= "vlademir@acerotex.com"
Mailer.RemoteHost = emailservidor
Mailer.AddRecipient "Pedido", "contato@circuitovirtual.com.br"

Mailer.ContentType = "text/html" ' formatação html

Mailer.Subject = "Compra - Site"
body = "<b><font size=""2"" face=""Verdana"">Pedido" & VbCrLf & "Site</font></b>"

body = body & "<br><br>"

'Abaixo a tag do cabeçalho da tabela
body = body & "<table width=""100%"" border=""1"" align=""left"" cellpadding=""4"" cellspacing=""0"">"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>TIPO:</b></font></td>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Nº:</b></font></td>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>CWT:</b></font></td>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>PESO LB:</b></font></td>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>SUBTOTAL:</b></font></td>" & vbCrLf
body = body & "</tr>" & vbCrLf

'Aqui vem o principal, o VETOR que busca a separação das variáveis do ARRAY e destribui nas linhas e colunas da tabela
for i=lbound(separa_nome) to ubound(separa_nome) 
body = body & "<tr>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_tipo(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_nome(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_cwt(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_peso_lb(i) & "</font></td>"
body = body & "<td><font size=""1"" face=""Verdana"">" & separa_valor_parcial(i) & "</font></td>"
body = body & "</tr>"
next
body = body & "<tr>"
body = body & "<td colspan=""8"">"
body = body & "<table width=""100%"">"
body = body & "<tr>" & vbCrLf
body = body & "<td height=""50""><font size=""1"" face=""Verdana""><b>Valor Total da Compra:</b> "& total &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Tipo Pessoa:</b> "& tipopessoa &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Razão Social:</b> "& razaosocial &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Nome Fantasia:</b> "& nomefantasia &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>CNPJ:</b> "& cnpj &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Sexo:</b> "& sexo &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Nome:</b> "& nome &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>RG:</b> "& rg &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>CPF:</b> "& cpf &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>CEP:</b> "& cep &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Data Nasc.:</b> "& datanasc &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Endereço:</b> "& endereco &"-" & endnumero &"</fon?????????????t></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Complemento:</b> "& complemento &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Bairro:</b> "& bairro &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Cidade:</b> "& cidade &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Estado:</b> "& estado &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Telefone:</b> ""("& dddtelefone &")" & telefone &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>FAX:</b> ""("& dddfax &")" & fax &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>E-mail:</b> "& email &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "<tr>" & vbCrLf
body = body & "<td><font size=""1"" face=""Verdana""><b>Comentários:</b> "& comentarios &"</font></td>" & vbCrLf
body = body & "</tr>"
body = body & "</td>"
body = body & "</tr>"
body = body & "</table>"
body = body & "</table>"


Mailer.BodyText = body


If Mailer.SendMail then


Else
Response.Write "Mail send failure. Error was " & Mailer.Response
End if



'Abaixo a tag do cabeçalho da tabela
body2 = body2 & "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" bordercolor=""#000000"">"
body2 = body2 & "<tr bgcolor=""#000000"">" & vbCrLf
body2 = body2 & "<td><font color=""#FFFFFF"" size=""1"" face=""Verdana""><b>TIPO:</b></font></td>" & vbCrLf
body2 = body2 & "<td><font color=""#FFFFFF"" size=""1"" face=""Verdana""><b>Nº:</b></font></td>" & vbCrLf
body2 = body2 & "<td><font color=""#FFFFFF"" size=""1"" face=""Verdana""><b>CWT:</b></font></td>" & vbCrLf
body2 = body2 & "<td><font color=""#FFFFFF"" size=""1"" face=""Verdana""><b>PESO LB:</b></font></td>" & vbCrLf
body2 = body2 & "<td><font color=""#FFFFFF"" size=""1"" face=""Verdana""><b>SUBTOTAL:</b></font></td>" & vbCrLf
body2 = body2 & "</tr>" & vbCrLf

'Aqui vem o principal, o VETOR que busca a separação das variáveis do ARRAY e destribui nas linhas e colunas da tabela
for i=lbound(separa_nome) to ubound(separa_nome) 
body2 = body2 & "<tr>"
body2 = body2 & "<td><font size=""1"" face=""Verdana"">" & separa_tipo(i) & "</font></td>"
body2 = body2 & "<td><font size=""1"" face=""Verdana"">" & separa_nome(i) & "</font></td>"
body2 = body2 & "<td><font size=""1"" face=""Verdana"">" & separa_cwt(i) & "</font></td>"
body2 = body2 & "<td><font size=""1"" face=""Verdana"">" & separa_peso_lb(i) & "</font></td>"
body2 = body2 & "<td><font size=""1"" face=""Verdana"">" & separa_valor_parcial(i) & "</font></td>"
body2 = body2 & "</tr>"
next
body2 = body2 & "<tr>"
body2 = body2 & "<td colspan=""8"">"
body2 = body2 & "<table width=""100%"">"
body2 = body2 & "<tr>" & vbCrLf
body2 = body2 & "<td height=""30""><font size=""1"" face=""Verdana""><b>TOTAL:</b> "& total &"</font></td>" & vbCrLf
body2 = body2 & "</tr>"
body2 = body2 & "</td>"
body2 = body2 & "</tr>"
body2 = body2 & "</table>"
body2 = body2 & "</table>"


body2Text = body2


Function DataMySQL_data(d_Data)
dim d_Dia, d_Mes
d_Dia = Day(d_Data)	
d_Mes = Month(d_Data)	
If d_Dia <= 9 Then d_Dia = d_Dia 
If d_Mes <= 9 Then d_Mes = d_Mes 
DataMySQL_data = Year(d_Data) & "-" & d_Mes & "-" & d_Dia
End Function

Function DataMySQL_hora(h_Data)
dim h_Horas, h_Minutos, h_Segundos	
h_Horas  = Hour( h_Data )   
h_Minutos	= Minute( h_Data )
h_Segundos	= Second( h_Data )
If h_Horas <= 9 Then h_Horas = h_Horas   
If h_Minutos <= 9 Then h_Minutos = h_Minutos 
If h_Segundos <= 9 Then h_Segundos = h_Segundos  
DataMySQL_hora = h_Horas & ":" & h_Minutos & ":" & h_Segundos 
End Function

aprovado= "N"

Call abre_conexao1(ConnString,Conn)

mysql = "Insert Into pedido (cliente_id, pedido, data_inc, hora_inc, aprovado) VALUES ('" & session("cliente_id") & "', '" & body2 & "', '" & DataMySQL_data(Now) & "' , '" & DataMySQL_hora(Now) & "', '" & aprovado & "')"
Conn.Execute(mysql)

Call fecha_conexao1()

Session.Abandon

Response.redirect "pedido_ok.asp"

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Preciso saber os valores armazenados em cada variável, conforme solicitei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos Moreira    0

Carlos Moreira
Postado

Seguinte eu estava pegando o resultado assim

 

tipo = Trim(Request.Form("tipo"))

 

mas como nao estava vindo nenhum valor estou testando assim

 

tipo = "1,"

 

Porem nem este valor esta pegando mesmo eu colocando o valor na variavel

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Mas fica difícil lhe ajudar se você ignorar o que estou solicitando...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos Moreira    0

Carlos Moreira
Postado 

<%
tipo = "1,"
nome = "1,2,3,4,5"
cwt = "1,"
peso_lb = "1,"
valor_parcial = "1,"

separa_nome = Split(nome,",")

response.write tipo & "<br>"
response.write nome & "<br>"
response.write cwt & "<br>"
response.write peso_lb & "<br>"
response.write valor_parcial & "<br><br>"

response.write lbound(separa_nome) & "<br>"
response.write ubound(separa_nome) & "<br>"
response.end
%>

Resultado

1,

1,2,3,4,5

1,

1,

1,

 

0

4

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Veja, você só tem mais de um valor na variável nome. Os demais é somente um valor.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito