Elo

Boa tarde!


Tenho uma arquivo em asp que mostra as fotos as informações de um imóvel e suas fotos.

Porém no final das fotos e informações coloquei um botão chamado inicio.

Queria fazer com que esse botão ao ser clicado chamasse esse mesmo arquivo, porém dessa vez mostrando o primeiro registro da tabela.

<a href="foto.asp?id=<%=rs("id")%>"><strong><u>INICIO</u></strong></a>

Já tentei colocar o comando

rs.movefirst antes dessa linha porém não consegui.

Tentei colocar ele dentro da linha mais dá erro.

<a href="foto.asp?id=<%=rs.movefirst("id")%>"><strong><u>INICIO</u></strong></a>


O que posso fazer?

Desde já agradeço

Eloisa Dias

Bom dia amigos!

Meu servidor passou a usar Painel de controle (Plesk).

Depois disso meus arquivos que fazem upload pararam de funcionar tanto para inclusão quanto para alteração.

Erro que tá dando é esse:

####################################################################################################

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

####################################################################################################



O que pode estar acontecendo, já que eu não modifiquei nada?

Me falaram que pode ser problema nas permissões do dentro do Plesk, mas até agora não encontrei nada que possa fazer o upload voltar a funcionar.



Desde já agradeço,

Elô

Bom dia amigos!

Não consigo usar o left join na minha consulta. Dá o seguinte erro:

Microsoft JET Database Engine (0x80040E14)
Sem suporte para a expressão de associação.



Meu código é o seguinte:

strSQL = "Select * "
strSQL = strSQL & "FROM carro_empresa "
strSQL = strSQL & "left JOIN (tbl_empresa left JOIN logomarca on tbl_empresa.nome_user = logomarca.nome_user) "
strSQL = strSQL & "on carro_empresa.nome_user = logomarca.nome_user "
strSQL = strSQL & "where carro_empresa.nome_user = '"& session("login") &"'"

O que estou fazendo de errado?

Desde já agradeço!

Eloisa Dias

Olá amigos.

Estou fazendo um site de venda de automóveis. Na 1ª página tem um select que faz a pesquisa das caracteristicas do automóvel. Apartir dessa pesquisa eu caio numa 2ª página que faz a listagem das ofertas de automóveis que se enquadram na minha pesquisa. Se eu clicar em qualquer item dessa listagem eu vou para uma 3ª página que tem as informações sobre um dos itens que eu escolhi para visualizar.
Até aí beleza... Porém na 3ª página eu coloquei um link para voltar para a 2ª página onde estão novamente os dados da pesquisa, mas não estou conseguindo fazer com que ela volte com os dados anteriormente pesquisados. Já tentei fazer através de session e não ocnsegui.

Alguém teria uma luz?

Eis o código da 2ª pagina(busca_carro):

<!--#include file="adm_site/cone.asp" -->
<%
set marca = request.Form("Make")
set modelo = request.Form("Team")
set ano1 = request.Form("ano1")
set ano2 = request.Form("ano2")
set preco1 = request.Form("preco1")
set preco2 = request.Form("preco2")
set tab = server.CreateObject("adodb.recordset")

tab.open "Select * from tbl_top where nome_marca = '"& modelo &"'",conexao
if not tab.eof then
with tab
tot1 = .fields(1)
tot = tot1 + 1
tab.close
end with

tab.open ("update tbl_top set cont = '"& tot &"' where nome_marca='"& modelo &"'"),conexao
'tab.close
else
conexao.execute "insert into tbl_top values('"& modelo &"','1')"
tab.close
end if
'tab.close

if ano1="0" then
sql = ""
else
sql = "and ano_fab > '"& ano1 &"' and ano_fab < '"& ano2 &"'"
end if
if valor1 = 0 then
sql2=""
else
sql2 = "and valor >'"& preco1 &"' and valor < '"& preco2 &"'"
end if

tab.open "select * from tbl_carro where marca = '"& marca &"' and modelo = '"& modelo &"' "& sql &" "& sql2, conexao

%>
<% if not tab.eof then

with tab
while not.eof

response.Write(i &"<a href='ver_carro.asp?id="& .fields(0) &"'>Vendedor: <b>"& .fields(1) &"</b> Preço: <b>"& .fields(11) &"</b></a><BR><br><hr color=#257D26 size'1' width='70%'><br><br>")

.movenext
wend
end with
else
response.Write("<br><br><font face='verdana' size=2>Desculpe, mas nenhum carro foi encontrado. Preencha todos os campos da busca e tente novamente, obrigado.<br><a href='index.asp'>Voltar para a página de busca</a> ")'& marca)
'response.Write(" "& modelo)
'response.Write(" "& ano1)
'response.Write(" "& ano2)
'response.Write(" "& preco1)
'response.Write(" "& preco2)

