Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lbf66

Microsoft VBScript runtime error '800a01a8'

Por , em ASP Clássico

Recommended Posts

lbf66    0

lbf66
Postado
Boa noite pessoal precisava de uma ajuda com esse código tava funcionando perfeitamente mas depois que meu provedor atualizaou o servidor está dando esse erro.



Microsoft VBScript runtime error '800a01a8'


Objeto necessário: 'Item (...)'


/adm/adicionar_imovel-asp.asp, linha 21




Segue o código:


'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))

byteCount = Request.TotalBytes

'Response.BinaryWrite(Request.BinaryRead(varByteCount))


RequestBin = Request.BinaryRead(byteCount)

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")


If Not (filename = "" or IsNull(filename)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")




'Create and Write to a File

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If


'Imagem G 01

contentType = UploadRequest.Item("blob01").Item("ContentType")

filepathname01 = UploadRequest.Item("blob01").Item("FileName")

filename01 = Right(filepathname01,Len(filepathname01)-InstrRev(filepathname01,"\"))

value = UploadRequest.Item("blob01").Item("Value")


If Not (filename01 = "" or IsNull(filename01)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd01 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename01)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If



'Imagem G 02

contentType = UploadRequest.Item("blob02").Item("ContentType")

filepathname02 = UploadRequest.Item("blob02").Item("FileName")

filename02 = Right(filepathname02,Len(filepathname02)-InstrRev(filepathname02,"\"))

value = UploadRequest.Item("blob02").Item("Value")


If Not (filename02 = "" or IsNull(filename02)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd02 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename02)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If



'Imagem G 03

contentType = UploadRequest.Item("blob03").Item("ContentType")

filepathname03 = UploadRequest.Item("blob03").Item("FileName")

filename03 = Right(filepathname03,Len(filepathname03)-InstrRev(filepathname03,"\"))

value = UploadRequest.Item("blob03").Item("Value")


If Not (filename03 = "" or IsNull(filename03)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd03 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename03)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If



'Imagem G 04

contentType = UploadRequest.Item("blob04").Item("ContentType")

filepathname04 = UploadRequest.Item("blob04").Item("FileName")

filename04 = Right(filepathname04,Len(filepathname04)-InstrRev(filepathname04,"\"))

value = UploadRequest.Item("blob04").Item("Value")


If Not (filename04 = "" or IsNull(filename04)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd04 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename04)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If


'Imagem G 05

contentType = UploadRequest.Item("blob05").Item("ContentType")

filepathname05 = UploadRequest.Item("blob05").Item("FileName")

filename05 = Right(filepathname05,Len(filepathname05)-InstrRev(filepathname05,"\"))

value = UploadRequest.Item("blob05").Item("Value")


If Not (filename05 = "" or IsNull(filename05)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename05)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close



End If


'Imagem G 06

contentType = UploadRequest.Item("blob06").Item("ContentType")

filepathname06 = UploadRequest.Item("blob06").Item("FileName")

filename06 = Right(filepathname06,Len(filepathname06)-InstrRev(filepathname06,"\"))

value = UploadRequest.Item("blob06").Item("Value")


If Not (filename06 = "" or IsNull(filename05)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename06)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If


'Imagem G 07

contentType = UploadRequest.Item("blob07").Item("ContentType")

filepathname07 = UploadRequest.Item("blob07").Item("FileName")

filename07 = Right(filepathname07,Len(filepathname07)-InstrRev(filepathname07,"\"))

value = UploadRequest.Item("blob07").Item("Value")


If Not (filename07 = "" or IsNull(filename07)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename07)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If


'Imagem G 08

contentType = UploadRequest.Item("blob08").Item("ContentType")

filepathname08 = UploadRequest.Item("blob08").Item("FileName")

filename08 = Right(filepathname08,Len(filepathname08)-InstrRev(filepathname08,"\"))

value = UploadRequest.Item("blob08").Item("Value")


If Not (filename08 = "" or IsNull(filename08)) Then


'Create FileSytemObject Component

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'Create and Write to a File

pathEnd05 = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("\upload\"&filename)

Set MyFile = ScriptObject.CreateTextFile("E:\Inetpub\vhosts\cajamarimoveis.com.br\httpdocs\imagens\imoveis\"&filename08)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next


MyFile.Close


End If



%>


<%

categoria = UploadRequest.Item("categoria").Item("Value")

tipo = UploadRequest.Item("tipo").Item("Value")

cidade = UploadRequest.Item("cidade").Item("Value")


imagem_p = filename


valor = Trim(UploadRequest.Item("valor").Item("Value"))


'definindo valor_media de acordo com categoria e preço do imóvel



If categoria = "para alugar" then


If (int(valor) > 20000 and int(valor) < 40000) then

valor_media = "R$ 200,00 à 400,00"

ElseIf (int(valor) > 40100 and int(valor) < 60000) then

valor_media = "R$ 400,00 à 600,00"

ElseIf (int(valor) > 60100 and int(valor) < 80000) then

valor_media = "R$ 600,00 à 800,00"

ElseIf (int(valor) > 80100 and int(valor) < 100000) then

valor_media = "R$ 800,00 à 1.000,00"

ElseIf (int(valor) > 10100 and int(valor) < 120000) then

valor_media = "R$ 1.000,00 à 1.200,00"

Else

valor_media = "Acima de R$ 1.200,00"

End If


End If


'Response.Write "Valor: " & int(valor) & "<BR>"

'Response.Write "Valor Media: " & valor_media

'Response.End




'fim de definição da variavel valor_media




imagem_g01 = filename01

imagem_g02 = filename02

imagem_g03 = filename03

imagem_g04 = filename04

imagem_g05 = filename05

imagem_g06 = filename06

imagem_g07 = filename07

imagem_g08 = filename08




destaque = UploadRequest.Item("destaque").Item("Value")

If destaque = "n" then

destaque = 0

Else

destaque = 1

End If


descricao = Trim(UploadRequest.Item("descricao").Item("Value"))

data_cadastro = Date



Conecta()

SQL = "Insert Into IMOVEIS (CATEGORIA, TIPO, CIDADE, VALOR, VALOR_MEDIA, DESCRICAO, IMAGEM_P, IMAGEM_G01, IMAGEM_G02, IMAGEM_G03, IMAGEM_G04, IMAGEM_G05, IMAGEM_G06, IMAGEM_G07, IMAGEM_G08, DATA_CADASTRO, DESTAQUE) Values ('" & categoria & "', '" & tipo & "', '" & cidade & "', '" & valor & "', '" & valor_media & "', '" & descricao & "', '" & imagem_p & "', '" & imagem_g01 & "', '" & imagem_g02 & "', '" & imagem_g03 & "', '" & imagem_g04 & "', '" & imagem_g05 & "', '" & imagem_g06 & "', '" & imagem_g07 & "', '" & imagem_g08 & "', '" & data_cadastro & "', '" & destaque & "')"

AbreRecordSet(SQL)


%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Cajamar Imóveis</title>

<SCRIPT LANGUAGE="JavaScript" src="mask.js">

</script>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="estilocajamar.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

.style1 {font-size: 18px;

color: #FFFFFF;

}

.style3 {font-size: 18px}

.style4 {color: #FFFFFF}

-->

</style>

</head>


<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr align="center" valign="middle" background="fundo_banner.jpg">

<td height="160" background="../imgs2012/fundo_banner.jpg"><table width="1024" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="340" height="132" align="center" valign="middle"> </td>

<td width="340" align="center" valign="middle"><img src="../imgs2012/logosite.gif" width="112" height="125"></td>

<td width="341" align="center" valign="middle"> </td>

</tr>

<tr>

<td colspan="3"><table width="1024" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="121" align="left" valign="baseline"><a href="adicionar_imovel.asp"><img src="imgs_adm/incluir_imoveis.gif" width="117" height="28" border="0"></a></td>

<td width="119" align="left" valign="baseline"><a href="adicionar_dica.asp"><img src="imgs_adm/incluir_dicas.gif" width="117" height="28" border="0"></a><a href="alterar_imovel.asp"></a></td>

<td width="122" align="left" valign="baseline"><a href="adicionar_noticias.asp"><img src="imgs_adm/incluir_novidades.gif" width="117" height="28" border="0"></a><a href="adicionar_dica.asp"></a></td>

<td width="286" align="center" valign="middle"><strong><font color="#000000" size="4" face="Arial, Helvetica, sans-serif">Sistema

Administrativo</font></strong></td>

<td width="120" align="left" valign="baseline"><a href="adicionar_cidade.asp"><img src="imgs_adm/incluir_cidades.gif" width="117" height="28" border="0"></a><a href="adicionar_noticias.asp"></a></td>

<td width="119" align="left" valign="baseline"><img src="imgs_adm/incluir_servicos.gif" width="117" height="28"></td>

<td width="123" align="left" valign="baseline"><img src="imgs_adm/incluir_links.gif" width="117" height="28"></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

<td height="2" bgcolor="#336600"></td>

</tr>

<tr>

<td height="40"> </td>

</tr>

<tr>

<td align="center"><table width="1024" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="1" height="30" rowspan="3" align="center" bgcolor="#000000"></td>

<td height="1" align="center" bgcolor="#000000"></td>

<td width="1" rowspan="3" align="center" bgcolor="#000000"></td>

</tr>

<tr>

<td height="30" align="center" valign="middle" bgcolor="#FF0000" class="txt11 style3 style4 style1">Imóvel adicionado com sucesso!! </td>

</tr>

<tr>

<td height="1" align="center" bgcolor="#000000"></td>

</tr>

</table></td>

</tr>


<tr>

<td align="center"><table width="778" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="778" height="1" align="left" valign="top"></td>

</tr>


<tr>

<td align="left" valign="top" bgcolor="#EAEAEA"><table width="1024" border="0" cellpadding="0" cellspacing="0">

<tr valign="top">

<td height="500" valign="top" bgcolor="#EAEAEA"><table width="1024" border="0" cellpadding="0" cellspacing="0">


<tr>

<td height="20" colspan="2" align="left" valign="top" bgcolor="#EAEAEA"></td>

</tr>

<tr>

<td height="3" colspan="2" align="left" valign="top" bgcolor="#EAEAEA"></td>

</tr>

<tr>

<td width="10" align="left" valign="top" bgcolor="#EAEAEA" class="txt11"> </td>

<td align="left" valign="top" bgcolor="#EAEAEA" class="txt11"><p><strong>Você adicionou um imóvel ao banco de dados!!!</strong></p>

<p>Confira abaixo os dados cadastrados:</p>

<p><strong>Categoria: </strong>

<% = categoria%>

<strong><br>

Tipo: </strong>

<% = tipo%>

<strong></strong><strong><br>

Valor: </strong>

<% = valor%>

<strong></strong><strong><br>

Descrição: </strong>

<% = descricao%>

<br>

<b>Valor Média:</b> <%=valor_media%></p>

<p>Para adicionar outro imóvel, <a href="adicionar_imovel.asp">Clique

aqui.</a></p>

<%

FechaRecordSet()

If Not (filename = "" or IsNull(filename)) Then

%>

<!--#include file="upload/upload.asp"-->

<%

End If

%> </td>

</tr>

<tr>

<td height="5" colspan="2" align="left" valign="top" bgcolor="#EAEAEA"></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

<td height="1" align="left" valign="top"></td>

</tr>



</table></td>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito