Explicação do For Each item In Request.Form...

[gitavares 0]

Olá! é o seguinte, estou com o seguinte código:

 

count = 1postData = ""For Each item In Request.Form	' Não inclue a Virtual Payment Client URL, o botão de Enviar, 	' nem nenhum campo vazio e nem o título.	' Also construct the VPC URL QueryString while looping through the Form data.	If Request(item) <> "" _	   And item <> "SubButL" _	   And item <> "virtualPaymentClientURL" _	   And item <> "title" Then		' Add the data to the VPC URL QueryString		postData = postData & Server.URLEncode(CStr(item)) & "=" & Server.URLEncode(CStr(Request(item))) & "&"		' Increment the count to the next array location		count = count + 1	End IfNext' Remove the trailing ampersand on the datapostData = Mid(postData,1,Len(postData)-1)

Sei que esse código vai pegar todos os item do meu formulário, exceto aqueles relacionados no IF.

 

O problema é que não quero pegar os campos do meu form de forma automática, porque tem muuuuuitos campos sem utilidade nessa parte do código, ou seja, teria que relacionar todos ali no IF. Também nessa parte do código, eu preciso que os nomes dos campos corresponda a um nome padrão, mas não no form original.

 

Então, no código, ao invés daquele For Each, fiz:

 

postData = ""Title = "ASP VPC 2-Party, CSC"virtualPaymentClientURL = "https://vpos.amxvpos.com/vpcdps"postData = postData & Server.URLEncode(CStr(vpc_Version))		   & "=" &  Server.URLEncode(CStr(vpc_Version)) & "&"postData = postData & Server.URLEncode(CStr(vpc_Command))		   & "=" &  Server.URLEncode(CStr(vpc_Command)) & "&"postData = postData & Server.URLEncode(CStr(vpc_AccessCode))		& "=" &  Server.URLEncode(CStr(vpc_AccessCode)) & "&"postData = postData & Server.URLEncode(CStr(vpc_MerchTxnRef))	   & "=" &  Server.URLEncode(CStr(vpc_MerchTxnRef)) & "&"postData = postData & Server.URLEncode(CStr(vpc_Merchant))		  & "=" &  Server.URLEncode(CStr(vpc_Merchant)) & "&"postData = postData & Server.URLEncode(CStr(vpc_OrderInfo))		 & "=" &  Server.URLEncode(CStr(vpc_OrderInfo)) & "&"postData = postData & Server.URLEncode(CStr(vpc_Amount))			& "=" &  Server.URLEncode(CStr(CLng(vpc_Amount))) & "&" 'valor da contribuiçãopostData = postData & Server.URLEncode(CStr(vpc_CardNum))		   & "=" &  Server.URLEncode(CStr(vpc_CardNum)) & "&"postData = postData & Server.URLEncode(CStr(vpc_CardExp))		   & "=" &  Server.URLEncode(CStr(vpc_CardExp)) & "&"postData = postData & Server.URLEncode(CStr(vpc_CardSecurityCode))  & "=" &  Server.URLEncode(CStr(vpc_CardSecurityCode)) & "&" 'código de segurança do cartãopostData = postData & Server.URLEncode(CStr(vpc_CardSecurityCode))  & "=" &  Server.URLEncode(CStr(vpc_CardSecurityCode)) & "&"postData = Mid(postData,1,Len(postData)-1)

obs: Os valores das variáveis foram declarados anteriormente.

 

Esse código aí não funciona... Ele deveria enviar ao servidor da URL informada acima, os valores das variaveis..

 

Nessa linha de código <For Each item In Request.Form>, o ITEM é qual valor exatamente?? é um array de 0 a x?? como funciona isso?

 

Aguardo e agradeço

[Danilo Ramos 0]

up!Gostaria tbem de saber como usar esse tipo de for em um formulário para deixar todos os campos obrigatorios....obrigado

[ska_ska 0]

posta essa dúvida no forum de JavaScript...;)

[gitavares 0]

mas não e javascript :) é asp mesmo :) mas já resolvi de outra forma. tirei o For Each. mas valeu!