crucifier

hohohoh eskeci de fala o erro...foi mal^^ o erro é esse:

esses dias tava eu e não lembro qm aki ou no imasters sei lá...kebranu a cabeca pra consigui desvenda o porque não tava dando certo..daih chegamu num fim glorioso... agora não sei porq..eu nem alterei o codigo...e deu erro...agora não sei o q q eu faco...me ajudem plz vo posta o codigo: <% id_categoria = request.querystring("id_categoria") Set strCon = Server.CreateObject("ADODB.Connection") strcon.open "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=cgrbup2h; Database=foxplay" sqlstmt = "delete from categoria where id_categoria=" & id_categoria strCon.execute(sqlstmt) sql= "delete from fotos where id_categoria="& id_categoria strCon.execute(sql) response.redirect "consulta_categoria.asp" %>

tentei procurar no forum isso mas não achei...nakeles scripts...mas esses dias eu tava fucando e parece que eu tinha visto..mas esqueci onde ta...se voces puderem me falar qual o codigo ou então qual o url que ta dando o codigo dissu...

ueh..não deu certo...tipw..no onclick veja se estou certo: OnClick="entrance_onClick('delete_categoria.asp?id_categoria=<%=id_categoria%>','<%=objrs("nome")%>')"

tipw....o cara ta na pagina de consulta de categoria....daih ele clica pra excluir...e aparece uma janelinha perguntando se ele realmente deseja excluir a categoria....daih ta assim o codigo: <script language="VBscript"> sub entrance_onClick(url) returnvalue=MsgBox ("Você tem certeza que deseja excluir e todas as fotos nela contida?",52,"Confirmação de exclusão de categoria") If returnvalue=6 Then window.location=(url) Else window.location="#" End If end sub </script> só que...no msgbox aih...eu keria que aparecesse assim: Você tem certeza que deseja excluir "a tal categoria" e todas as fotos nela contida? então...eu tentei fazer assim: <script language="VBscript"> sub entrance_onClick(url,nome) returnvalue=MsgBox ("Você tem certeza que deseja excluir",nome," e todas as fotos nela contida?",52,"Confirmação de exclusão de categoria") If returnvalue=6 Then window.location=(url) Else window.location="#" End If end sub </script> e não deu certo... voces entenderam o que eu quis passar? espero que sim...se não entenderam poste a duvida que eu tiro-a.. caso não houver duvidas...tentem me ajudar=]

tipw..pra altera a categoria o cara clica em alterar vai aparece um pop-up daih o cara altera e vai para uma pagina..nessa pagina, assim que for alterado o registro, ele fecha o popup e da um refresh na pagina ond exibe as categorias... como faiz isso??não manjo nada de javascript

fui no forum do imasters e eles dero uma mao pra mim...deu certo! codigo fiko assim: <% @ LANGUAGE="VBSCRIPT" %> <% id_categoria = request.querystring("id_categoria") Set strCon = Server.CreateObject("ADODB.Connection") strcon.open "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay" sqlstmt = "delete from categoria where id_categoria="& id_categoria strCon.execute(sqlstmt) sql= "delete from fotos where id_categoria="& id_categoria strCon.execute(sql) response.redirect "consulta_categoria2.asp" %> o erro era: aquele strcon.open...que tinha 2 vezes... e no delete e no update não da pra por aquele "*" que é pra seleciona todos...daih dexa vazio no lugar dele...daih deu certinho mas qm monto o codigo principal foi nosso amigo cyberalexxx....valewzaum cara....brigadao mesmo!precisa de alguma coisa que não seja dinhero: neto_crucifier@hotmail.com! e valeu todos que ajudaro aih também!

cara mas esse é o codigo todo...negocio é o seguinte essa pagina aih que noi tamo zicado é a pagina delete_categoria.asp daih a pessoa ta na pagina consulta_categoria2.asp, daih ela clica em excluir e vai pra pagina delete_categoria.asp, deleta, e volta para a pagina consulta_categoria2.asp.... enfim...a pagina delete_categoria.asp é aquele codigo que voce posto lá...td q tem nela é akilo... se voce kizer eu posso postar o codigo da pagina consulta_categoria2.asp

cara eu sei que eu já to enchenu o saco...pode fala.husehusheusheuh....mas continua dando erro o codigo é exatamente o que voce me passou poderia ser erro no tipo de campo do mysql? nenhum codigo ta dando certo!

foda cara...eu coloquei aki e nem deu nada: <% @ LANGUAGE="VBSCRIPT" %> <% id_categoria = request.querystring("id_categoria") strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay" Set strCon = Server.CreateObject("ADODB.Connection") sqlstmt = "delete * from categoria where id_categoria="& id_categoria strCon.execute(sqlstmt) response.redirect "consulta_categoria2.asp" %> apareceu assim:

vixi cara...não to entendendo o erro...codigo: <% @ LANGUAGE="VBSCRIPT" %> <% id_categoria = request.querystring("id_categoria") strCon = "Driver=MySQL ODBC 3.51 Driver; Server=200.192.240.24; Uid=foxplay; Pwd=senha; Database=foxplay" sqlstmt = "delete * from categoria where id_categoria="& id_categoria strCon.execute(sqlstmt) response.redirect "consulta_categoria2.asp" %> ta danu esse erro: mas ta lá o strcon...como ele não ta achanu...p****..que merda

cara...to fazenu um teste...ta pra por enquanto só deletar a categoria da tabela categoria...e mesmo assim não ta danu certo...olha aih...to postanu meu codigo inteiro: <% @ LANGUAGE="VBSCRIPT" %> <!--#include file="conexao.asp"--> <%Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" id_categoria = request.querystring("id_categoria") sqlstmt = "delete * from categoria where id_categoria="& id_categoria Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open sqlstmt, strCon, 3, 3 response.redirect "consulta_categoria2.asp" else response.redirect "login.asp" end if%> e aparece esse erro: linha 11 é essa: Set objRs = Server.CreateObject("ADODB.Recordset") e não sei porq não ta danu certo...ta td certo ao meu ver...=\\..qual o erro?

cara...to fazenu um teste...ta pra por enquanto só deletar a categoria da tabela categoria...e mesmo assim não ta danu certo...olha aih...to postanu meu codigo inteiro: <% @ LANGUAGE="VBSCRIPT" %> <!--#include file="conexao.asp"--> <%Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" id_categoria = request.querystring("id_categoria") sqlstmt = "delete * from categoria where id_categoria="& id_categoria Set objRs = Server.CreateObject("ADODB.Recordset") objRs.Open sqlstmt, strCon, 3, 3 response.redirect "consulta_categoria2.asp" else response.redirect "login.asp" end if%> e aparece esse erro: linha 11 é essa: Set objRs = Server.CreateObject("ADODB.Recordset") e não sei porq não ta danu certo...ta td certo ao meu ver...=\\..qual o erro?

alguém sabe?

tipw...no meu codigo ta assim: Set rsdelete = Server.CreateObject("ADODB.Recordset") sqldel = "delete * from fotos where id_categoria = " & request.form("id_catedele") rsdelete.Open sqldel, strCon, 3, 3 set rsdelete = nothing e la no botao de excluir tem um hidden junto que ta assim: Set rsdele = Server.CreateObject("ADODB.Recordset") sqldelrs = "select * from fotos" rsdele.Open sqldelrs, strCon, 3, 3 id_catedele = rsdele("id_categoria") response.write "<INPUT type=hidden name=""id_catedele"" value=" & id_catedele & ">" só que ta danu esse erro: seis tem ideia do que ta acontecendo o.O

então...to fazenu um sistema de galeria de fotos e tem as seguintes tabelas no banco de dados mysql: "categoria" onde contém os seguintes campos: id_categoria nome e também tem a tabela fotos que contém os seguintes campos: id id_categoria foto clicks miniatura onde, id_categoria = o id_categoria da tabela categoria bom enfim... eu queria fazer tipw a pessoa vai lá na administração d categorias e exclui a categoria desejada...daih então todas os registros que fossem dakela categoria fossem excluidos também... só que eu não sei fazer isso=] sera que alguém poderia dar-me uma ajudinha? daih tipw...mais pra frente assim que eu conseguir isso...poderiam dar uma ajudinha pra pessoa pode escolhe se as fotos da tal categoria vão ser excluidas ou movidas para tal categoria(daih o cara escolhe para qual categoria seria movido as fotos.... mas por enquanto me deem uma ajuda sobre o negocio de exclui todos os registros da seguinte categoria agradeço desde já=]

valeu gente...já achei...eu tinha que ter posto: sqlstmt = "Select Fotos.*, Categoria.Nome From Fotos, Categoria Where Fotos.ID_Categoria = Categoria.ID_Categoria AND Fotos.ID_Categoria = '"& id_categoria &"'"

já tentei tira...não adianta!

no meu select ta assim: sqlstmt = "Select Fotos.*, Categoria.Nome From Fotos, Categoria Where Fotos.ID_Categoria = Categoria.ID_Categoria AND categoria.id_categoria = "& id_categoria &";" e quando eu visualizo da esse erro: e se eu tiro essa parte: AND categoria.id_categoria = "& id_categoria &" ele volta a funcionar...que que ta acontecenu(meu bd é mysql)? o.O

eu arrumei o movenext mai continua dando erro...mesmo lugar... (o guest ali sou eu viu)

