ESSE CÓDIGO ENVIA... <%
if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if
if session("evento") < "2" then
response.Redirect "index.asp?lcl=admineventos"
end if
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
Set Rs=conn.execute("select * from fotos_eventos order by 2 ")
%>
<html>
<head>
<title>Intranet - Agência de Fomento de Goiás S/A</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
</head>
<script>
function Gerar(){
var barra = open("fotos/criarpasta.asp","Codigo","scrollbars=0,menubar=0,toolbar=0, resizable=0,width=230,height=140");
}
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
</tr>
<tr>
<td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
<td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#3399CC">
<td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio"> </td>
<td width="134" bgcolor="#C4E4FD" class="textointrodutorio"> </td>
<td width="122" bgcolor="#C4E4FD" class="textointrodutorio"> </td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#ECF8FF">
<td width="339" height="20" > </td>
<td width="134" class="texto"> </td>
<td width="60" bgcolor="#ECF8FF" class="texto"> </td>
<td width="62" class="texto"> </td>
</tr>
<tr>
<td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td height="20" bgcolor="#C4E4FD" class="textointrodutorio"><div align="center">Local</div></td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="20" height="20" bgcolor="#ECF8FF"><div align="center"><img src="imagens/tópico.gif" width="8" height="8"></div></td>
<td width="270" bgcolor="#ECF8FF"><a href="javascript:Gerar();" class="linkclaro"><strong>Criar
Uma Nova Pasta</strong></a></td>
<td width="15"> </td>
<td width="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td>
<td width="270" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Criar
um Novo Evento</a></strong></td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td bgcolor="#ECF8FF" class="texto" height="20"> <img src="imagens/tópico.gif" width="8" height="8">
<%
if len(Request.QueryString("nome")) = 0 then
response.write "" & "É Necessário escolher uma pasta de destino antes de fazer o upload" & "<br>"
end if %>
<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base
Set pastas = principal.SubFolders
pasta = Request.QueryString("nome")
Dim fso, f
folder = Request.Form("pasta")
Set fso = Nothing %>
</td>
</tr>
</table>
<%For each pastaUP in pastas%>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="2"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="23" height="20" bgcolor="#ECF8FF"> <img src="../imagens/pasta3.gif" width="16" height="16">
</td>
<td width="572" valign="middle" bgcolor="#ECF8FF"><a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%>" class="linkclaro"><%=pastaUP.name%></a></td>
</tr>
</table>
<%next%>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" colspan="2" align="center"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr bgcolor="#ECF8FF">
<% if len(Request.Form("pasta")) > 0 then
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(folder)
end if
%>
<%if len(Request.QueryString("nome")) > 0 then%>
<td colspan="2" align="left" bgcolor="#ECF8FF" class="texto">
<form action=index.asp?lcl=upload&pasta=<%=Request.QueryString("nome")%> method="post" enctype="multipart/form-data">
<p>Escolha o Evento
<select name="areaSol" id="areaSol">
<%
while Not Rs.EOF
Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>")
Rs.MoveNext
wend
Response.Write("<option selected>---</option>")
Set RsEvento = Conn.Execute("SELECT * FROM fotos_eventos ORDER BY 3 desc")
%>
</select>
</p>
<p>Arquivo 1:
<input type="file" name="txtArquivo1">
</p>
<p><span class="texto">
<input type="submit" name="cmdEnviar" value="Enviar">
</span> </p>
</form>
</td>
</tr>
<tr>
<td height="5" colspan="2" align="center"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr bgcolor="#ECF8FF">
<td height="20" colspan="2" bgcolor="#ECF8FF"><span class="texto"> </span></td>
</tr>
<%end if%>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="20" height="20" align="center"><img src="imagens/tópico.gif" width="8" height="8"></td>
<td><a href="javascript:history.back();" class="link">Voltar</a></td>
</tr>
</table>
<p></p></td>
</tr>
</table>
</body>
</html>
ESSE OUTRO RECEBE OS PARÂMETROS e é onde tá acontecendo o erro
<%
'testa permissão
if session("logado")= "" then
response.redirect "index.asp?lcl=intro"
end if
if session("fotos") < "2" then
response.Redirect "index.asp?lcl=adminfotos"
end if
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino, nome1
Dim objFSO, objArquivo
nome1 = Request.QueryString ("pasta")
a = Request.form("areaSol")
PastaDestino = Server.MapPath("fotos" & "\" & nome1)
'Determina o tamanho do conteúdo
Tamanho = Request.TotalBytes
'Obtém o conteúdo no formato binário
ConteudoBinario = Request.BinaryRead(Tamanho)
'Transforma o conteúdo binário em string
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next
'Determina o delimitador de campos
Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)
'Percorre a String procurando os campos
'identifica os arquivo e grava no disco
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)
do while True
ArquivoNome = ""
Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
if Posicao1 = 0 then
exit do
else
'Determina o nome do arquivo
Posicao1 = Posicao1 + 10
Posicao2 = InStr(Posicao1, ConteudoTexto, """")
For contador = (Posicao2 - 1) to Posicao1 step -1
if Mid(ConteudoTexto, Contador, 1) <> "\" then '"
ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
else
exit for
end if
next
'Determina o conteúdo do arquivo
Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))
'Grava o arquivo
if ArquivoNome <> "" then
Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)
objArquivo.WriteLine ArquivoConteudo
objArquivo.Close
cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DataSource
'Abre o Recordset
Set Rs = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
Set Rs=conn.execute("Select * From fotos_eventos where Evento="&a&"")
%>
<link href="estilos/intranet.css" rel="stylesheet" type="text/css">
<link href="../estilos/intranet.css" rel="stylesheet" type="text/css">
<table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD>
</tr>
<tr>
<td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td>
<td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#3399CC">
<td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>SUCESSO!!!</strong></font></div></td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
<tr>
<td height="20" bgcolor="#C4E4FD" class="textointrodutorio">
<%
Response.write "Arquivo " & PastaDestino & "\" & ArquivoNome
%>
</td>
</tr>
</table>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#ECF8FF">
<td width="339" height="20" class="texto"> <img src="imagens/tópico.gif" width="8" height="8">
<%
Response.Write ArquivoNome & " gravado com sucesso!<br>"
Response.Write Request.form("areaSol")
Set objArquivo = nothing
end if
end if
Loop
Set objFSO = nothing
%>
</td>
<td width="134" class="texto"> </td>
<td width="60" bgcolor="#ECF8FF" class="texto"><div align="center"></div></td>
<td width="62" class="texto"><div align="center"></div></td>
</tr>
<tr>
<td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td>
</tr>
</table>
<table width="595" border="0" cellspacing="1" cellpadding="1">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=fotosnoevento" class="linkclaro">Nova
Inclusão de Fotos</a></strong></td>
</tr>
<tr>
<td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td>
<td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="index.asp?lcl=adminfotos" class="link">
Voltar para administração de Fotos</a></div></td>
</tr>
</table>
<p></p></td>
</tr>
</table>
<p> </p>
