Ir para conteúdo
Fórum Script Brasil

CMachado

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    23

  • Registro em

  • Última visita

Sobre CMachado

  • Data de Nascimento 04/01/1968

Contatos

  • MSN
    claudinhodjni@hotmail.com
  • Website URL
    http://www.gpsom.com
  • ICQ
    100657944

Perfil

  • Gender
    Male
  • Location
    Rio de Janeiro

CMachado's Achievements

0

Reputação

  1. CMachado

    Galeria de fotos

    pergunta respondeu ao CMachado de CMachado em ASP

    Beleza bareta, concordo com você, então se puder me ajudar poderei terminar este script na boa. Tenho um banco de dados com duas tabelas: EVENTOS e FOTOS (não sei se é necessário, mas enfim), a estrutura da tabela está assim: tabela EVENTOS: id_evento = autonumeração nome_evento = texto data_evento = texto local_evento = texto evento_ativo = texto (aqui informo se o evento ainda está ativo ou não) tabela FOTOS: id_foto = autonumeração foto = texto comenta = texto id_evento = texto caminho_foto = texto A página de cadastro de eventos está assim: incluir_evento.asp <% If NOT Session("logado") = true Then Response.redirect("erro.asp") Response.End End If %> <html> <link href="css/style.css" rel="stylesheet" type="text/css"> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="style.css" rel="stylesheet" type="text/css"> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="46%" height="28%" border="0"> <tr> <td height="146"><form name="form1" method="post" action="grava_evento.asp"> <table width="43%" border="0" align="left"> <tr> <td colspan="2"><div align="left"><font size="4" face="Verdana, Arial, Helvetica, sans-serif">Cadastro de Eventos</font></div></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome do Evento:</font></td> <td><input name="nome_evento" type="text" id="txt_nome3" size="50" maxlength="50"> </td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Local:</font></td> <td><input name="local_evento" type="text" id="txt_local3" size="50" maxlength="50"> </td> </tr> <tr> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data:</font></td> <td><input name="data_evento" type="text" id="data_evento" value="dd/mm/aaaa" size="15" maxlength="10"> </td> </tr> <tr> <td> <div align="center"> <table width="200"> <tr> <td><label> <input type="radio" name="Option_Ativo" value="1"> Ativo</label> </td> </tr> <tr> <td><label> <input type="radio" name="Option_Ativo" value="0"> Inativo</label> </td> </tr> </table> </div></td> <td><div align="right"> <input name="Submit" type="submit" class="btn" value="Cadastrar Evento"> </div></td> </tr> </table> </form></td> </tr> </table> </body> </html> Na página de cadastro de fotos eu tenho um script que busca o evento em um dropdown exibe o mesmo e cadastra a foto e o evento no banco, o único problema é que só estou conseguindo cadastrar uma foto por vez, e gostaria de gravar no banco renomeando as fotos: incluir_fotos.asp <html> <head> <title>.: Pop Som Sonoriza&ccedil;&atilde;o :. Incluir Fotos</title> <link rel="stylesheet" href="css/style.css" type="text/css" media="screen" /> <link rel="stylesheet" href="css/estilos.css" type="text/css" media="screen" /> </head> <body> <div align="left"> <p><font size="4">Inclus&atilde;o do Fotos</font></p> </div> <form method=post action="<%=Request.ServerVariables("script_name")%>"> <font size="4"></font> <table border=0 width="38%" align=left> <font size="4"> <% If IsEmpty( Request.Form("submit") ) Then %> </font> <tr> <td align=right valign=top><font face="Arial" size="2"> </td> <td align=left valign=top>&nbsp;</td> </tr> <tr> <td align=right valign=top>&nbsp;</td> <td align=left valign=top>&nbsp;</td> </tr> <tr> <td align=right valign=top>&nbsp;</td> <td align=left valign=top> <!-- #include file = "upload_funcoes.asp" --> <table> <form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data"> <tr> <td>&nbsp;</td> </tr> <tr> <td>Evento: <select name="id_evento" id="select"> <option value="0" selected >Selecione o evento</option> <% Set db = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\galeria_fotos.mdb" db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath Set oRs = Server.CreateObject("ADODB.RecordSet") oRs.CursorLocation = 2 'adUseServer oRs.CursorType = 3 'adOpenStatic sSQL="SELECT * FROM eventos " sSQL = sSQL & " ORDER BY nome_evento;" oRs.Open sSQL, db,,,&H0001 'adCmdText If oRs.Eof = False Then Do While oRs.Eof = False If CInt(vEntturma_id) = oRs("id_evento") Then s="selected='selected'" Else s="" %> <option value="<%=oRs("id_evento")%>" <%=s%>><%=oRs("nome_evento")%></option> <% oRs.MoveNext Loop End If oRs.Close Set oRs = Nothing %> </select> Foto:</td> <td><input type="file" name="foto" size="14"></td> </tr> <tr> <td colspan="2">&nbsp;</td> </tr> </form> <font size="4"> </font> </td> </tr> <tr> <td align=right valign=top>&nbsp;</td> <td align=left valign=top><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></td> </tr> <center> </center> </form> <div align="left"> <p> <% Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("id_evento")) <> "" AND Trim(Request.Form("foto")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\galeria_fotos.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath ComandoSQL = "INSERT INTO FOTOS (id_evento, foto)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("id_evento")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("foto")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %> <font face="Arial" size="2"> <br> Os dados foram enviados com sucesso! <br> <a href="incluir_fotos.asp"><b>Clique aqui</b></a> para continuar enviando fotos <% Else %> <font face="Arial" size="2"> </p> </div> <div align="left"><br> Atenção: Alguns dados necessário não foram preenchidos corretamente <br> <a href="java script:history.go(-1)"><b>Clique aqui</b></a> para voltar <% End If End If %> </div> </body> </html> Já tenho uma modelação da página de visualização de fotos, mas no momento ainda não tenho nada pronto para exibir as mesmas. galeria.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="css/estilos.css" type="text/css" media="screen" /> </head> <frameset rows="*" cols="265,*" frameborder="NO" border="0" framespacing="0"> <frame src="galeria_menu.asp" name="leftFrame" scrolling="NO" noresize> <frameset rows="91,*" cols="*" framespacing="0" frameborder="NO" border="0"> <frame src="galeria_topo.asp" name="topFrame" scrolling="NO" noresize> <frame src="galeria_fundo.asp" name="mainFrame"> </frameset> </frameset> <noframes><body> </body></noframes> </html> galeria_fundo.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="alternate stylesheet" type="text/css" href="../css/popsom.css" title="1024 x 768" /> <body bgcolor="#EBEBEB"><table width="49%" border="0"> <tr> <td colspan="4"><div align="center"><img width="400" height="276"></div></td> </tr> <tr> <td width="21%"><div align="center"></div></td> <td width="14%"><div align="right"><img src="../images/seta_esquerda.gif" width="31" height="31"></div></td> <td width="31%"><div align="center"><%=strToTImages%></div></td> <td width="34%"><img src="../images/seta_direita.gif" width="31" height="31"></td> </tr> <tr> <td colspan="4"><div align="center"></div></td> </tr> </table> </body> </html> galeria_menu.asp <%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Option Explicit%> <!--#include file="conexao.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#F0F0F0" text="#0066FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <div align="center"> <strong><font size="2" face="Arial, Helvetica, sans-serif"> Fotos</font></strong> </div> <!-- Programação e vizualização dos cadastros --> <div align="center"><a href="exibefoto.asp?foto=<%=objrs("id_foto")%>" target="exibe"><img src="fotos2/<%=objrs("foto")%>" width="75" height="56" border="0"></a> </div> </body> </html> galeria_topo.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="alternate stylesheet" type="text/css" href="../css/popsom.css" title="1024 x 768" /> </head> <body bgcolor="#EBEBEB"> <table width="49%" border="0"> <tr> <td colspan="2"><strong>Evento: </strong></td> </tr> <tr> <td colspan="2"><strong>Data: </strong></td> </tr> </table> </body> </html> Agora é só a gente se entender. Se puder ajudar, obrigado. Abraços. Cláudio Machado
  2. CMachado

    Galeria de fotos

    pergunta respondeu ao CMachado de CMachado em ASP

    Pô bareta, mas não teria como criar á partir do script deste link? http://forum.imasters.com.br/index.php?/to...p;#entry1645962 Lá estão todos os códigos do script só não estou conseguindo visualizar as fotos do evento. Você não teria nada ai pra poder ajudar a visulaizar as fotos? Obrigado
  3. CMachado

    Galeria de fotos

    pergunta respondeu ao CMachado de CMachado em ASP

    Ok Bareta, fiz as modificações e está perfeito, mas não abre as fotos ele mostra uma página que tenho chamada fotos.asp com o endereço fotos.asp?msg=28 Esta mensagem "msg=28" está no código mas acho que está errada? ou não? Repare bem no código: <!--#include file="conexao.asp"--> <% id_evento = request.form("txt_codigo") Sql = "Select nome_evento,foto,comenta From fotos where nome_evento='"&id_evento&"' Group by nome_evento,foto,comenta order by foto ASC" Set rs = Conexao.Execute(Sql) Sql3 = "Select nome_evento,foto,comenta From fotos where nome_evento='"&id_evento&"' Group by nome_evento,foto,comenta order by foto ASC" Set rs3 = Conexao.Execute(Sql3) Sql2 = "Select * From eventos where id_evento="&id_evento Set rs2 = Conexao.Execute(Sql2) %> <%IF rs.EOF Then%> <%Response.Redirect("fotos.asp?msg=28")%> <%Else%> <script language="javascript"> function apagar() { document.cad.reset(); } </script> <script language="javascript" type="text/javascript"> function submitonce(form1){ if (document.all||document.getElementById){ for (i=0;i<form1.length;i++){ var tempobj=form1.elements[i] if(tempobj.type.toLowerCase()=="submit") tempobj.disabled=true } setTimeout(document.form1.submit, 2) } else alert("Seu Internet Explorer é inferior a versão exigida") return false } </script> <script LANGUAGE="javascript"> <!-- começo browserName = navigator.appName; browserVer = parseInt(navigator.appVersion); ns3up = (browserName == "Netscape" && browserVer >= 3); ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4); function doPic(imgName) { if (ns3up || ie4up) { imgOn = ("" + imgName); document.getElementById("mainpic").src = imgOn; } } function doComments(coment) { document.getElementById("comenta").innerHTML = coment; } // fim --> </script> </head> <body bgcolor="#D2CFCF"> <center> <form action="#" method="post" name="cad"> <table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="5" background="imagens/images/teste_01.jpg" width="812" height="481"><div align="center"> <table width="686" border="0"> <tr> <td width="664"><div align="center"><span class="textocima"><strong>Visualização das fotos<br><%=rs2("nome_evento")%></strong></span><br> <br> </div></td> </tr> <tr> <td height="208"><div align="center"> <table width="690" height="168"> <tr> <td width="527"><center><img name="mainpic" id="mainpic" src="<%=rs("foto")%>" border=0 style="max-width:500px; _width:500px; max-height:300px; _height:300px;"></center></td> <td width="133"><div class="foto"><table> <tr> <td width="166"><% rs.MoveFirst while not rs.eof foto = rs("foto") comenta = rs("comenta")%></td></tr> <tr><td><a href="java script:doPic('<%=(foto)%>');doComments('<%=Server.HTMLEncode(comenta)%>')"><img src="<%=(foto)%>" border=0 width="80"></a></td> </tr> <tr><td height="10"><% rs.movenext wend %></td> </tr></table></div></td> </tr> </table></div></td> </tr> <tr> <td height="27"><center><table width="669" border="0"> <tr> <td width="663" height="27" id="comenta" name="comenta"><%=rs3("comenta")%></td> </tr> </table></center></td> </tr> </table> <br> </div></td> </tr> <tr> <td rowspan="2"> <img src="imagens/images/teste_02.jpg" width="262" height="117" alt=""></td> <td> <input type="image" name="envia" value="Confirmar" src="imagens/images/teste_03.jpg" width="80" height="80"></td> <td> <input type="image" name="limpa" value="Limpar" src="imagens/images/teste_04.jpg" width="92" height="80" border="0" onClick="apagar(); return false;"></td> <td> <a href="java script:history.back();"> <img src="imagens/images/teste_05.jpg" width="82" height="80" border="0" alt=""></a></td> <td rowspan="2"> <img src="imagens/images/teste_06.jpg" width="296" height="117" alt=""></td> </tr> <tr> <td colspan="3"> <img src="imagens/images/teste_07.jpg" width="254" height="37" alt=""></td> </tr> </table> </form></center> </body> </html> <%End IF%> Esta linha já veio no código que peguei, será que teria outra página que exibe o quê? Segue o link de onde tirei o código: http://forum.imasters.com.br/index.php?/to...p;#entry1645806
  4. CMachado

    Galeria de fotos

    pergunta respondeu ao CMachado de CMachado em ASP

    Ok, você estava certo, o código não estava buscando de nada, ou seja nenhuma informação foi passada. Fiz as alterações e agora tenho uma página chamada "fotos_visualiza_form.asp" com o campo TXT_EVENTO á qual chama a página "fotos_visualiza.asp" E na página "fotos_visualiza.asp" coloquei o request assim: id_evento = request.form("txt_codigo"). Resumindo, agora o erro que dá é este: Microsoft JET Database Engi Ok, você estava certo, o código não estava buscando de nada, ou seja nenhuma informação foi passada. Fiz as alterações e agora tenho uma página chamada "fotos_visualiza_form.asp" com o campo TXT_EVENTO á qual chama a página "fotos_visualiza.asp" E na página "fotos_visualiza.asp" coloquei o request assim: id_evento = request.form("txt_codigo"). Resumindo, agora o erro que dá é este: Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /popsom/fotos/novo/admin/fotos_visualiza.asp, line 8 o código da página fotos_visualiza.asp ficou assim: <!--#include file="conexao.asp"--> <% id_evento = request.form("txt_codigo") Sql = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC" Set rs = Conexao.Execute(Sql) Sql3 = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC" Set rs3 = Conexao.Execute(Sql3) Sql2 = "Select * From eventos where id_evento="&id_evento Set rs2 = Conexao.Execute(Sql2) response.write(SQL) response.end() %> <%IF rs.EOF Then%> <%Response.Redirect("fotos.asp?msg=28")%> <%Else%> <script language="javascript"> function apagar() { document.cad.reset(); } </script> <script language="javascript" type="text/javascript"> function submitonce(form1){ if (document.all||document.getElementById){ for (i=0;i<form1.length;i++){ var tempobj=form1.elements[i] if(tempobj.type.toLowerCase()=="submit") tempobj.disabled=true } setTimeout(document.form1.submit, 2) } else alert("Seu Internet Explorer é inferior a versão exigida") return false } </script> <script LANGUAGE="javascript"> <!-- começo browserName = navigator.appName; browserVer = parseInt(navigator.appVersion); ns3up = (browserName == "Netscape" && browserVer >= 3); ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4); function doPic(imgName) { if (ns3up || ie4up) { imgOn = ("" + imgName); document.getElementById("mainpic").src = imgOn; } } function doComments(coment) { document.getElementById("comentario").innerHTML = coment; } // fim --> </script> </head> <body bgcolor="#D2CFCF"> <center> <form action="#" method="post" name="cad"> <table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0"> <tr
  5. CMachado

    Galeria de fotos

    pergunta respondeu ao CMachado de CMachado em ASP

    Fiz alguma alterações conforme a galera do iMaster disse, mas continua dando o mesmo erro, segue o código: <!--#include file="conexao.asp"--> <% id_evento = request.form("id_evento") Sql = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC" Set rs = Conexao.Execute(Sql) Sql3 = "Select nome_evento,foto,comenta From fotos where id_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC" Set rs3 = Conexao.Execute(Sql3) Sql2 = "Select * From eventos where id_evento="&id_evento Set rs2 = Conexao.Execute(Sql2) response.write(SQL) response.end() %> <%IF rs.EOF Then%> <%Response.Redirect("fotos.asp?msg=28")%> <%Else%> <script language="javascript"> function apagar() { document.cad.reset(); } </script> <script language="javascript" type="text/javascript"> function submitonce(form1){ if (document.all||document.getElementById){ for (i=0;i<form1.length;i++){ var tempobj=form1.elements[i] if(tempobj.type.toLowerCase()=="submit") tempobj.disabled=true } setTimeout(document.form1.submit, 2) } else alert("Seu Internet Explorer é inferior a versão exigida") return false } </script> <script LANGUAGE="javascript"> <!-- começo browserName = navigator.appName; browserVer = parseInt(navigator.appVersion); ns3up = (browserName == "Netscape" && browserVer >= 3); ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4); function doPic(imgName) { if (ns3up || ie4up) { imgOn = ("" + imgName); document.getElementById("mainpic").src = imgOn; } } function doComments(coment) { document.getElementById("comentario").innerHTML = coment; } // fim --> </script> </head> <body bgcolor="#D2CFCF"> <center> <form action="#" method="post" name="cad"> <table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="5" background="imagens/images/teste_01.jpg" width="812" height="481"><div align="center"> <table width="686" border="0"> <tr> <td width="664"><div align="center
  6. CMachado

    Galeria de fotos

    uma questão postou CMachado ASP

    Galera copiei este código do iMasters, achei maneiro, só que está dando o seguinte erro? Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'evento='. /popsom/fotos/novo/admin/fotos_visualiza.asp, line 6 A estrutura da minha tabela he a seguinte? Tenho uma tabela EVENTOS: id_evento = autonumeração nome_evento = texto data_evento = texto local_evento = texto option_ativo = texto e tenho uma tabela FOTOS: id_foto = autonumeração foto = texto comenta = texto id_evento = texto caminho_foto = texto nome_evento = texto Onde pode estar o erro? fotos_visualiza.asp <!--#include file="conexao.asp"--> <% Sql = "Select nome_evento,foto,comentario From fotos where nome_evento="&id_evento&" Group by nome_evento,foto,comenta order by foto ASC" Set rs = Conexao.Execute(Sql) Sql3 = "Select nome_evento,foto,comenta From fotos where nome_evento="&id_evento&" Group by nome_evento,foto,comentario order by foto ASC" Set rs3 = Conexao.Execute(Sql3) Sql2 = "Select * From eventos where id_evento="&id_evento Set rs2 = Conexao.Execute(Sql2) %> <%IF rs.EOF Then%> <%Response.Redirect("fotos.asp?msg=28")%> <%Else%> <script language="javascript"> function apagar() { document.cad.reset(); } </script> <script language="javascript" type="text/javascript"> function submitonce(form1){ if (document.all||document.getElementById){ for (i=0;i<form1.length;i++){ var tempobj=form1.elements[i] if(tempobj.type.toLowerCase()=="submit") tempobj.disabled=true } setTimeout(document.form1.submit, 2) } else alert("Seu Internet Explorer é inferior a versão exigida") return false } </script> <script LANGUAGE="javascript"> <!-- começo browserName = navigator.appName; browserVer = parseInt(navigator.appVersion); ns3up = (browserName == "Netscape" && browserVer >= 3); ie4up = (browserName.indexOf("Microsoft") >= 0 && browserVer >= 4); function doPic(imgName) { if (ns3up || ie4up) { imgOn = ("" + imgName); document.getElementById("mainpic").src = imgOn; } } function doComments(coment) { document.getElementById("comentario").innerHTML = coment; } // fim --> </script> </head> <body bgcolor="#D2CFCF"> <center> <form action="#" method="post" name="cad"> <table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0"> <tr> <td colspan="5" background="imagens/images/teste_01.jpg" width="812" height="481"><div align="center"> <table width="686" border="0"> <tr> <td width="664"><div align="center"><span class="textocima"><strong>Visualização das fotos<br><%=rs2("evento")%></strong></span><br> <br> </div></td> </tr> <tr> <td height="208"><div align="center"> <table width="690" height="168"> <tr> <td width="527"><center><img name="mainpic" id="mainpic" src="<%=rs("foto")%>" border=0 style="max-width:500px; _width:500px; max-height:300px; _height:300px;"></center></td> <td width%
  7. CMachado

    Motangem De Sistema De Fotos

    uma questão respondeu CMachado em ASP

    DackAle, peguei este código e tentei montar o upload como você indicou, mas está dando o erro abaixo: Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /popsom/fotos/novo/admin/incluir_fotos.asp, line 18 Têm cmo você arrumar pra mim? Eis o código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <form name="cad" action="upload_form2.asp" method="post" enctype="multipart/form-data"> <% Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "banco\galeria_fotos.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath SQL="SELECT TOP 1 * FROM eventos ORDER BY id_evento DESC" RS.Open SQL,Conexao id_foto=rs("id_evento") SQL="SELECT TOP 1 * FROM evento ORDER BY id_evento DESC" RS.Open SQL,Conexao ID_FOTO=RS("id_evento") For Each File in Upload.Files foto = File.filename SQL2="INSERT into fotos (id_foto,foto,comenta) VALUES ('" & id_foto & "','" & foto & "','" & comenta & "')" RS2.Open SQL2,Conexao Next %> <body> <table width="479" border="0"> <tr> <td width="120" class="texto11">Foto :</td> <td width="349"><input name="foto" type="file" class="texto10" size="14"> </td> </tr> <tr> <td height="227" class="texto11">Comentário : </td> <td><textarea name="comenta" cols="82" rows="18" class="texto10" id="comenta"></textarea> </td> </tr> </table> </body> </html>
  8. CMachado

    Confirmação Ativa De Cadastro

    uma questão respondeu CMachado em ASP

    Ai vai o script de confirmação.... Lembramdo que aqui estou usando o campo Ativo = 1 "Usuario ativado" Ativo = 0 "Usuario não ativado" Espero que ajude... <!--#include file="conexao.asp"--> <% ID_Usuario = request.querystring("id_usuario") Dim conexao call abre_conexao sql = "select * from Cadastro where ID_Usuario = " & ID_Usuario set tab = Conexao.Execute(sql) if tab("Ativo") = 1 then response.write "Seu cadastro já está ativo. <br><br><a href='http://www.seusite.com/login.asp'>Clique aqui para efetuar login !!</br></br>" elseif tab("Ativo") = 0 then Ativo = 1 sql_atualiza = "UPDATE Cadastro SET " sql_atualiza = sql_atualiza & "Ativo = " & Ativo & "" sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario set tab_atualiza = Conexao.Execute(sql_atualiza) response.write "Seu cadastro foi ativado com sucesso. Obrigado.<br><br><a href='http://www.seusite.com/login.asp'>Clique aqui para efetuar login !!</br></br>" end if %>
  9. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    ACHO QUE FALTAVA O SARAVÁ MEU PAI OXALÁ Eu havia dito que seu código não estava igual ao meu, faltavam algumas linhas... Muito obrigado mesmoooooo. pela sua paciência.... Adorei abrir um tópico que procurei muito aqui no fórum e não encontrei, muitas pessoas não encontravam respostas e finalmente acho será muito útil... OBRIGADÃO MESMO. ANDREIA você FOI UM DOCE. tópico FECHADO...
  10. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    já fiz isso olha o que acontece... o problema acho que esta na hora de verificar se o usuario existe no banco... Microsoft VBScript runtime error '800a01a8' Object required: '' /forms/login/Cadastra_mail/confirmacao_ativa1.asp, line 29 tipo... if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" response.end end if
  11. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    Andreia beleza !!! show de bola... está confirmando o e-mail conforme eu queria. só que na hora do cadastro está dando erro na linha 30.. conforme código abaixo, acho que no seu teste você deve ter modificado alguma linha a mais e não postou para mim, posta todo o código que deu certo... sou um pouco leigo em ASP. Microsoft VBScript runtime error '800a000d' Type mismatch: 'rs' /forms/login/Cadastra_mail/confirmacao_ativa1.asp, line 30 confirmacao_ativa1.asp <html> <head> <title>GPSOM - Grupo PopSom - Cadastros</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Dim conexao, cnpath Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\confirmacao_ativa.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath %> <% nome = request.form("nome") email = request.form("email") ip = request.form("ip") data = request.form("data") ativo = request.form("ativo") sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" set sql = conexao.execute(sql) sql2 = "select * from cadastro where Email = '"& Email &"'" set tab2 = Conexao.Execute (sql2) id_usuario= rs("id_usuario") if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" response.end end if HTML = HTML & "<html>" HTML = HTML & "<head>" o erro está nesta parte... acho que em id_usuario= rs("id_usuario") sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" set sql = conexao.execute(sql) sql2 = "select * from cadastro where Email = '"& Email &"'" set tab2 = Conexao.Execute (sql2) id_usuario= rs("id_usuario") if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" response.end end if só falta issp para fecharmaos... não sei como te agradecer.
  12. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    Andreia já postei todo o código, mas tudo bem se é para resolver vou postar todo novamente... conexao.asp <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\confirmacao_ativa.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> cadastra_mail.asp <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <p>&nbsp;</p> <form name="form1" method="post" action="confirmacao_ativa1.asp"> <table width="574" border="0" align="center" bgcolor="#eaeaea"> <tr> <td colspan="2"> <div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b> <input type="hidden" name="ip" value="<%=Request.ServerVariables("REMOTE_ADDR")%>"> Receba nosso boletim <input type="hidden" name="data" value="<%=now%>"> <input type="hidden" name="ativo" value="0"> </b></font></div> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="283"> <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Nome:</font></div> </td> <td width="281"> <input type="text" name="nome" size="40"> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="283"> <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Email:</font></div> </td> <td width="281"> <input type="text" name="email" size="40"> </td> </tr> <tr> <td colspan="2"> <div align="center"> <input type="submit" name="Submit" value="Cadastrar"> </div> </td> </tr> </table> </form> <p align="center">&nbsp;</p> </body> </html> confirmacao_ativa1.asp <html> <head> <title>GPSOM - Grupo PopSom - Cadastros</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Dim conexao, cnpath Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\confirmacao_ativa.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath %> <% nome = request.form("nome") email = request.form("email") ip = request.form("ip") data = request.form("data") ativo = request.form("ativo") strsql = "select * from cadastro where Email = '"& Email &"'" set rs = conexao.execute(strsql) id_usuario= rs("id_usuario") if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" response.end end if sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" conexao.execute(sql) HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Confirmação de Cadastro</title>" HTML = HTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" HTML = HTML & "</head>" HTML = HTML & "" HTML = HTML & "<bgcolor='#ffffff' text='#ffffff'>" HTML = HTML & "<font face='verdana' size='2'>Você solicitou o cadastro no Portal GPSOM através do ip "& ip &" em "& data &"<br> Para confirmar o seu cadastro </font><a href='http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email="&email&"&id_usuario="&id_usuario&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>" HTML = HTML & "</body>" HTML = HTML & "</html>" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "GPSOM - Grupo PopSom" Mailer.FromAddress = "webmaster@gpsom.com" Mailer.RemoteHost = "smtp.infolink.com.br;smtpdom.infolink.com.br" Mailer.AddRecipient nome,email Mailer.ContentType = "text/html"' formatação html Mailer.Subject = "Confirmação de Cadastro" Mailer.BodyText = HTML Mailer.SendMail Set Mailer = Nothing conexao.close set conexao = nothing %> <p><font size="2" face="Verdana, Arial, sans-serif">Prezado <b><%=nome%></b> .</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Seu cadastro ainda n&atilde;o foi efetivado , para confirm&aacute;-lo , acesse o email <%=vemail%> e clique sobre o link para confirmar este cadastro.</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Este politica &eacute; feita , para que ningu&eacute;m utilize o seu email de m&aacute; f&eacute;. </font></p> <p><font face="Verdana, Arial, sans-serif" size="2">Equipe Anti Spam - GPSOM</font></p> <p>&nbsp;</p> </body> </html> confirma.asp <title>GPSOM - Grupo PopSom - Cadastros</title> <!--#include file="conexao.asp"--> <% ID_Usuario = request.querystring("id_usuario") Dim conexao call abre_conexao sql = "select * from Cadastro where ID_Usuario = " & ID_Usuario set tab = Conexao.Execute(sql) if tab("Ativo") = 1 then response.write "você já foi autenticado" elseif tab("Ativo") = 0 then Ativo = 1 sql_atualiza = "UPDATE Cadastro SET " sql_atualiza = sql_atualiza & "ID_Usuario = " & ID_Usuario & ", " sql_atualiza = sql_atualiza & "Ativo = " & Ativo & "" sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario set tab_atualiza = Conexao.Execute(sql_atualiza) response.redirect "ok.asp" end if %> ai está e só analisar e ver onde está o erro, só falta o banco de dados, mas se quiser posto aqui os detalhes do banco. OK Obrigado pela sua paciência.
  13. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    não adianta o código insiste em dar o erro no mesmo lugar linha 10, e o link da mensagem está pegando o email mas não o id_usuario.. veja o link... http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email=contat@gpsom.com&id_usuario= falta algo... eu não me importo se tiver que pegar pelo id_usuario ou pelo email, só quero que valide o cadastro, mais nada.
  14. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    É Andreia está dificil, eu fiz teste de tudo quanto foi jeito, mas não vai nem à pau. Quando eu coloco a linha que você enviou . . . Para confirmar o seu cadastro </font<a href="http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email=<%= email %>&id_usuario=<%= id_usuario %>" target="_blank"><b>Clique... no confirmacao_ativa1.asp dá erro desta linha inteira, e o erro do confirma.asp continua do mesmo jeito. Tem que haver uma solução.... Não quero desistir. Obrigado
  15. CMachado

    Ativar Cadastro Por E-mail

    pergunta respondeu ao CMachado de CMachado em ASP

    Andreia obrigado pela sua paciencia, já estamos quase chegando la, vou postar todo o codigo aqui e verifique por favor onde esta errado. cadastra_mail.asp <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <p>&nbsp;</p> <form name="form1" method="post" action="confirmacao_ativa1.asp"> <table width="574" border="0" align="center" bgcolor="#eaeaea"> <tr> <td colspan="2"> <div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b> <input type="hidden" name="ip" value="<%=Request.ServerVariables("REMOTE_ADDR")%>"> Receba nosso boletim <input type="hidden" name="data" value="<%=now%>"> <input type="hidden" name="ativo" value="0"> </b></font></div> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="283"> <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Nome:</font></div> </td> <td width="281"> <input type="text" name="nome" size="40"> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="283"> <div align="right"><font size="2" face="Verdana, Arial, sans-serif">Email:</font></div> </td> <td width="281"> <input type="text" name="email" size="40"> </td> </tr> <tr> <td colspan="2"> <div align="center"> <input type="submit" name="Submit" value="Cadastrar"> </div> </td> </tr> </table> </form> <p align="center">&nbsp;</p> </body> </html> confirmacao_ativa1.asp <html> <head> <title>GPSOM - Grupo PopSom - Cadastros</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Dim conexao, cnpath Set Conexao = Server.CreateObject("ADODB.Connection") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-3) & "dados\confirmacao_ativa.mdb" Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath %> <% nome = request.form("nome") email = request.form("email") ip = request.form("ip") data = request.form("data") ativo = request.form("ativo") ID_Usuario = request.form("ID_Usuario") strsql = "select * from cadastro where Email = '"& Email &"'" set rs = conexao.execute(strsql) if not rs.eof then Response.write "Seu email já encontra-se em nossa base de dados <br><br><a href='javascript:history.go(-1)'>Voltar</a>" response.end end if sql = "insert into cadastro (nome,email,ip,data,ativo) values ('"& nome &"','"& email &"','"& ip &"','"& data &"', '"& ativo &"')" conexao.execute(sql) HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Confirmação de Cadastro</title>" HTML = HTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" HTML = HTML & "</head>" HTML = HTML & "" HTML = HTML & "<bgcolor='#ffffff' text='#ffffff'>" HTML = HTML & "<font face='verdana' size='2'>Você solicitou o cadastro no Portal GPSOM através do ip "& ip &" em "& data &"<br> Para confirmar o seu cadastro </font><a href='http://www.gpsom.com/forms/login/cadastra_mail/confirma.asp?email="&email&"' target='_blank'><b>Clique Aqui</b></a></center></font></td></tr></table>" HTML = HTML & "</body>" HTML = HTML & "</html>" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "GPSOM - Grupo PopSom" Mailer.FromAddress = "webmaster@gpsom.com" Mailer.RemoteHost = "smtp.infolink.com.br;smtpdom.infolink.com.br" Mailer.AddRecipient nome,email Mailer.ContentType = "text/html"' formatação html Mailer.Subject = "Confirmação de Cadastro" Mailer.BodyText = HTML Mailer.SendMail Set Mailer = Nothing conexao.close set conexao = nothing %> <p><font size="2" face="Verdana, Arial, sans-serif">Prezado <b><%=nome%></b> ,</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Seu cadastro ainda n&atilde;o foi efetivado , para confirm&aacute;-lo , acesse o email <%=vemail%> e clique sobre o link para confirmar este cadastro.</font></p> <p><font size="2" face="Verdana, Arial, sans-serif">Este politica &eacute; feita , para que ningu&eacute;m utilize o seu email de m&aacute; f&eacute;. </font></p> <p><font face="Verdana, Arial, sans-serif" size="2">Equipe Anti Spam - GPSOM</font></p> <p>&nbsp;</p> </body> </html> confirma.asp <title>GPSOM - Grupo PopSom - Cadastros</title> <!--#include file="conexao.asp"--> <% ID_Usuario = request.form("ID_Usuario") Dim conexao call abre_conexao sql = "select * from Cadastro where ID_Usuario = " & ID_Usuario set tab = Conexao.Execute(sql) if tab("Ativo") = 1 then response.write "você já foi autenticado" elseif tab("Ativo") = 0 then Ativo = 1 sql_atualiza = "UPDATE Cadastro SET " sql_atualiza = sql_atualiza & "ID_Usuario = " & ID_Usuario & ", " sql_atualiza = sql_atualiza & "Ativo = " & Ativo & "" sql_atualiza = sql_atualiza & " WHERE ID_Usuario = " & ID_Usuario set tab_atualiza = Conexao.Execute(sql_atualiza) response.redirect "ok.asp" end if %> Pelo amor de Deus veja o que esta errado. este he o erro que da... Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'email ='. /forms/login/cadastra_mail/confirma.asp, line 10 Obrigado
×
×
  • Criar Novo...