Ir para conteúdo

POWERED BY:

Arquivado

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

lulukynha

Refresh

Recommended Posts

esse é meu codigo.. e preciso sempre q clicarem no botao REPIQUE fazer um refresh na pagina e mostrar no lugar do botao "sim" e salvar no banco de dados o 'S'

Sera que alguem conceguiria me ajudar ???

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

<!--#include file="..\site\conexao.asp"-->
<script language="javascript">
function formatar(src, mask)
{
  var i = src.value.length;
  var saida = mask.substring(0,1);
  var texto = mask.substring(i)
if (texto.substring(0,1) != saida)
  {
	src.value += texto.substring(0,1);
  }
}
</script>
<%
dim vdataf,vdatai,vtbl_clique,produto,repique
%>
<center>
<br>
<font face="Tahoma" size="2"><strong>Relatório Loja Virtual</strong></font>
<br><br><br><br>
<form method="post" action="relatoriovirtual.asp?acao=buscar">
<table>
	<tr>
		<td><font face="Tahoma" size="1">Data Inicial:</font></td>
		<td><input class="input" type="text" name="datai" id="inicial" maxlength=10 size=8 OnKeyPress="formatar(this, '  /  /	')"></td>
	</tr>
	<tr>
		<td><font face="Tahoma" size="1">Data Final:</font></td> 
		<td><input class="input" type="text" name="dataf" id="final" maxlength=10 size=8 OnKeyPress="formatar(this, '  /  /	')"><br></td>
	</tr>
	<tr>
		<td colspan=2><center><input type="submit" name=buscar value="Buscar"></center></td>
	</tr>
</table>
</form>
<%
if request.QueryString("acao") = "buscar" then
vdatai = year(request.form("datai"))&"-"&month(request.form("datai"))&"-"&day(request.form("datai")) & " 00:00:00"
vdataf = year(request.form("dataf"))&"-"&month(request.form("dataf"))&"-"&day(request.form("dataf")) & " 23:59:59"

	if (vdatai <> "") and (vdataf <> "") then
		set vtbl_clique = lojadb.execute("SELECT id,email,telefone,nomecliente,prod_id FROM tbl_cliques where data between '" & vdatai & "' and '" & vdataf & "' and nomecliente<>''")		
	end if
	

	
%>
<table cellSpacing="1" cellPadding="1" border="1" width="647">
	<tr>
		<th width="128"><font face="Tahoma" size="1">E-mail</font></th>
		<th width="66"><font face="Tahoma" size="1">Telefone</font></th>
		<th width="54"><font face="Tahoma" size="1">Nome do Cliente</font></th>
		<th width="36"><font face="Tahoma" size="1">Codigo</font></th>
		<th width="342"><font face="Tahoma" size="1">Nome</font></th>
		<th width="79"><font face="Tahoma" size="1"> </font></th>
	</tr>
	
<%
vtbl_clique.movefirst
while not vtbl_clique.eof
'set produto = lojaDB.execute("SELECT codigo,nome FROM produtos WHERE id = " & vtbl_clique("prod_id"))
'response.write vtbl_clique("email") & "<BR>"
%>
	<tr>
		<td><font face="Tahoma" size="1"><center><%=vtbl_clique("email")%> </center></font></td>
		<td><font face="Tahoma" size="1"><center><%=vtbl_clique("telefone")%> </center></font></td>
		<td><font face="Tahoma" size="1"><center><%=vtbl_clique("nomecliente")%> </center></font></td>
		<td><font face="Tahoma" size="1"><center><% set produto = lojaDB.execute("SELECT codigo,nome FROM produtos WHERE id = " & vtbl_clique("prod_id"))%><%= produto("codigo")%></center></font></td>
		<td><font face="Tahoma" size="1"><center><%= produto("nome")%></center></font></td>	
		<td><form method="post" action="relatoriovirtual.asp?acao=repique">
		<center><input type="submit" name=repique value="Repique">
		<%if ("acao") = "repique" then
		lojaDB.Execute("UPDATE tbl_clique set repique ='S' where email=" & request.form("email"))
		response.write("Sim")
		end if%></center></td>
	</tr>
	
<%
vtbl_clique.movenext
 
wend



%>

</table>

<%end if%>

</center>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Substitua esse código:

<td><form method="post" action="relatoriovirtual.asp?acao=repique">
		<center><input type="submit" name=repique value="Repique">
		<%if ("acao") = "repique" then
		lojaDB.Execute("UPDATE tbl_clique set repique ='S' where email=" & request.form("email"))
		response.write("Sim")
		end if%></center></td>

Por esse:

<td>
<%
if request.quersytring("acao") = "repique" then
	lojaDB.Execute("UPDATE tbl_clique set repique ='S' where email=" & request.form("email"))
	response.write("Sim")
else%>
				<form method="post" action="relatoriovirtual.asp?acao=repique">
						<center><input type="submit" name=repique value="Repique"></center>
				</form>
<%end if%>
		</td>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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