end if%>



Agora o da 3ª página(ver_carro.asp):

<%
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("bd_arvvor.mdb")

id = request.querystring("id")

Set FSO= Server.CreateObject("Scripting.FileSystemObject")
strSQL = "SELECT * FROM tbl_carro where cod_carro = "&id


Set rs = conexao.Execute(strSQL)


If rs.EOF or rs.BOF Then
Response.Write "<font face=Verdana size=2><strong> Não foi encontrado nenhum registro.</strong></font>"

Else

Do While not rs.EOF
intCounter=intCounter+1
intMod=intcounter mod 2
if intmod=0 then
rcolor = "#c0c0c0"
elseif intmod=1 then
rcolor = "#FFFFFF"
end if

%>

<table width="50%" border="0" align="center" cellpadding="0" cellspacing="5" class="borda">
<tr bgcolor="#99CC99">
<td colspan="2">
<div align="center"><strong>DADOS DO VENDEDOR</strong></div></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td width="51%"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><span class="style3">Nome
do vendedor </span></font></strong></td>
<td width="49%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><span class="style3"><%=rs("nome")%></span></font></td>
</tr>

.
.
.
</table>

<%
rs.MoveNext
Loop
End If
rs.close
set rs = nothing
set conexao = nothing

%>


<table width="75%" border="0">
<tr>
<td>&nbsp;</td>
<td><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="busca_carro.asp">Voltar
a consulta</a> </strong></font></div></td>
</tr>
</table>


Desde já agradeço!

Eloisa Dias

Boa noite amigos!

Estou com o seguinte problema.... No meu micro eu consigo fazer o upload de 4 imagens juntas cada uma com mais ou menos 57kb.

Porém quando o site está no ar só consigo fazer o upload de 3 fotos apenas, se eu tentar fazer o upload de 4 imagens dá o seguinte erro:

Request object error 'ASP 0104 : 80004005'

Operation not Allowed

/imobiliaria/upload_form2.asp, line 161


Não sei mais o que fazer, já passei um email para o servidor e até agora eles tb não encontraram o erro.

Segue abaixo meu código:


<!-- #include file = "upload_funcoes.asp" -->

<%

' Chamando Funções, que fazem o Upload funcionar

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

' Recuperando os Dados Digitados ----------------------
cod = UploadRequest.Item("cod").Item("Value")
nome = UploadRequest.Item("nome").Item("Value")
localizacao = UploadRequest.Item("localizacao").Item("Value")
informacao = UploadRequest.Item("informacao").Item("Value")
terreno = UploadRequest.Item("terreno").Item("Value")
construcao = UploadRequest.Item("construcao").Item("Value")
preco = UploadRequest.Item("preco").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto3").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto4").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")
caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
'nome_foto = Replace(caminho_foto,".","_"& rndit &".")

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))


' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")
foto2 = UploadRequest.Item("foto2").Item("Value")
foto3 = UploadRequest.Item("foto3").Item("Value")
foto4 = UploadRequest.Item("foto4").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagem/")

nome_foto = "/"&nome_foto
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4

' pasta + nome dos arquivos

cfoto = "imagem" + nome_foto
cfoto2 = "imagem" + nome_foto2
cfoto3 = "imagem" + nome_foto3
cfoto4 = "imagem" + nome_foto4

' 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

if foto2 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(foto2)

MyFile.Write chr(AscB(MidB(foto2,i,1)))

Next

MyFile.Close

end if

if foto3 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(foto3)

MyFile.Write chr(AscB(MidB(foto3,i,1)))

Next

MyFile.Close

end if



if foto4 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

For i = 1 to LenB(foto4)

MyFile.Write chr(AscB(MidB(foto4,i,1)))

Next

MyFile.Close

end if


' Conecta-se ao Banco de Dados

'url_conexao = Server.MapPath("dados.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("dados.mdb")



' cadastra os dados no banco de dados

sql = "Insert into fotos (cod,nome,localizacao,informacao,terreno, construcao,preco,foto,foto2,foto3,foto4) values ('"& cod &"','"& nome &"','"& localizacao &"','"& informacao &"','"& terreno &"','"&construcao &"','"& preco &"','"& cfoto &"', '"& cfoto2 &"','"& cfoto3 &"','"& cfoto4 &"')"

Conexao.Execute(sql)



' Mostra Mensagem de Confirmação na Tela

Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"



' Redireciona após 5 segundos

response.write "<br><br>Você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=default.asp'/>"

%>




<br>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<p>&nbsp;</p>



</body>
</html>
<%
end if
%>


O que pode ser?

Desde já agradeço!

Eloisa Dias