Jump to content


Photo

Caixa De Confirmaçao + Asp


  • Faça o login para participar
8 replies to this topic

#1 Piano

Piano

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 15/03/2010, 17:15

Gostaria de criar uma caixa de confirmaçao para apagar um registro do BD.

Esse é o codigo em ASP
<% 
Dim sql, ano
ano = Year(now)
sql="SELECT * FROM cartas WHERE Data LIKE '%" & ano & "%' ORDER BY codigo DESC"
tabela.open sql,conexao,3,3
SetLocale("pt-br")
while not tabela.eof
  response.Write("<tr>") 
  response.write("<td align=center>" & tabela("Codigo"))
  response.Write("<td>" & tabela("Empresa"))
  response.Write("<td align=center>" & tabela("Receptor"))
  response.Write("<td>" & tabela("Assunto"))
  response.Write("<td align=center>" & tabela("Data"))
  response.Write("<td align=center>" & tabela("Pasta"))
  response.Write("<td>" & tabela("Por"))
  response.Write("<td align=center><a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'><img alt='Editar Registro' border=0 src=..\images\editar.gif></a></td>")
  response.Write("<td align=center><a href='excluir_cartas.asp?codigo=" & tabela("codigo") &"'><img alt='Excluir Registro' border=0 src=..\images\excluir.gif></a></td>")
  tabela.movenext
  response.Write("</tr>") 
wend
%>

Codigo Javascript
<script>
function confirmation() {
	var answer = confirm("Tem certeza que deseja excluir o registro?")
	if (answer){
		window.location = "editar_cartas.asp?codigo=" & tabela("codigo") &"";
	}
	else{
		;
	}
}
</script>

Sei que o código em Javascript não funciona, pois há um codigo em ASP inserido nele.
Como poderia resolver esse problema?

Obrigado.

Ja resolvido, obrigado.

<script>
function confirmSubmit()
{
var agree=confirm("Deseja realmente apagar o registro?");
if (agree)
	return true ;
else
	return false ;
}
</script>

<% 
Dim sql, ano
ano = Year(now)
sql="SELECT * FROM cartas WHERE Data LIKE '%" & ano & "%' ORDER BY codigo DESC"
tabela.open sql,conexao,3,3
SetLocale("pt-br")
while not tabela.eof
  response.Write("<tr>") 
  response.write("<td align=center>" & tabela("Codigo"))
  response.Write("<td>" & tabela("Empresa"))
  response.Write("<td align=center>" & tabela("Receptor"))
  response.Write("<td>" & tabela("Assunto"))
  response.Write("<td align=center>" & tabela("Data"))
  response.Write("<td align=center>" & tabela("Pasta"))
  response.Write("<td>" & tabela("Por"))
  response.Write("<td align=center><a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'><img alt='Editar 

Registro' border=0 src=..\images\editar.gif></a></td>")
  %>
<td align=center><a onclick="return confirmSubmit()" href="excluir_cartas.asp?codigo=<%=tabela("codigo")%>">
<img alt='Excluir Registro' border=0 src=..\images\excluir.gif></a></td>
<%
  tabela.movenext
  response.Write("</tr>") 
wend
%>


#2 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 04/10/2017, 07:36

Lioresal Posologie Alcoolisme viagra Importing Kamagra Into Uk Generique Cialis 40mg

#3 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 13/10/2017, 08:58

Fluoxetine 20 Mg Buy Curetage Ou Cytotec levitra professional Naturliches Viagra Fedex Shipping Stendra No Physician Approval Viagra Online Tesco
Cialis En Ligne Pas Cher Generic 40 Mg Cialis Cheapest Prices Viagra Levants Best Price cialis No Prescription Viagra Canada Online Per Il Viagra Serve La Ricetta Kamagra Oral Jelly 100mg Reviews 225

#4 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 16/10/2017, 12:59

Buy Kamagra Online In Uk cheap levitra Macrobid Tablets Shop Zithromax For Std Generic Viagra Tadalafil

#5 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 30/10/2017, 13:55

Cialis Roma Diabetes Propecia Reversible Walgreens Provides Free Amoxicillin viagra online pharmacy Kamagra And The Fda Amoxicillin Potassium Clavu Tab 500mg

#6 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 31/10/2017, 04:34

Algodones Pharmacies Reliable Site To Buy Viagra Online cialis Acheter Du Vrai Propecia Sur Internet Amoxicillin Safe Dose Viagra Equivalent Naturel

#7 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 25/11/2017, 03:13

Order Cipro No Prescription Will Keflex Treat Mrsa Buy Cialis Super Active viagra Viagra Nebenwirkungen Alkohol Buy Viagara Overnight Shipping

#8 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 29/11/2017, 12:02

Synthroid 112 Mcg Price Levitra Mas Alcohol Viagra Precio Zaragoza viagra cialis Cheapest Cost Of Amoxicillin

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13794 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 07/12/2017, 03:22

Viagra E Paroxetina Lady Era Cialis 5mg Pellic viagra online prescription Buy Vardenafil 40 Mg Online
Is Amoxicillin The Same As Penicillin Cost Of Nexeum In Canada levitra 5mg Kamagra Oral Jelly Fast Delivery What Is Metformin
Pharmacy4you Costo Viagra Scatola viagra online pharmacy Levitra Online Sales




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq