Ir para conteúdo

POWERED BY:

Arquivado

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

cmachado

Galeria de fotos

Por , em ASP Clássico

Recommended Posts

cmachado    0

cmachado
Postado

Galera estou com este código que peguei aqui no fórum, se não me engano foi do Dark0, fiz algumas modificações, mas está dando este erro:

 

Microsoft JET Database Engine erro '80040e14'

 

Erro de sintaxe (operador faltando) na expressão de consulta 'campanha='.

 

/popsom/fotos/novo/fotos2/fotos_visualiza.asp, line 18

 

Segue o código

 

fotos_visualiza.asp

 


<%
	Set Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 

	Set url_Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	url_Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 
	
%>


<%

Sql = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs = Conexcao.Execute(Sql)

Sql3 = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs3 = Conexcao.Execute(Sql3)

Sql2 = "Select * From evento where cod_campanha="&cod_campanha
Set rs2 = Conexcao.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="133"><div class="foto"><table>
<tr>
<td width="166"><% rs.MoveFirst
while not rs.eof
foto = rs("foto")
Comentario = rs("comentario")%></td></tr>
<tr><td><a href="java script:doPic('<%=(foto)%>');doComments('<%=Server.HTMLEncode(Comentario)%>')"><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="comentario" name="comentario"><%=rs3("comentario")%></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%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

repare em cod_campanha você esta chamando uma variável com ela... porém essa variável não tem valor criado do tipo...

 

cod_campanha = "acao"

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

repare em cod_campanha você esta chamando uma variável com ela... porém essa variável não tem valor criado do tipo...

 

cod_campanha = "acao"

Não entendí?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

repare por exemplo aqui

 

Sql2 = "Select * From evento where cod_campanha="&cod_campanha

 

repare aqui cod_campanha="&cod_campanha desta forma você esta dando um where na coluna cod_campanha que por sua vez esta na tabela evento, desta forma você chama a variável que por sinal se chama cod_campanha, porém no seu code você não especificou o valor desta variável, esta chamando sem a mesma ter sido criado e com isso sem valor, logo dara erro pois estara buscando nada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Cara postei o código errado, o certo é este aqui:

 


<%
	Set Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 

	Set url_Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	url_Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 
	
%>


<%

Sql = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs = Conexcao.Execute(Sql)

Sql3 = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs3 = Conexcao.Execute(Sql3)

Sql2 = "Select * From evento where cod_campanha="&cod_campanha
Set rs2 = Conexcao.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="133"><div class="foto"><table>
<tr>
<td width="166"><% rs.MoveFirst
while not rs.eof
foto = rs("foto")
Comentario = rs("comentario")%></td></tr>
<tr><td><a href="java script:doPic('<%=(foto)%>');doComments('<%=Server.HTMLEncode(Comentario)%>')"><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="comentario" name="comentario"><%=rs3("comentario")%></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%>

Veja se pode ser mais explícito nas respostas, pois sou novato em ASP..

Obrigado pela atenção dispensada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este erro geralmente pode ser , erro de ortografia verifique se algum nome esta errado . pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Velho mais explícito é impossível

 

repare nas suas querys sql...

 

Sql = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs = Conexcao.Execute(Sql)

Sql3 = "Select evento,foto,comentario From fotos where evento="&cod_campanha&" Group by evento,foto,comentario order by foto ASC"
Set rs3 = Conexcao.Execute(Sql3)

Sql2 = "Select * From evento where cod_campanha="&cod_campanha
Set rs2 = Conexcao.Execute(Sql2)

note isso

 

"&cod_campanha&"

isso é uma variavel que tem que ser definida, porém o valor que tem que ter lá é o necessário para informar a query o que deve fazer.

 

A variável se define da seguinte maneira.

 

cod_campanha = "conteudo"

porém o conteúdo desta variável é você que tem que ver o que vai ser, em dois sql... ele da um where na coluna evento da tabela fotos, no outro ele da um where na coluna cod_campanha da tabela evento.

 

Da maneira que esta fazendo não esta se passando nada por isso o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Só que existe dados em todos os campos, veja a tabela que faço o cadastro do evento e upload das fotos:

 


<html>
<head>
<title>FOTOS</title>
</head>
<body>
<form name="cad" action="upload_form2.asp" method="post" enctype="multipart/form-data">

<table width="479" border="0">
                                <tr>
                                  <td width="75" class="texto11">Foto :</td>
                                  <td colspan="2"><input name="foto" type="file" class="texto10" size="60"></td>
                                </tr>
                                <tr>
                                  <td class="texto11">Evento:</td>
                                  <td width="360"><input name="evento" type="text" id="evento" size="60"></td>
                                  <td width="181">Cód. Evento: 
                                  <input name="cod_campanha" type="text" id="cod_campanha" size="6" maxlength="2"></td>
                                </tr>
                                <tr>
                                  <td class="texto11">Data:</td>
                                  <td colspan="2"><input name="data" type="text" id="data" size="16" maxlength="10"></td>
                                </tr>
                                <tr>
                                  <td height="227" class="texto11">Comentário : </td>
                                  <td colspan="2"><textarea name="comentario" cols="85" class="texto10" id="comentario"></textarea></td>
                                </tr>
                        </table>
<input type="submit" name="Submit" value="Enviar" />
</body>
</html>

o Código acima é de cadastro, segue abaixo o que faz o upload:

 

upload_form2.asp

 


<!-- #include file = "upload_funcoes.asp" -->
<%
Dim Conexcao
' Chamando Funções, que fazem o Upload funcionar

MAX_UPLOAD_SIZE = cDbl("200000") '---aki você define seu limite.. neste caso está aproximadamente 200KB

enviado = cDbl(Request.ServerVariables("CONTENT_LENGTH"))
if not enviado < MAX_UPLOAD_SIZE then
  Response.Redirect("fotos.asp?msg=38")
  response.end
end if

byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
cod_campanha = UploadRequest.Item("cod_campanha").Item("Value")
evento = UploadRequest.Item("evento").Item("Value")
foto = UploadRequest.Item("foto").Item("Value")
data = UploadRequest.Item("data").Item("Value")
comentario = UploadRequest.Item("comentario").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("fotos")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "fotos" + nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados

	Set url_Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	url_Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 

	Set Conexcao = Server.CreateObject("ADODB.Connection")
	cnpath=server.mappath("/")
	cnpath=left(cnpath, len(cnpath)-3) & "banco\fotos.mdb"
	Conexcao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath 
	
' cadastra os dados no banco de dados
        
sSQL = "INSERT INTO fotos(cod_campanha,evento,foto,data,comentario,ultima_alteracao) VALUES ('"& cod_campanha &"','"& evento &"','"& cfoto &"','"& data &"','"& comentario &"','"& Session("login") &"')"
        Conexcao.Execute sSQL,intRetorno

set RS=nothing

Set Conexcao=nothing

Response.redirect("fotos.asp?msg=1")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

pois é recupere por request.form e monte a variavel

 

coloque no topo desse code que estamos discutindo isso

 

cod_campanha = request.form("cod_campanha")

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

É já mexi em tudo que tinha que mexer e não resolvi, isso porque eu só queria ver este código rodando, iria pedir ajuda ainda para criar pastas, mas já ví que este código é muito complicado, vou ver outro e se tiver ajuda posto aqui, valeu galera.

 

Obrigado, mas não resolvi o problema.

 

Pode encerrar o tópico, obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

como esta o código atualmente ? ele esta gerando o mesmo número de erro ?!

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