DDD e Telefone receber zero caso não seja preenchido!

[talita.jehle 0]

Oi gente!

 

Estou gerando um aquivo txt atraves do seguinte codigo:

 

Como eu posso fazer para que o Ddd e o telefone se não for preenchido pelo usuario receba 0(zero) na hora de gerar este txt.

 

me ajudemmmmmm por favor!!!!!!

 

'---------------------------------------------------'Gera arquivo TXT para envio ao JDE, se cliente não tiver codigo jde na tabela cliJDE'---------------------------------------------------If codSolucao = "RE" Then	sql = "SELECT codCliente FROM cliJDE where codCliente = " & codCliente	Set rsVerificaCliJDE = dataConn.Execute(sql)		If rsVerificaCliJDE.eof Then		'Cria conexão para arquivo texto		Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")								'Cria um arquivo txt se ele não existir		If ObjFS.FileExists("d:\dados\dados sql\cadsac\CADSACT.TXT") = False Then		   Set ObjTxt = ObjFS.CreateTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",True,False)		Else		   Set ObjTxt = ObjFS.OpenTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",8, False, 0)   		End If   								LineTxt = TRIM(rsClientes("CodCliente"))			& ";"_				   & "0"									& ";"_				   & "000000000000000"					  & ";"_				   & "0"									& ";"_				   & TRIM(UCase(rsClientes("Nome")))		& ";"_				   & TRIM(UCase(rsClientes("Nome")))		& ";"_				   & TRIM(UCase(rsClientes("Ddd")))		 & ";"_				   & [color=#FF0000]TRIM(UCase(rsClientes("Telefone")))	& ";"_				   & TRIM(UCase(rsClientes("Endereco")))	& ";"_[/color]				   & "."									& ";"_				   & "."									& ";"_				   & "."									& ";"_				   & TRIM(UCase(rsClientes("Cidade")))	  & ";"_				   & TRIM(UCase(rsClientes("Uf")))		  & ";"_				   & TRIM(UCase(rsClientes("Cep")))		 & ";"_				   & "BR"									  & ";"_				   & TRIM(UCase(rsClientes("Cpf")))		  		   ObjTxt.WriteLine LineTxt				If Err.Number <> 0 Then			msgResultado = "Erro ao gravar arquivo!<br>"			msgResultado = msgResultado &  "Erro - " & Err.Description			session("msgResultado") = msgResultado			response.Redirect ("mensagem.asp")		Else			msgResultado = "Cliente gerado para o JDE!<br><br>"		End If	Else		msgResultado = "Cliente não gerado para o JDE, pois já possui código JDE!<br><br>"	End If		rsVerificaCliJDE.Close	set rsVerificaCliJDE = nothingEnd If

[marcelinho 0]

Talita,

 

ve se isso ajuda

 

if len(rsClientes("Ddd") > 0 Then& TRIM(UCase(rsClientes("Ddd"))) & ";"_else& TRIM(UCase("00")) & ";"_end if

ai se der certo faz a mesma coisa com o telefone

[talita.jehle 0]

Oi deu esse erro aqui...Error Type:Microsoft VBScript compilation (0x800A0401)Expected end of statement/sistemasT/sac/IncluirAtendimentoSac.asp, line 478onde coloquei o camando q você me passouobrigada pela ajuda

[marcelinho 0]

faz assim pra ver se para esse errodesde a linha do nome la faz assim:& TRIM(UCase(rsClientes("Nome"))) & chr(13)if len(rsClientes("Ddd") > 0 Then& ";" & TRIM(UCase(rsClientes("Ddd"))) & ";"_else& ";" & TRIM(UCase("00")) & ";"_end if

[talita.jehle 0]

Quase Marcelinho!!!agora ocorreu esse erro:Error Type:Microsoft VBScript compilation (0x800A0400)Expected statement/sistemasT/sac/IncluirAtendimentoSac.asp, line 478, column 34Valeu mesmo pela ajuda q você esta me dando..

[marcelinho 0]

Vamos ver se assim vai:hheheheLineTxt = TRIM(rsClientes("CodCliente")) & ";" &_LineTxt = LineTxt & "0" & ";" &_LineTxt = LineTxt & "000000000000000" & ";" &_LineTxt =LineTxt & "0" & ";" &_LineTxt = LineTxt & TRIM(UCase(rsClientes("Nome")))if len(rsClientes("Ddd") > 0 ThenLineTxt = LineTxt & ";" & TRIM(rsClientes("Ddd"))elseLineTxt = LineTxt & ";" & TRIM("0")end ifif len(rsClientes("Telefone") > 0 ThenLineTxt = LineTxt & ";" & TRIM(rsClientes("Telefone")) & ";" &_elseLineTxt = LineTxt & ";" & TRIM("0") & ";" &_end ifLineTxt =LineTxt & TRIM(UCase(rsClientes("Endereco"))) & ";" &_ LineTxt = LineTxt& "." & ";" &_LineTxt = LineTxt & "." & ";" &_LineTxt = LineTxt & "." & ";" &_LineTxt = LineTxt & TRIM(UCase(rsClientes("Cidade"))) & ";" &_LineTxt = LineTxt & TRIM(UCase(rsClientes("Uf"))) & ";" &_LineTxt = LineTxt & TRIM(UCase(rsClientes("Cep"))) & ";" &_LineTxt = LineTxt & "BR" & ";" &_LineTxt = LineTxt & TRIM(UCase(rsClientes("Cpf")))ObjTxt.WriteLine LineTxt

[talita.jehle 0]

Caramba obrigada pela ajuda mesmo....agora ele ta salvando porem na hora de gravar no txt ela grava esta palavra FALSE, sem as informações do cliente.to ficando louca...rs....valeu mesmo...

[marcelinho 0]

que isso precisando estamos ai!!esse false que deu no txt nao esta vindo dessas linhas?If ObjFS.FileExists("d:\dados\dados sql\cadsac\CADSACT.TXT") = False Then Set ObjTxt = ObjFS.CreateTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",True,False) Else Set ObjTxt = ObjFS.OpenTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",8, False, 0) End If o que que é cada paramentro que esta sendo passado ai?

[talita.jehle 0]

poxa amigo..complicou....rs...não fui eu q fiz esse codigo...e estou começando agora no mundo da programção...rs...mas valeu mesmo assim..

[marcelinho 0]

Vamos ver se eu consigo te ajudar entao.faz assim ó:If ObjFS.FileExists("d:\dados\dados sql\cadsac\CADSACT.TXT") = False ThenSet ObjTxt = ObjFS.CreateTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",True)ElseSet ObjTxt = ObjFS.OpenTextFile("d:\dados\dados sql\cadsac\CADSACT.TXT",8, true)End If tomare que funcione huauha

[talita.jehle 0]

oi marcelinho!!poxa tentei fazer o q você pediu mas nada o resultado continua false!!!valeu pela ajuda enormeeeeeeeeeeee q você está me dando...Otimo dia pra você!!!!!