Ir para conteúdo

Arquivado

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

Kalmfs

Deletar registro clicando em imagem

Por , em ASP Clássico

Recommended Posts

Kalmfs    0

Kalmfs
Postado

Salve galera! + uma vez venho pedir ajuda à galera do fórum. Seguinte: tenho uma página q lista os registros do BD e quero que ao clicar no ícone da lixeira o registro correspondente seja apagado. Já li bastante aqui no fórum mas ainda n consegui. Segue o code:

<%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_ligacao_STRINGRecordset1.Source = "SELECT * FROM lojas"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0Recordset1_numRows = Recordset1_numRows + Repeat1__numRows%> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr bgcolor="#E8F0FF"> <td bgcolor="#DFEBFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <strong><%=(Recordset1.Fields.Item("nome").Value)%></strong></font></td> <td width="360" bgcolor="#F0F0FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=(Recordset1.Fields.Item("email").Value)%></font></td> <td width="73" height="25" align="center" bgcolor="#F0F0FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=(Recordset1.Fields.Item("foto").Value)%>" target="_blank"><img src="imagens/download.gif" alt="Clique com o botão direito e escolha salvar destino como para fazer o download" width="15" height="15" border="0"></a></font></td> <td width="62" height="25" align="center" bgcolor="#F0F0FF"><img src="imagens/icon_delete_label.gif" width="18" height="18" border="0"></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext()Wend%>

è isso, eu queria que qd o cara clicasse no imagem icon_delete_label.gif o registro correspondente fosse apagado. Li por aí q tanto poderia linkar essa imagem pra uma pagina q apagaria como poderia apagar nessa página msm, mas n consegui nenhum dos dois. O q tenho q fazer?Valewww

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kalmfs    0

Kalmfs
Postado

N funcionou n cara, a página nem abre, já dá erroErro de sintaxe/alexandre/lista2.asp, line 76, column 5call Sub apagar()----^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kalmfs    0

Kalmfs
Postado

Cara consegui!!! O link da imagem ficou assim:

<a href="delete.asp?id=<%=(Recordset1.Fields.Item("foto").Value)%>"><img src="imagens/icon_delete_label.gif" width="18" height="18" border="0"></a>
E a página delete.asp assim:

<%Dim Recordset1__MMColParamRecordset1__MMColParam = "1"If (Request.QueryString("id") <> "") Then   Recordset1__MMColParam = Request.QueryString("id")End If%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_ligacao_STRINGRecordset1.Source = "DELETE *  FROM lojas  WHERE foto = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body></body></html><% Response.Redirect("lista2.asp") %><%Recordset1.Close()Set Recordset1 = Nothing%>
Valew aí a força

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito