Microsoft VBScript runtime error '800a0046' Permission denied /Modelo/Estoque/admin/valida_insauto.asp, line 172
ARQUIVO valida_insauto.asp
<%
Response.Buffer = True
Response.Expires = 20
Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
If Session("Logado") = "" Then
Response.Redirect "default.asp"
End If
Function Gera_Senha()
For Cont = 1 to 4
Randomize
Letras = Letras + Chr(rnd * 25 + 97)
Numero = Int(rnd * 25 + 97)
Next
Gera_Senha = Letras & Numero
End Function
Function FData(str)
nData = Replace(str,"/","")
FData = nData
End Function
sGravaImagem = Gera_Senha() & FData(Date)
Function ChkString(str)
If Trim(str) = "" Then str = " "
str = Replace(str, "'", "''")
str = Replace(str, "|", "/")
ChkString = str
End Function
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
%>
<!--#include file="include.sistema/upload.asp"-->
<!--INICIO CONFIRMACAO DE GRAVACAO-->
<font face="Tahoma" size="2">
<%
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
sCarro = UploadRequest.Item("txtCarro").Item("Value")
nFabricante = UploadRequest.Item("cmbFabricante").Item("Value")
sAno = UploadRequest.Item("txtAno").Item("Value")
sCombustivel = UploadRequest.Item("txtCombustivel").Item("Value")
sCor = UploadRequest.Item("txtCor").Item("Value")
sKm = UploadRequest.Item("txtKm").Item("Value")
sProcedencia = UploadRequest.Item("txtProcedencia").Item("Value")
sPlaca = UploadRequest.Item("txtPlaca").Item("Value")
sValor = UploadRequest.Item("txtValor").Item("Value")
sOutros = UploadRequest.Item("txtOutros").Item("Value")
sExt = Right(filename,4)
sMsg = ""
'*** Erro de arquivo
If Trim(LCase(filename)) = "0" Then
sMsg = sMsg & "Erro, o campo <b>arquivo</b> tem que ser preenchido!" & "<br>"
'ElseIf Right(LCase(filename),3) <> "jpg" Then
' sMsg = sMsg & "Erro, o <b>arquivo</b> a ser enviado precisa ser uma imagem <b>JPG</b>!" & "<br>"
ElseIf InStr(LCase(filename),"'") <> 0 Then
sMsg = sMsg & "Erro, o campo <b>arquivo</b> está inválido!" & "<br>"
End If
If sMsg = "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../../../dados/bd.mdb") & ";" '## MS Access 2000
Conexao.Open ConnString
strSQL = "select * from Dados where Nick = '" & ChkString(Session("Nick")) & "' and Senha='" & ChkString(Session("Senha")) & "'"
Set rsDados = Conexao.Execute(strSQL)
If rsDados.EOF = True Then
Response.Write "Nenhum usuário com este nick!"
Else
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'*** Antigo
'pathEnd = Len(Server.MapPath(Request.ServerVariables("PATH_INFO")))-11
'sCaminho = Left(Server.MapPath(Request.ServerVariables("PATH_INFO")),pathEnd) & "\imagens\" & sPasta &"\" & filename
'*** Antigo
sNomeImagem = sGravaImagem & sExt
sCaminho = Server.MapPath("../IMAGENS/" & sNomeImagem)
If ScriptObject.FileExists(sCaminho) Then
Response.Write "Este arquivo já existe no servidor!"
Else
Set MyFile = ScriptObject.CreateTextFile(sCaminho)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
strSQL = "insert into Estoque (Nome, CatID, Ano, Combustivel, Cor, Km, Procedencia, Placa, Valor, Outros, Imagem, Data) values ('"
strSQL = strSQL & sCarro & "',"
strSQL = strSQL & nFabricante & ",'"
strSQL = strSQL & sAno & "','"
strSQL = strSQL & sCombustivel & "','"
strSQL = strSQL & sCor & "','"
strSQL = strSQL & ChkString(sKm) & "','"
strSQL = strSQL & sProcedencia & "','"
strSQL = strSQL & sPlaca & "','"
strSQL = strSQL & sValor & "','"
strSQL = strSQL & ChkString(sOutros) & "','"
strSQL = strSQL & sNomeImagem & "','"
strSQL = strSQL & Date & "')"
Conexao.Execute(strSQL)
Response.Write "Dados gravados!" & "<br>"
Response.Write "Clique <a href=""home.asp"">aqui</a> para voltar ao menu."
End If
End If
Else
Response.Write sMsg
End If
%>
</font>
<!--FIM CONFIRMACAO DE GRAVACAO-->
LINHA 172
Set MyFile = ScriptObject.CreateTextFile(sCaminho)
Edição feita por: Morphman, 06/09/2004, 19:14.
