[Resolvido] UpLoad de duas imagens

[Maycon 0]

ola pessoas estou com um problema

estou cadastrando duas imagens no my sql

soh que na hora de visualizar as imagens soh aparese uma e a outra que eh para abrir em uma pop-up não aparese

 

<%
Dim Form: Set Form = New ASPForm
%>
<!--#include file="includes/upload.asp"-->
<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
Response.Expires = -1
Response.Buffer = TRUE
Response.Clear
Server.ScriptTimeout = 9999999

set conexdados = server.CreateObject("adodb.Connection")
conexdados.open strConn

cod_down = request.QueryString("cod_down")
var_caminho = "D:\HACO\site\imagem\"

if request.QueryString("cadastrar") = "1" then	
	' novo UpLoad
	Form.SizeLimit = &HA00000'10MB
	Const fsCompletted  = 0
	
	if Form.State = fsCompletted Then 'Completted
		if FORM("des_fundo") <> "" then
			' upload das imagens
			des_fundo = rndit() &"_"& Form("des_fundo").filename
			
			DestinationFileNam = var_caminho &"\downloads\"& des_mapa
			Form("des_fundo").SaveAs DestinationFileNam
		end if
		if FORM("des_fundo2") <> "" then
			' upload das imagens
			des_fundo2 = rndit() &"_"& Form("des_fundo2").filename
			
			DestinationFileNam = var_caminho &"\downloads\"& des_fundo
			Form("des_fundo2").SaveAs DestinationFileNam
		end if
	des_tamanho = replace(Form("des_tamanho"),"'","''")
	
	if cod_down = "" then
		strSQL = "INSERT INTO inst_down (des_tamanho,des_fundo,des_fundo2) VALUES ('"& des_tamanho &"','"& des_fundo &"','"& des_fundo2 &"')"
	else
		strSQL = "UPDATE inst_down SET des_tamanho='"& des_tamanho &"',des_fundo='"& des_fundo &"',des_fundo2='"& des_fundo2 &"' WHERE cod_down='"& cod_down &"' "
	end if 
	
conexdados.execute strSQL
response.Write strSQL

RESPONSE.Redirect("adm_downloads.asp")
end if
end if

obrigado desde jah

[Giovani 104]

Movido para o fórum principal de ASP

[Maycon 0]

desculpe pelo equivoco

e di uma arrumada no codigo

<%
Dim Form: Set Form = New ASPForm
%>
<!--#include file="includes/upload.asp"-->
<%
Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
Response.Expires = -1
Response.Buffer = TRUE
Response.Clear
Server.ScriptTimeout = 9999999

set conexdados = server.CreateObject("adodb.Connection")
conexdados.open strConn

cod_down = request.QueryString("cod_down")
var_caminho = "D:\HACO\site\imagem\"

if request.QueryString("cadastrar") = "1" then	
	' novo UpLoad
	Form.SizeLimit = &HA00000'10MB
	Const fsCompletted  = 0
	
	if Form.State = fsCompletted Then 'Completted
		if FORM("des_fundo") <> "" then
			' upload das imagens
			des_fundo = rndit() &"_"& Form("des_fundo").filename
			
			DestinationFileNam = var_caminho &"\downloads\"& des_fundo
			Form("des_fundo").SaveAs DestinationFileNam
		end if
		if FORM("des_fundo2") <> "" then
			' upload das imagens
			des_fundo2 = rndit() &"_"& Form("des_fundo2").filename
			
			DestinationFileNam = var_caminho &"\downloads\"& des_fundo2
			Form("des_fundo2").SaveAs DestinationFileNam
		end if
	des_tamanho = replace(Form("des_tamanho"),"'","''")
	
	if cod_down = "" then
		strSQL = "INSERT INTO inst_down (des_tamanho,des_fundo,des_fundo2) VALUES ('"& des_tamanho &"','"& des_fundo &"','"& des_fundo2 &"')"
	else
		strSQL = "UPDATE inst_down SET des_tamanho='"& des_tamanho &"',des_fundo='"& des_fundo &"',des_fundo2='"& des_fundo2 &"' WHERE cod_down='"& cod_down &"' "
	end if 
	
conexdados.execute strSQL
response.Write strSQL
'RESPONSE.End()
RESPONSE.Redirect("adm_downloads.asp")
end if
end if

[Maycon 0]

dawe galera jah comsegui arrumar o problema

valeu

[Mário Monteiro 179]

como resolveu?

[Maycon 0]

um erro simples que soh persebi quando eu postei aki

o primeiro post esta errado no

DestinationFileNam = var_caminho &"\downloads\"& des_mapa
Form("des_fundo").SaveAs DestinationFileNam
end if

e no ultimo post eu arrumei para o certo

DestinationFileNam = var_caminho &"\downloads\"& des_fundo
Form("des_fundo").SaveAs DestinationFileNam
end if