asp error
Error Type:
Sun ONE ASP VBScript runtime (0x800A0CC1)
ADO Could not find the object in the collection corresponding to the name or ordinal reference requested by the collection.
/admin/cad_casas.asp, line 117
the line 117 is:
R("ativo") = upl.FormData("ativo")
of code...
<%
Dim R
Dim SQL
Dim DirImagem
Dim localImg, arrImg, strOneWord, elemento
Response.Expires = 0
If Request.ServerVariables("REQUEST_METHOD")="POST" then
DirImagem=Server.MapPath(DirBase & "/imagens/casas/")
Set upl = Server.CreateObject("Chili.Upload.1")
Set R = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM casas_noturnas"
R.Open sql, conexao,3,3
R.addnew
R("nome")= upl.FormData("nome")
R("site") = upl.FormData("site")
R("endereco") = upl.FormData("endereco")
R("cidade") = upl.FormData("cidade")
R("telefone") = upl.FormData("telefone")
R("descricao") = upl.FormData("descricao")
R("ativo") = upl.FormData("ativo")
If upl.SourceFileName <> "" then
localImg =upl.SourceFileName
localImg = Trim(localImg)
arrImg = Split (localImg, "\")
elemento = UBound(arrImg)
upl.SizeLimit ="30000"
upl.SaveToFile(DirImagem & "/"& arrImg(elemento))
R("foto") = arrImg(elemento)
end if
r("pasta") = upl.FormData ("pasta")
Dim objFso
Dim f
Set objFso = CreateObject("Scripting.FileSystemObject")
Set f = objFso.CreateFolder(Server.MapPath(DirBase & "/imagens/coberturas/") &"/"& R("pasta"))
CreateFolderDemo = f.Path
R.UpDate
Response.write "<div align='center'><font color='#FF6600' size='4' face='Arial, Helvetica, sans-serif'>"
Response.write "<strong>Cadastro efetuado com Sucesso !</strong></font></div>"
R.Close
Set R=Nothing
Else
%>
