Sanches-Pg

Boa noite pessoal...

Estou tendo uma pequena dificuldade, vocês poderiam me ajudar a resolver.

Esta quase tudo funcionando, as imgens estão sendo hospedadas, esta renomeando direitinho, mas no bd esta gravando apenas uma imagem em todos os campos... ou seja onde é adicionado um novo produto as imagens ficam repetidas.

O que está faltando?

Aqui esta o meu código:

<%



'objRSr("Email") = Upload.Form("Email")

SET Conexao = Server.CreateObject("AdoDB.Connection")
Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\web\localuser\athelier\www\dados\dados.mdb"


SET UPLOAD = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.Save "D:\web\localuser\athelier\www\athelier\produtos\"


For Each File in Upload.Files
foto = File.FileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next

' Recuperando os Dados Digitados ----------------------
gep = Upload.Form("Categoria")
Produto = Upload.Form("Produto")
Codigo = Upload.Form("Codigo")
Valor = Upload.Form("Valor")
Minidescricao = Upload.Form("Descricao")


SET RS = Server.CreateObject("AdoDB.RecordSet")
Conexao.Execute("INSERT INTO produtos (gep,Codigo,Produto,Valor,Minidescricao,foto,foto1p,foto1g,foto2p,foto2g,foto3p,foto3g) VALUES ('"& gep &"' , '"& Codigo &"' , '"& Produto &"' , '"& Valor &"' , '"& Minidescricao &"' , 'produtos/"& foto & "' , 'produtos/"& foto1p &"' , 'produtos/"& foto1g &"' , 'produtos/"& foto2p &"' , 'produtos/"& foto2g &"' , 'produtos/"& foto3p &"' , 'produtos/"& foto3g &"')")
SET RS = Nothing

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
response.write "não é uma imagem valida"
End If
Next

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!"

' Redireciona após 5 segundos
response.write "<br><br>Vc será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>"
%>

Boa tarde a todos!

Tenho este codigo da minha galeria de Fotos, ele funciona perfeitamente, porém eu estou tentando colocar um campo com o titulo da galeria, mas não estou tendo sucesso, pois toda vez que coloco ele se duplica juntamente com a galeria... Alguém pode me ajudar?

<%
Dim objRs, x, strquantidade, data
data = request.QueryString("data")
Set objRS = Server.CreateObject("Adodb.recordset")
call  Abreconexao
strquantidade = request.querystring("quantia")
session("quantia") = strquantidade
if session("quantia") = "" then
  objrs.pagesize = 100
End if
  objRs.open "Select * From galeria where data = '"&data&"' order by id" , Objconn, 3, 3 


  while  NOT objRs.EOF
%>
								  
								  <a href=<%=objrs("Foto")%> class="highslide" onClick="return hs.expand(this)"> <img src=<%=objrs("Minifoto")%> alt="AS"
		title="Clique sobre a imagem para amplia-la" /></a>  
										<div class="highslide-caption"> <%=objrs("Evento")%> </div>
		<!-- Repetionion of the above --><span style="line-height:25%; margin-top:0; margin-bottom:0;">
		<%
if x mod 3 = 0 then

end if
x = x + 1
ObjRs.movenext
wend
%>

Obrigado pela ajuda...

Encontrei onde eu estava errando

Obrigado

Boa tarde a todos!

Tenho este codigo da minha galeria de Fotos, ele funciona perfeitamente, porém eu estou tentando colocar um campo com o titulo da galeria, mas não estou tendo sucesso, pois toda vez que coloco ele se duplica juntamente com a galeria... Alguém pode me ajudar?

<%  
Dim objRs, x, strquantidade, data  
data = request.QueryString("data")  
Set objRS = Server.CreateObject("Adodb.recordset")  
call  Abreconexao  
strquantidade = request.querystring("quantia")  
session("quantia") = strquantidade  
if session("quantia") = "" then  
  objrs.pagesize = 40  
End if  
  objRs.open "Select * From galeria where data = '"&data&"' order by id" , Objconn, 3, 3   
  
  
  while  NOT objRs.EOF  
%>  
									
								  <a href=<%=objrs("Foto")%> class="highslide" onclick="return hs.expand(this)"> <img src=<%=objrs("Minifoto")%> alt="AS"  
				title="Clique sobre a imagem para amplia-la" /></a>	
										<div class="highslide-caption"> <%=objrs("Evento")%> </div>  
		<span style="line-height:25%; margin-top:0; margin-bottom:0;">  
		<%  
if x mod 3 = 0 then  
  
end if  
x = x + 1  
ObjRs.movenext  
wend  
%>

Boa noite Pessoal,

Utilizei o codigo de colunas, porem ao aplica-lo estou tendo um probleminha

Eis o codigo:

<%
Do While NOT rs.EOF
If cont=0 Then
Response.Write "<tr>"
End If
Response.Write "<td>"%>

<%
Set nt1 = Server.CreateObject("ADODB.Recordset")
nt1.Open "SELECT * from xp order by id asc", DB

Do while not nt1.Eof
Codigo = nt1("Codigo")
Produto = nt1("Produto")
Classe1 = nt1("Classe1")
Classe = nt1("Classe")
Data = nt1("Data")
Horas = nt1("Horas")
id = nt1("id")
if Classe1 = "INJETORAS" Then
%>
<table width="473" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%" height="75" rowspan="2" align="left" valign="middle"><img src="<%=nt1("mini1")%>" width="84" height="63" border="0" /></td>
<td width="90%" height="25" align="left" valign="bottom" class="fonte12_005100-bold">
<%Response.Write Codigo%>
-
<%Response.Write Produto%> </td>
</tr>
<tr>
<td height="55" align="left" valign="middle"><a href='ct-materias.asp?materias=<%=nt1("id")%>&amp;Classe=<%Response.Write Classe%>' class="fonte12_000000-normal">
<%Response.Write Descricao%>
</a></td>
</tr>
<tr>
<td colspan="2"><img src="images/detalhes/traco2.gif" width="415" height="1" /></td>
</tr>
</table>
<%
Response.Write "</td>"
cont=cont+1
If cont=2 Then ' Definimos a Quantidade de colunas
Response.Write "</tr>"
cont=0
End If
rs.MoveNext
Loop
%>


O erro que aparece é o seguinte:
Erro de compilação do Microsoft VBScript erro '800a040e'

'loop' sem 'do'

/teste/xp/injetoras1.asp, line 189

Loop
^


Vcs podem me ajudar?