gente...por mais que eu tentei achar o erro não consigui... primeramente keru agradecer a voces por estarem me ajudando tanto...não sei o q seria dos meus sisteminhas sem voces=] bom..vamos para outra ajuda=D juntei 2 codigos...peguei um pronto de paginacao no aspbrasil e eu já tinha o de colocar registros em colunas... certo vamos lá... ta dando um erro que fiquei umas 4 horas encrencado nesse mesmo erro...tentei substituir e tal..troca aki poe ali otro ali e por aih vai..e sempre danu erro...se não é um é otro..daih resolvi parar onde esta e pedir uma ajuda..o erro dado foi: na linha 86 tem um end if vo posta o codigo pra voces(vo posta intero porq com certeza esse erro que ta dando não é nessa linha....é em otro lugar..): <!--#include file="sistema/conexao.asp" --> <% urlsis = "sistema/" %> <% 'Definição de Variáveis Dim ObjConn Dim ObjRecSet Dim StrQuery Dim Pag '----------------------------------------------------------- 'Controles de Paginação pag = Request.QueryString("pagina") If pag = "" Then pag = 1 End if 'Conexão com o banco de dados Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; Server=servidor; Uid=filth; Pwd=senha; Database=filth" ObjConn.CursorLocation = 3 '<- Cursor de conexão ObjConn.Open '<- Abre a conexão '----------------------------------------------------------- 'Criação de RecordSet Set ObjRecSet = Server.CreateObject("ADODB.RecordSet") '----------------------------------------------------------- 'Conexão Ativa Set ObjRecSet.ActiveConnection = ObjConn '----------------------------------------------------------- 'Select na tabela do banco StrQuery = " SELECT * FROM sites ORDER BY id DESC" '----------------------------------------------------------- ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSet ObjRecSet.PageSize = 8 'Qtde de registros a serem exibidos ObjRecSet.Open StrQuery '<- Executa o Select '----------------------------------------------------------- 'Se não existir dados cadastrados If ObjRecSet.Eof Then Response.Write("<b>Não Existem Dados cadastrados!</b>") Else ObjRecSet.AbsolutePage = pag 'Tazemos todos os dados da tabela While Not ObjRecSet.Eof and i < ObjRecSet.PageSize i = i + 1 '----------------------------------------------------------- colunas = 3 response.write "<table width=660 border=0 cellspacing=8 width=100% cellpadding=0 >" while NOT ObjRecSet.EOF response.write "<tr>" for x = 1 to Colunas 'n&ordm; de colunas if ObjRecSet.EOF = True then logo = "" id = "" url = "" nome = "" cidade = "" estado = "" imagem = "<td align=center valign=middle></td>" Else logo = ObjRecSet("logo") id = ObjRecSet("id") url = ObjRecSet("url") nome = ObjRecSet("nome") cidade = ObjRecSet("cidade") estado = ObjRecSet("estado") imagem = "<td><table width=100% border=0 cellspacing=0 cellpadding=8><tr><td align=center valign=middle><a href="&url&" target=_blank border=0><img src="&urlsis&logo&" border=0/></a></td></tr><tr><td align=center valign=middle><a href="&url&" target=_blank border=0><strong> "&nome&" </strong></a><br />"&cidade&" - "&estado&" </td></tr></table></td>" rs.MoveNext end if response.write ""&imagem&"" next response.write "</tr>" Wend response.write "</table>" end if '---------------------------------------------------------- 'Numero de páginas (Paginação) criação de links para a navegação With Response .Write("<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">") & Vbcrlf .Write("<tr><td colspan=""2"" height=""2""></td></tr>")& Vbcrlf .Write("<tr><td align=""center"" class=""texto"">[ -") & Vbcrlf For i = 1 to ObjRecSet.Pagecount If i = Cint(pag) then .Write("<b>"& i &"</b>&nbsp;") Else .Write("<a href='" & Request.ServerVariables("Script_Name") & "?pagina=" & i & "'>" & i & "</a>&nbsp;") End if Next .Write("- ]</b></td></tr><br>")& Vbcrlf .Write("</table>")& Vbcrlf End With %> espero que voces consigam me ajudar=] se não entenderam ou acharo muito cansativo procura o erro e tenha alguma pergunta pode pergunta que eu entro todo dia pra ve aki..daih eu respondo

não ta vinu não=( tenta faze um teste...ele vai...no meu ateh vai...mas o marca sempre aparece em cima sera q não tem um tipo order by igual mysql

to usanu o for each para enviar os campos de uma solicitação de seguro... e essas coisas precisa ser na ordem pro cara já imprimi lá e já ta td certo...mas o for each ta envianu td fora da ordem...nome prum lado cpf pra otro...sendo que na pagina que esta os campos esta td certinho...tem algum jeito de fazer ele enviar td certinho?? o codigo que eu to usanu é esse daih: For each campo in request.form sBodyText = sBodyText & campo & ":" sBodyText = sBodyText & request.form(campo) & vbCrLf & vbCrLf next sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo

acerto em cheio..é mysql meu banco de dados.. vou tentar usar esse exemplo seu...valeu cara!

peguei 2 scripts daki..o de paginacao...e o de registros em colunas...e ta dando erro por causa de uma coisinha.... no meio do codigo... nessa parte: If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If desse jeito da esse erro: daih quando eu tiro a linha que está objrs.absolutepage = 1 daih da +/- certo...ele exibe os registros e tal mas não faz paginacao...não sei se é esse o erro que ta dando que não exibe paginacao...caso não for esse o erro vou precisar de ajuda de voces para achar onde esta o erro... peguei o codigo desse tópico aih: http://scriptbrasil.com.br/forum/index.php...60entry181109 abracos... caso não entenderam perguntem=]