Problema

[gisela 0]

oi pessoal,

Estou tendo que atualizar um sistema que nao é meu e nao sei muito pouco de asp....adicionei o campo boleto pagto3, mas esta dando conflito entre os ifs...quando altero ele seleciona o que nao devia....e assim vai....

Alguem pode me ajudar???? Preciso resolver isso urgente !!!!!!

 

 

<%@ Language=VBScript %>

<%Option Explicit%>

<!--#include virtual="/include/sclib1.asp"--->

<%

 

Dim CSClube

Set CSClube = Session("objCSClube")

 

If Session("permissao") = 0 Or Session("pasta") = "" Then

Response.Redirect "../default.asp"

End If

 

Dim strnome, stragencia, strdigitoagencia, strconta, strdigitoconta

Dim pgto, strbanco, cartao

 

Dim strStatus, strMessage, flagJSErr, strFocus, flagPag

 

strStatus = Trim(Request.QueryString("status"))

flagJSErr = 0

strFocus = "nome"

cartao = 0

 

If CSClube.openDataSrc(Session("pasta")) Then

 

flagPag = 0

CSClube.openDataRS("Select * From pagamento")

If CSClube.m_rsData.EOF Then flagPag = 1 Else openpg() End if

 

End If

 

If(strStatus = "check") Then

 

strnome = Trim(Request.Form("nome"))

strbanco = Trim(Request.Form("banco"))

stragencia = Trim(Request.Form("agencia"))

strdigitoagencia = Trim(Request.Form("verifa"))

strconta = Trim(Request.Form("conta"))

strdigitoconta = Trim(Request.Form("verif"))

 

pgto = 0

 

If Request.Form("pagto1") = "ON" Then pgto = 1

If Request.Form("pagto2") = "ON" Then pgto = pgto + 2

If Request.Form("pagto3") = "ON" Then pgto = pgto + 3

 

cartao = 0

 

If Request.Form("C1") = "ON" Then cartao = 1

If Request.Form("C2") = "ON" Then cartao = cartao + 2

If Request.Form("C3") = "ON" Then cartao = cartao + 4

If Request.Form("C4") = "ON" Then cartao = cartao + 8

 

If ValidateFrmpag() = True Then

 

flagPag = 0

addpg()

Session("url") = 1

Response.Redirect "default.asp"

Else

flagJSErr = 1

End If

 

End If

 

Function addpg()

 

CSClube.openDataRS("Select * From pagamento")

If CSClube.m_rsData.EOF Then

CSClube.m_rsData.AddNew

End If

CSClube.m_rsData("formapg") = pgto

CSClube.m_rsData("cartoes") = cartao

CSClube.m_rsData("nome") = strnome

CSClube.m_rsData("banco") = strbanco

CSClube.m_rsData("agencia") = stragencia

CSClube.m_rsData("verifa") = strdigitoagencia

CSClube.m_rsData("conta") = strconta

CSClube.m_rsData("verif") = strdigitoconta

CSClube.m_rsData.update

 

End Function

 

Function openpg()

CSClube.openDataRS("Select * From pagamento")

pgto = CSClube.m_rsData("formapg")

cartao = CSClube.m_rsData("cartoes")

strnome = CSClube.m_rsData("nome")

strbanco = CSClube.m_rsData("banco")

stragencia = CSClube.m_rsData("agencia")

strdigitoagencia = CSClube.m_rsData("verifa")

strconta = CSClube.m_rsData("conta")

strdigitoconta = CSClube.m_rsData("verif")

End Function

 

Function checkBanco(wParam)

On Error Resume Next

checkBanco = ""

if(wParam = strbanco) then checkBanco = "SELECTED"

End Function

 

Function createLinks()

createLinks = 0

 

Dim strK1, strK2, strLink(4), Status(4), n

 

strK1 = "<p align=" & Chr(34) & "left" & Chr(34) & ">"

strK2 = "<input type=" & Chr(34) & "checkbox" & Chr(34) & " name="

 

strLink(0) = "American Express"

strLink(1) = "Diners"

strLink(2) = "Mastercard"

strLink(3) = "Visa"

 

If (cartao And 1) then Status(0) = "'C1' checked" Else Status(0) = "'C1'"

If (cartao And 2) then Status(1) = "'C2' checked" Else Status(1) = "'C2'"

If (cartao And 4) then Status(2) = "'C3' checked" Else Status(2) = "'C3'"

If (cartao And 8) then Status(3) = "'C4' checked" Else Status(3) = "'C4'"

 

For n = 0 to 3

Response.Write strK1 & strK2 & Status(n) & " value=" & Chr(34) & "ON" & Chr(34) & ">" & strLink(n) & "</p>" & Chr(13)

Next

End Function

 

 

Function validateFrmpag()

 

'Função que valida o formulario de cadastro de pagamento

'Retorna True or False

 

Dim errNF

validateFrmpag = false

strMessage = ""

errNF = 0

 

If(pgto = 0) Then

errNF = 1

strFocus = "pagto1"

ElseIf(cartao = 0) and ((pgto = 1) or (pgto = 3))Then

errNF = 2

strFocus = "C1"

End If

 

If(pgto = 4) and ((pgto = 1) or (pgto = 3) or (pgto = 2)) Then

strFocus = "pagto3"

End If

 

If (pgto = 3 or pgto = 2 ) Then

If(strnome = "") Then

errNF = 3

strFocus = "nome"

ElseIf (strbanco = "NA") Then

errNF = 5

strFocus = "banco"

ElseIf(stragencia = "") Then

errNF = 6

strFocus = "agencia"

ElseIf(strconta = "") Then

errNF = 8

strFocus = "conta"

End If

End If

 

 

If(errNF > 0) Then

strMessage = validateErr(errNF)

exit function

End If

 

validateFrmpag = true

 

End Function

 

Function validateErr(paramValue)

 

Dim msg

Select Case paramValue

 

case 1:

msg = "Você não escolheu pelo menos uma forma de pagamento."

case 2:

msg = "Por favor, escolha pelo menos um cartão de crédito."

case 3:

msg = "Por favor, preencha o nome do correntista."

case 5:

msg = "Por favor, escolha um banco para depósito."

case 6:

msg = "Por favor, preencha corretamente a agência para depósito."

case 8:

msg = "Por favor, preencha corretamente o nº da conta para depósito."

case 10:

msg = "Ocorreu um erro na operação. Tente novamente."

case else

msg = "Dados inválidos."

End Select

 

validateErr = msg

 

End Function

 

%>

 

<HTML>

<HEAD>

<TITLE>Pagamentos - DigiShop</TITLE>

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

<META NAME="INDEX" CONTENT="DigiShop.Pagamentos.Admin">

<meta http-equiv="Keywords" name="Keywords" content="DigiShop, shopping, compras, loja virtual, e-commerce, b2b, vendas on-line, tecnologia">

<meta http-equiv="Keywords" name="Reply-to" content="postmaster@DigiShop.com">

 

<style type="text/css">

<!--

A:link {text-decoration:none; FONT-FAMILY: Verdana; color:#104163;}

A:visited {text-decoration:none; FONT-FAMILY: Verdana; color:#104163;}

A:active {text-decoration:none; FONT-FAMILY: Verdana; color:#104163;}

A:hover {text-decoration:underline; FONT-FAMILY: Verdana; color:red;}

 

#imgTitleDiv {

position:absolute;

left:526;

top:70;

z-index:20;}

// -->

</style>

 

<script language="JavaScript" type="text/javascript" src="/include/tratardados.js"></script>

<script LANGUAGE="JavaScript">

<!--

 

function newImage(arg) {

if (document.images) {

rslt = new Image();

rslt.src = arg;

return rslt;

}

}

 

function changeImages() {

if (document.images && (preloadFlag == true)) {

for (var i=0; i<changeImages.arguments.length; i+=2) {

document[changeImages.arguments].src = changeImages.arguments[i+1];

}

}

}

 

var preloadFlag = false;

function preloadImages() {

if (document.images) {

bt_sualoja_over = newImage("images/bt_sualoja-over.gif");

bt_sualoja_down = newImage("images/bt_sualoja-down.gif");

bt_departamentos_over = newImage("images/bt_departamentos-over.gif");

bt_departamentos_down = newImage("images/bt_departamentos-down.gif");

bt_entregas_over = newImage("images/bt_entregas-over.gif");

bt_entregas_down = newImage("images/bt_entregas-down.gif");

bt_produtos_over = newImage("images/bt_produtos-over.gif");

bt_produtos_down = newImage("images/bt_produtos-down.gif");

bt_promocoes_over = newImage("images/bt_promocoes-over.gif");

bt_promocoes_down = newImage("images/bt_promocoes-down.gif");

bt_layout_over = newImage("images/bt_layout-over.gif");

bt_layout_down = newImage("images/bt_layout-down.gif");

bt_pagamentos_over = newImage("images/bt_pagamentos-over.gif");

bt_pagamentos_down = newImage("images/bt_pagamentos-down.gif");

bt_pedidos_over = newImage("images/bt_pedidos-over.gif");

bt_pedidos_down = newImage("images/bt_pedidos-down.gif");

bt_clientes_over = newImage("images/bt_clientes-over.gif");

bt_clientes_down = newImage("images/bt_clientes-down.gif");

preloadFlag = true;

}

}

 

function submitFunction(i, id)

{

if (i==1) document.frmprom.action="frmprom.asp?status=check&action=alter&id=" + id;

if (i==2) document.frmprom.action="frmprom.asp?status=check&action=remov&id=" + id;

if (i==3) document.frmprom.action="frmprom.asp?status=check&action=adicio&dpt=" + id;

if (i==4) document.frmprom.action="frmprom.asp?status=check&action=addall";

if (i==5) document.frmprom.action="frmprom.asp?status=check&action=remall";

if (i==6) document.frmprom.action="frmprom.asp?status=check&action=remdept&dpt=" + id;

if (i==7) document.frmprom.action="frmprom.asp?status=check&action=cancel";

document.frmprom.submit();

}

 

// -->

</SCRIPT>

</HEAD>

 

<BODY marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" BGCOLOR=#FFFFFF ONLOAD="preloadImages();">

<!--#include virtual="/include/header.inc"--->

 

<table width="780" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="168" valign="top">

<!--#include virtual="/include/menu.inc"--->

</td>

 

<!--inicio do formulário"-->

<td valign="top">

<form action="frmpag.asp?status=check" method="post" name=frmpag>

<table border="0" cellspacing="1" width="580">

<tr>

<td rowspan=8><img src="/images/spacer.gif" width=5 height=250 border=0></td>

<td><img src="/images/spacer.gif" width=200 height=1 border=0></td>

<td><img src="/images/spacer.gif" width=375 height=1 border=0></td>

</tr>

<tr>

<td colspan="2"><img src="images/tit_pagamentos.gif" width=350 height=47 border=0>

<img src="/images/spacer.gif" width=5 height=65 border=0></td>

</tr>

<tr>

<td colspan="4" width=550>

<%If Session("usernew") = 1 Then%>

<table border="0" cellspacing="0" cellpadding="0" >

<tr>

<td colspan="3" height=15 align=right> <img src="images/1.gif" width=24 height=23 border=0>

<img src="images/2.gif" width=24 height=23 border=0> <img src="images/3.gif" width=24 height=23 border=0>

<img src="images/4.gif" width=24 height=23 border=0> <img src="images/5ativo.gif" width=24 height=23 border=0></td>

<td><img src="/images/spacer.gif" width=5 height=5 border=0></td>

</tr>

<tr>

<td colspan="3" height=15><font face="verdana" size="1" color="#FF9A00">

<b>Você agora está na última etapa. Depois dessa etapa sua

loja estará pronta!!!</b> </font></td>

<td><img src="/images/spacer.gif" width=5 height=5 border=0></td>

</tr>

<tr>

<td colspan="3" height=1> <img src="/images/spacer.gif" width=5 height=1 border=0></td>

<td><img src="/images/spacer.gif" width=5 height=1 border=0></td>

</tr>

</table>

<%End If%>

</td>

</tr>

<tr>

<td colspan="2" width="500"> <font face=Verdana,Geneva size="1" color="#164365">

Através destes dados, o cliente efetuará a pagamento de suas compras.<br>

São duas opções de pagamento, cartão de crédito e depósito bancário,

já tenha esses dados para facilitar o preenchimento dos dados. </td>

</tr>

<tr>

<td colspan="2"> <img src="/images/spacer.gif" width=5 height=10 border=0></td>

</tr>

<tr>

<td colspan="2" bgcolor="#BDDCFF"> <font face=Verdana,Geneva size="1" color="#164365">

<input type="checkbox" <%If pgto = "4" or pgto = "2" or pgto = "3" Then Response.Write "checked" %> name="pagto3" value="ON">

<b>Pagamento por boleto</b></font></td>

</tr>

<tr>

<td colspan="2" bgcolor="#BDDCFF"><font face=Verdana,Geneva size="1" color="#164365">

<input type="checkbox" <%If pgto = "1" or pgto = "3" Then Response.Write "checked" %> name="pagto1" value="ON">

<b>Pagamento por cartão de crédito</b></font></td>

</tr>

<tr>

<td colspan="2" bgcolor="#BDDCFF"> <font face=Verdana,Geneva size="1" color="#164365">

<% createLinks()%>

</font> <font face=Verdana,Geneva size="1" color="red">Importante!</font>

<font face=Verdana,Geneva size="1" color="#164365"> Lembre-se que

para escolher pagamento por cartão de crédito, você precisa estar

cadastrado junto as administradoras destes.</font> <font face=Verdana,Geneva size="1" color="#164365">

</font></td>

</tr>

<tr>

<td></td>

<td colspan="2" bgcolor="#BDDCFF"> <font face=Verdana,Geneva size="1" color="#164365">

<input type="checkbox" <%If pgto = "2" or pgto = "3" Then Response.Write "checked" %> name="pagto2" value="ON">

<b>Pagamento por depósito em conta corrente</b></font></td>

</tr>

<tr>

<td></td>

<td colspan="2" bgcolor="#BDDCFF">

<table border="0">

<tr>

<td width="50%"><font face=Verdana,Geneva size="1" color="#164365">Nome

do Correntista:</font></td>

<td width="50%">

<input type="text" name="nome" size="26" value="<%=strnome%>">

</td>

</tr>

<tr>

<td width="50%"><font face=Verdana,Geneva size="1" color="#164365">Banco:</font></td>

<td width="50%">

<select name="banco">

<option value="NA">Escolha o Banco </option>

<option>Bradesco </option>

<option>BCN </option>

<option>HSBC </option>

<option>Itaú </option>

<option>Real </option>

<option>Unibanco </option>

<option>Banco do Brasil </option>

<option>Bandeirantes </option>

<option>Banespa </option>

<option>Caixa Econômica Federal </option>

<option>Banco Meridional </option>

<option>Banco Banrisul </option>

<option>Safra</option>

</select>

</td>

</tr>

<tr>

<td width="50%"><font face=Verdana,Geneva size="1" color="#164365">Agência:</font></td>

<td width="50%">

<input type="text" name="agencia" value="<%=stragencia%>" size="5">

-

<input type="text" name="verifa" value="<%=strDigitoagencia%>" size="2" maxLength="1" OnFocus="SetarEvento(this,1,'D')">

</td>

</tr>

<tr>

<td width="50%"><font face=Verdana,Geneva size="1" color="#164365">Conta

Corrente:</font></td>

<td width="50%">

<input type="text" name="conta" value="<%=strconta%>" size="7">

-

<input type="text" name="verif" value="<%=strDigitoconta%>" size="2" maxLength="1" OnFocus="SetarEvento(this,1,'D')">

</td>

</tr>

</table>

</td>

</tr>

<tr>

<td></td>

<td colspan="2" bgcolor="#BDDCFF" align=center>

<input type="image" value="Entrar" name="Alterar" src="/images/but_alterar.gif" width="100" height="25" border="0" hspace="0" alt="Alterar">

<img src="/images/spacer.gif" width=20 height=1 border=0> <a href="default.asp"><img src="/images/but_cancelar.gif" width="100" height="25" border="0" hspace="0" alt="Cancelar">

</td>

</tr>

</table>

</form>

<!--final do formulário"-->

</td>

<td valign="top">

<img src="/images/spacer.gif" width=10 height=1 border=0></td>

</tr>

</table>

<div id="imgTitleDiv"><IMG SRC="/images/header_topdiv.gif" width="254" height="72" border="0"></div>

 

<script language="JavaScript">

<!--

var flagJSErr = <%=flagJSErr%>

var msg = "<%=strMessage%>"

if(flagJSErr){window.alert(msg);}

document.frmpag.<%=strFocus%>.focus();

// -->

</script>

 

</body>

</html>

[asp.net 0]

Onde você está incluindo a linha, e onde está dando o erro, e qual o erro?