[Resolvido] Campos VAZIOS... Update

[wilnet 92]

Olá galera, em minha pg de cadastro tenho vários CAMPOS, uns com validação para não ficar em branco... Porém tenho outros que não tem importancia se ficarem em brancos... MAS quero que ao inves de deixarem em branco... possa inserir traçinhos (----).

 

Podem me ajudar nessa parada? Pq quando puxo as informações na outra pg. por questão de estética ficou meio estranho ver os campos em vazio.... Assim quero preencher com (----)

 

 

Brigaduu

[PuRgAuM 0]

Da pra tentar alguma coisa assim::

 

Vamos supor que o nome do campo no form da página que esteja mandando os dados seja Nome, Sobrenome.

entao para receber os dados ficaria assim:

 

<%
Dim Nome
Dim Sobrenome
Dim Telefone

Nome = Request.Form("Nome")
Sobrenome = Request.Form("Sobrenome")

'Suponhamos que nome seja obrigatório então poderia ser:

if (Nome = "") then
Response.Write "Mensagem de Erro"
end if

'Suponhamos que o  Sobrenome NÃO seja obrigatório

if (Sobrenome = "") then
Sobrenome = "-------------"
end if
%>

Da uma olhada nisso...

 

Flw

[wilnet 92]

Valeu a dica amigo PuRgAuM, vou tentar sim...

 

Eu tava tentando fazer assim:

 

Fiz uma Função:

 

<% 
Function insereTraco(sTrings)
insereTraco = Replace(sTrings,"","---")
insereTraco = Replace(insereTraco,"","---")
insereTraco = Trim(insereTraco)
End Function 
%>

E chamo ela assim:

 

nome = insereTraco (Request.Form("nome"))

A gravação foi normal... mas quando requisitei a pg com as informações... esse campo ficou em vazio.. será q da pra mexer nisso q ja estou usando?

 

Grato...

[wilnet 92]

Ainda não deu certo... tentei fazer sua sugestão mas continua vazio.

 

Meus cógidos estão assim:

 

If(Request.Form("email") = "") Then erro = "XX" End If

If (Request.Form("descricao") = "") Then erro = "XX" End If

'If (Request.Form("suites") = "") Then suites = "---" End If

if (suites = "") then suites = "---"

 

O que está em Vermelho é o q ja está funcionando, se o campo estiver vazio ele mostra erro...

 

Agora o q está em azul, foi a sugestão dada, tentei adptar de duas maneiras como mostra em azul, só q continua vazio.

 

Gostaria de saber tb, se com a Função que fiz acima, é algo funcional tb para esse caso, ou nem se aplica...

 

Grato.

[wilnet 92]

Pessoal ainda n to conseguindo... uma ajudinha ou ideias..

[Ted k' 126]

If CStr(Request.Form("suites")) = "" Then
suites = "---"
End If

pule linhas...

[wilnet 92]

Ainda está ficando vazio Ted k'

 

Na minha pg de inclusão está assim

 

 

Script que faz a vericação de campos VAZIOS

If (Request.Form("email") = "") Then erro = "XX" End If
If (Request.Form("descricao") = "") Then erro = "XX" End If

Na sequencia, add sua sugestão

If  CStr(Request.Form("suites")) = "" Then suites= "---" End If

E ak são os campos que serão incluidos

tipo_negocio = Request.Form("tipo_negocio")
dormitorio = Request.Form("dormitorio")
suites = Request.Form("suites")

Mas ainda está vazio...

 

Errei em algum lugar,, ou vamos mecher nele ainda?

[Ted k' 126]

não tem sentido

 

faz isso:

 

suites = Request.Form("suites")

If CStr(tipo_negocio) = "" Then
suites = "---"
End If

agora verifique se está certo o campo "suites" no formulário!

[Anderson Roberto 0]

O que acontece é que você coloca os traços na variável suites:

If  CStr(Request.Form("suites")) = "" Then suites= "---" End If

E depois você recupera o que vem do formulario:

tipo_negocio = Request.Form("tipo_negocio")
dormitorio = Request.Form("dormitorio")
suites = Request.Form("suites")

Você terá que fazer mais ou menos assim:

tipo_negocio = Request.Form("tipo_negocio")
dormitorio = Request.Form("dormitorio")
If Cstr(Request.Form("suites")) <> "" Then
   suites = Request.Form("suites")
End If

[wilnet 92]

ufaaa Não da cert de jeito nenhummmm ... ainda continua gravando com o campo vazio..

 

Anderson só não entendi com essa sugestao onde é q vai inserir os traços com esse seu código

 

tipo_negocio = Request.Form("tipo_negocio")
dormitorio = Request.Form("dormitorio")
If Cstr(Request.Form("suites")) <> "" Then
   suites = Request.Form("suites")
End If

Fiz isso e continua em vazio.

 

Agora voltando a FUNÇÃO que eu tentei usar postado logo no inicio e q está abaixo ai tb,

<% 
Function insereTraco(sTrings)
insereTraco = Replace(sTrings,"","-")
insereTraco = Replace(insereTraco,"","-")
insereTraco = Trim(insereTraco)
End Function 
%>

Pq essa n funciona?

 

eu uso essa mesma funçaõ para tratar caracter invalido e da certo mas só q fica assim:

<% 
Function insereTraco(sTrings)
insereTraco = Replace(sTrings,"%","erro")
insereTraco = Replace(insereTraco,"/","erro")
insereTraco = Trim(insereTraco)
End Function 
%>

E desse jeito se digitado % ou / ele grava "erro" no campo..

 

agora n entendo pq o modelo acima nao grava os traços.... ESPLICAÇÕES por favor se alguem puder me dar...

 

Grato + uma vz

[wilnet 92]

Bom dia amigos...

 

OBS: Se tiverem uma explicação ou se não der para revolver (PODEM FECHAR) esse Tópico então obrigado

[Anderson Roberto 0]

Tenta assim:

tipo_negocio = Request.Form("tipo_negocio")
dormitorio = Request.Form("dormitorio")
If Cstr(Request.Form("suites")) <> "" Then 'Verifica se o campo suites veio em branco do formulario
   suites = Request.Form("suites") 'Se não, atribui a variavel suites o valor que veio do formulario
Else
   suites = "---" 'Se sim, atribui os traços a variavel suites
End If

[wilnet 92]

GRANDE Anderson Roberto.... essa foi boa amigo.

 

Fiz sua sugestão acima e agora deu certinho amigo, se o campo no form for em branco... na hora q vou requitar as informações traz com os benditos TRAÇINHOS q tanto sonhei rsrsrs

 

MUITOOOO obrigado amigo pela a atenção dada e muito mais ainda pela sua SOLUÇÃO.

 

Este tópico já está resolvido ok Moderadores.

 

Grato Anderson

[Anderson Roberto 0]

Que bom!!!

:D