Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
manogaucho

[AJUDA] ADODB.Recordset error '800a0cc1'

Recommended Posts

Tudo Bem! Eu tenho um Classificado em ASP, ele esta funcionado quase 100% , com ajuda do nosso amigo Danilob ( DANILO ) eu consegui fazer otimas alterações, com sua ajuda alterei todo os envios de e-mail, tipo alteração de cadastro, inserir produto VEJA O POST AQUI e muito mais, mas hoje fazendo as configurações finais, percebi que da erro quando um usuario tenta fazer alteração no produto, da este erro.

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/classificado/AltAnuncio.asp, line 68
Assim testei o classificado todo e não encontrei outro erro, Aqui esta o codigo do "AltAnuncio.asp"
<!-- #include file="Includes/BarraCima.asp" -->
<!-- #include file="Travar.asp" -->
<!-- #include file="Includes/Upload.asp" -->
<%

Dim VarAct
Dim VarAnuncio
Dim objEstados
Dim objEstados_numRows
Dim objCidades
Dim objCidades_numRows
Dim objPlanos
Dim objAnuncio
Dim PlanoSel
Dim SecaoSel
Dim Foto
Dim EstadoSel
Dim CidadeSel
Dim VarNomeProduto
Dim VarBreveDescricao
Dim VarDescricao
Dim VarValor
Dim VarFormaPagamento
Dim VarEstado
Dim VarCidade
Dim VarSecao
Dim VarPlano
Dim VarPlanoAtual
Dim VarLocal
Dim VarFoto
Dim VarFoto1
Dim VarFoto2
Dim VarFoto3
Dim VarFoto4
Dim VarFoto5
Dim VarConfFoto1
Dim VarConfFoto2
Dim VarConfFoto3
Dim VarConfFoto4
Dim VarConfFoto5
Dim VarMesPagamento
Dim AltBd

VarAct = Request.QueryString("Act")
VarAnuncio = Request.QueryString("Anuncio")

If VarAct = "AltFoto1" Then
Set foto = Conn.Execute("UPDATE Anuncios SET Foto1='"&LocalFoto&"SemFoto.gif' WHERE Cod="&VarAnuncio)
end if
If VarAct = "AltFoto2" Then
Set foto = Conn.Execute("UPDATE Anuncios SET Foto2='"&LocalFoto&"SemFoto.gif' WHERE Cod="&VarAnuncio)
end if
If VarAct = "AltFoto3" Then
Set foto = Conn.Execute("UPDATE Anuncios SET Foto3='"&LocalFoto&"SemFoto.gif' WHERE Cod="&VarAnuncio)
end if
If VarAct = "AltFoto4" Then
Set foto = Conn.Execute("UPDATE Anuncios SET Foto4='"&LocalFoto&"SemFoto.gif' WHERE Cod="&VarAnuncio)
end if
If VarAct = "AltFoto5" Then
Set foto = Conn.Execute("UPDATE Anuncios SET Foto5='"&LocalFoto&"SemFoto.gif' WHERE Cod="&VarAnuncio)
end if

Set objAnuncio = Conn.Execute("SELECT * FROM Anuncios WHERE Cod = "& VarAnuncio &" AND CodAnunciante = "& Session("Usuario") &"")
Set objPlanos = Conn.Execute("SELECT * FROM Planos WHERE Cod <> "&objAnuncio("CodPlano")&" ORDER BY Cod ASC")
Set PlanoSel = Conn.Execute("SELECT * FROM Planos WHERE Cod="&objAnuncio("CodPlano"))
Set SecaoSel = Conn.Execute("SELECT * FROM Secoes WHERE Cod="&objAnuncio("CodSecao"))
Set EstadoSel = Conn.Execute("SELECT * FROM Estados WHERE Cod="&objAnuncio("CodEstado"))
Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&objAnuncio("CodCidade"))
'----------------------------------------------------------------------------------------------------------------
Dim objEstados2
Dim onjEstados_numRows2
Dim objCidades2
Dim objCidades_numRows2

Set objEstados2 = Server.CreateObject("ADODB.Recordset")
objEstados2.ActiveConnection = Conn
objEstados2.Source = "Select * from Estados order by Estado asc"
objEstados2.CursorType = 0
objEstados2.CursorLocation = 2
objEstados2.LockType = 1
objEstados2.Open()

onjEstados_numRows2 = 0

Set objCidades2 = Server.CreateObject("ADODB.Recordset")
objCidades2.ActiveConnection = Conn
objCidades2.Source = "Select * from Cidades order by Cidade asc"
objCidades2.CursorType = 0
objCidades2.CursorLocation = 2
objCidades2.LockType = 1
objCidades2.Open()

objCidades_numRows2 = 0
%>
<script language="JavaScript">
<!--

var arrDynaList2 = new Array();
var arrDL12 = new Array();

arrDL12[1] = "Estado";
arrDL12[2] = "Alterar";
arrDL12[3] = "Cidade";
arrDL12[4] = "Alterar";
arrDL12[5] = arrDynaList2;
  
<%
Dim txtDynaListRelation2, txtDynaListLabel2, txtDynaListValue2, oDynaListRS2

txtDynaListRelation2 = "CodEstado"
txtDynaListLabel2 = "Cidade"
txtDynaListValue2 = "Cod"
Set oDynaListRS2 = objCidades2
  
Dim varDynaList2
varDynaList2 = -1

Dim varMaxWidth2
varMaxWidth2 = "1"

Dim varCheckGroup2
varCheckGroup2 = oDynaListRS2.Fields.Item(txtDynaListRelation2).Value

Dim varCheckLength2
varCheckLength2 = 0

Dim varMaxLength2
varMaxLength2 = 0

While (NOT oDynaListRS2.EOF)

 If (varCheckGroup2 <> oDynaListRS2.Fields.Item(txtDynaListRelation2).Value) Then
  If (varCheckLength2 > varMaxLength2) Then
   varMaxLength2 = varCheckLength2
  End If
  varCheckLength2 = 0
 End If
%>
 arrDynaList2[<%=(varDynaList2+1)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListRelation2).Value)%>"
 arrDynaList2[<%=(varDynaList2+2)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListLabel2).Value)%>"
 arrDynaList2[<%=(varDynaList2+3)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListValue2).Value)%>"
<%
 If (len(oDynaListRS2.Fields.Item(txtDynaListLabel2).Value) > len(varMaxWidth2)) Then
  varMaxWidth2 = oDynaListRS2.Fields.Item(txtDynaListLabel2).Value
 End If
 varCheckLength2 = varCheckLength2 + 1
 varDynaList2 = varDynaList2 + 3
 oDynaListRS2.MoveNext()
Wend

If (varCheckLength2 > varMaxLength2) Then
 varMaxLength2 = varCheckLength2
End If
%>

//-->
</script>

<script language="JavaScript">
<!--
function setDynaList2(arrDL2){

 var oList12 = document.forms[arrDL2[2]].elements[arrDL2[1]];
 var oList22 = document.forms[arrDL2[4]].elements[arrDL2[3]];
 var arrList2 = arrDL2[5];

 clearDynaList2(oList22);

 if (oList12.selectedIndex == -1){
  oList12.selectedIndex = 0;
 }

 populateDynaList2(oList22, oList12[oList12.selectedIndex].value, arrList2);
 return true;
}

function clearDynaList2(oList2){

 for (var i2 = oList2.options.length; i2 >= 0; i2--){
  oList2.options[i2] = null;
 }

 oList2.selectedIndex = -1;
}

function populateDynaList2(oList2, nIndex2, aArray2){
oList2[oList2.length]= new Option("Selecione uma cidade");
 for (var i2 = 0; i2 < aArray2.length; i2= i2 + 3){
  if (aArray2[i2] == nIndex2){
   oList2.options[oList2.options.length] = new Option(aArray2[i2 + 1], aArray2[i2 + 2]);
  }

 }

 if (oList2.options.length == 1){
  oList2.options[oList2.options.length] = new Option("Nenhuma cidade");
 }
 oList2.selectedIndex = 0; 
}

//-->
</script>
<script LANGUAGE="Javascript">
<!--
//
function itaushopline() {
    vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,hei
ght=485');
    document.itaushopline.submit();
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<%
NomeProduto = objAnuncio("NomeProduto")
BreveDescricao = objAnuncio("BreveDescricao")
Descricao = Replace(objAnuncio("Descricao"),"<br>",vbcrlf)
Valor = objAnuncio("Valor")
FormaPagamento = objAnuncio("FormaPagamento")
%>
<!--#include file="Includes/Form2.asp"-->
  <tr>
    <td valign="top">
    <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td>
        <td align="center" valign="top" bgcolor="#FFFFFF">
          <table width="468" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
          </tr>
          <tr>
            <td align="center" class="TituloCinzaMedio">ALTERA&Ccedil;&Atilde;O DE AN&Uacute;NCIO </td>
          </tr>
          <tr>
            <td align="center">&nbsp;</td>
          </tr>
          <tr>
            <td align="center">
        <% If VarAct <> "Alterar" AND VarAct <> "Confirma" Then %>
            <table align="center">
            <form action="AltAnuncio.asp?Act=Alterar&Anuncio=<%=objAnuncio("cod")%>" method="Post" name="Alterar" enctype="multipart/form-data">
                <%=CamposObrigatorios%>
                <%
                With Response
                    .Write LinhaHorizontal
                    .Write FCampos(1) 'Nome do Produto
                    .Write LinhaHorizontal
                    .Write FCampos(2) 'Breve Descricao
                    .Write LinhaHorizontal
                    .Write FCampos(3) 'Descricao
                    .Write LinhaHorizontal
                    .Write FCampos(4) 'Valor
                    .Write LinhaHorizontal
                    .Write FCampos(5) 'Forma de Pagamento
                    .Write LinhaHorizontal
                End With
                %>
                <tr>
                     <td class="TituloCinzaEscuro">Estado: </td>
                  <td class="TituloAzulEscuro">
                      <% If VarAct = "AltEstado" Then %>
                      <select name="Estado" onChange="setDynaList2(arrDL12)" class="Form13319">
                    <option selected value="0">Selecione um estado</option>
                    <% While (NOT objEstados2.EOF) %>
                           <option value="<%=(objEstados2.Fields.Item("Cod").Value)%>"><%=(objEstados2.Fields.Item("Estado").Value)%></option>
                         <%
                
                          objEstados2.MoveNext()
                        Wend
                        If (objEstados2.CursorType > 0) Then
                          objEstados2.MoveFirst
                        Else
                          objEstados2.Requery
                        End If
                    
                        %>
                    </select>
                    <%
                      Else
                      response.write EstadoSel("Estado") & " <span class='TituloCinzaMedio'>( <a href='AltAnuncio.asp?Act=AltEstado&Anuncio="&VarAnuncio&"' class='TituloCinzaMedio'>alterar</a> )</span>"
                      response.write "<input type='hidden' name='Estado' value='"&EstadoSel("Cod")&"'>"
                      End If
                      %>
                  </td>
                   </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td class="TituloCinzaEscuro">Cidade: </td>
                  <td class="TituloAzulEscuro">
                      <% If VarAct = "AltEstado" Then %>
                      <select name="Cidade" size="1" class="Form13319">
                    <option selected value="0">Selecione uma cidade</option>
                    </select>
                    <%
                    Else
                    response.write CidadeSel("Cidade")
                    response.write "<input type='hidden' name='Cidade' value='"&CidadeSel("Cod")&"'>"
                    End If
                    %>
                  </td>
                  </tr>
                <%=LinhaHorizontal%>
                <tr>
                <td class="TituloCinzaEscuro">Se&ccedil;&atilde;o:*</td>
                <td class="TituloAzulEscuro"><%=SecaoSel("Secao")%><input type='hidden' name='Secao' value="<%=SecaoSel("Cod")%>"></td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Fotos</td>
                </tr>
                <%
                With Response
                    .Write LinhaHorizontal
                    If objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" Then
                    .Write FCampos(6) 'Foto1
                    Else
                    .Write "<tr><td class='TituloCinzaEscuro'>Foto 1: </td><td class='TituloCinzaEscuro'><img src='"&objAnuncio("Foto1")&"' width='150'> ( <a href='AltAnuncio.asp?Act=AltFoto1&Anuncio="&objAnuncio("Cod")&"' class='TituloCinzaEscuro'>alterar imagem</a> )</td></tr>"
                    End If
                    .Write LinhaHorizontal
                    If objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" Then
                    .Write FCampos(7) 'Foto12
                    Else
                    .Write "<tr><td class='TituloCinzaEscuro'>Foto 2: </span></td><td class='TituloCinzaEscuro'><img src='"&objAnuncio("Foto2")&"' width='150'> ( <a href='AltAnuncio.asp?Act=AltFoto2&Anuncio="&objAnuncio("Cod")&"' class='TituloCinzaEscuro'>alterar imagem</a> )</td></tr>"
                    End If
                    .Write LinhaHorizontal
                    If objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" Then
                    .Write FCampos(8) 'Foto3
                    Else
                    .Write "<tr><td class='TituloCinzaEscuro'>Foto 3: </span></td><td class='TituloCinzaEscuro'><img src='"&objAnuncio("Foto3")&"' width='150'> ( <a href='AltAnuncio.asp?Act=AltFoto3&Anuncio="&objAnuncio("Cod")&"' class='TituloCinzaEscuro'>alterar imagem</a> )</td></tr>"
                    End If
                    .Write LinhaHorizontal
                    If objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                    .Write FCampos(9) 'Foto4
                    Else
                    .Write "<tr><td class='TituloCinzaEscuro'>Foto 4: </span></td><td class='TituloCinzaEscuro'><img src='"&objAnuncio("Foto4")&"' width='150'> ( <a href='AltAnuncio.asp?Act=AltFoto4&Anuncio="&objAnuncio("Cod")&"' class='TituloCinzaEscuro'>alterar imagem</a> )</td></tr>"
                    End If
                    .Write LinhaHorizontal
                    If objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                    .Write FCampos(10) 'Foto5
                    Else
                    .Write "<tr><td class='TituloCinzaEscuro'>Foto 5: </td><td class='TituloCinzaEscuro'><img src='"&objAnuncio("Foto5")&"' width='150'> ( <a href='AltAnuncio.asp?Act=AltFoto5&Anuncio="&objAnuncio("Cod")&"' class='TituloCinzaEscuro'>alterar imagem</a> )</td></tr>"
                    End If
                End With
                %>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Plano</td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center">
                  <input type="hidden" value="<%=objAnuncio("CodPlano")%>" name="PlanoAtual">
                      <select name="Plano" class="Form17019">
                        <option selected value="<%=PlanoSel("Cod")%>"><%=PlanoSel("Plano")%></option>
                        <%
                        While not objPlanos.EOF
                            Response.Write "<option value='"& objPlanos("Cod") &"'>"& objPlanos("Plano") &"</option>"
                        objPlanos.MoveNext : Wend
                        %>
                    </select>&nbsp;<a href="#" class="TextoCinzaEscuro" onClick="MM_openBrWindow('PopPlanos.asp','','scrollbars=yes,width=600,height=300')">Conhe&ccedil;a nossos planos</a>
                  </td>
                </tr>
                <%=LinhaHorizontal%>
                <tr>
                  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td>
                </tr>
                <%
                With Response
                    .Write FCampos(12) 'Submit
                End With
                %>
                <tr>
                  <td height="30" colspan="2" align="center" valign="bottom"><%=Voltar%></td>
                </tr>
              </form>
            </table>
        <%
            
        ElseIf VarAct = "Alterar" Then
            
            '-------------------------------------------------------------                    
            Dim Uploader, File
            Set Uploader = New FileUploader
                Uploader.Upload()
            
            If Uploader.Files.Count > 0 Then
                For Each File In Uploader.Files.Items
                    File.SaveToDisk CaminhoFoto
                    VarFoto = VarFoto &"|"& File.FileName
                Next
            VarFoto = Right(VarFoto, Len(VarFoto)-1)
            VarFoto = Split(VarFoto, "|")
            End If
                    
            VarNomeProduto = Replace(Uploader.Form("NomeProduto"),"'","''")
            VarBreveDescricao = Replace(Uploader.Form("BreveDescricao"),"'","''")
            VarDescricao = Replace(Replace(Uploader.Form("Descricao"),vbcrlf,"<br>"),"'","''")
            VarValor = Trim(Replace(Replace(Uploader.Form("Valor"),"'","''"),".",""))
            VarFormaPagamento = Replace(Uploader.Form("FormaPagamento"),"'","''")
            VarCidade = Uploader.Form("Cidade")
            VarEstado = Uploader.Form("Estado")
            VarSecao = Uploader.Form("Secao")
            VarPlano = Uploader.Form("Plano")
            VarPlanoAtual = Uploader.Form("PlanoAtual")

            If VarNomeProduto = "" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Insira o nome do produto!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarBreveDescricao = "" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Insira uma breve descrição!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarDescricao = "" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Insira uma descrição!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarValor = "" or not IsNumeric(VarValor) Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Insira o valor do produto!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarFormaPagamento = "" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Insira a forma de pagamento!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarEstado = "" or VarEstado = "Selecione um estado" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione um estado!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarCidade = "" or VarCidade = "Selecione uma cidade" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione uma cidade!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarSecao = "" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione a seção!<br><br>"& Voltar &"</td></tr>"
            ElseIf VarPlano = "" or VarPlano = "Selecione o plano" Then
                Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione o plano!<br><br>"& Voltar &"</td></tr>"
            Else
            
                Dim objPlano
                Set objPlano = Conn.Execute("SELECT * FROM Planos WHERE Cod = "& VarPlano &"")
                
                If objPlano("Local")<>4 AND objPlano("Local")<>5 AND objAnuncio("Foto1")=LocalFoto&"SemFoto.gif" AND Uploader.Files.Count = 0 Then
                    Response.Write "<tr><td align='center' class='TituloVermelho'>O plano que você escolheu exige no mínimo 01(uma) foto!<br><br>"& Voltar &"</td></tr>"
                
                Else
                
                    With Response
                        .Write "<table align='center' width='90%'>"
                        .Write "<form action='AltAnuncio.asp?Act=Confirma&Anuncio="&VarAnuncio&"' method='post' name='Inserir'>"
                        .Write "<input type=hidden value='"&VarNomeProduto&"' name='NomeProduto'>"
                        .Write "<input type=hidden value='"&VarBreveDescricao&"' name='BreveDescricao'>"
                        .Write "<input type=hidden value='"&VarDescricao&"' name='Descricao'>"
                        .Write "<input type=hidden value='"&VarValor&"' name='Valor'>"
                        .Write "<input type=hidden value='"&VarFormaPagamento&"' name='FormaPagamento'>"
                        .Write "<input type=hidden value='"&VarEstado&"' name='Estado'>"
                        .Write "<input type=hidden value='"&VarCidade&"' name='Cidade'>"
                        .Write "<input type=hidden value='"&VarSecao&"' name='Secao'>"
                        .Write "<input type=hidden value='"&VarPlano&"' name='Plano'>"
                        .Write "<input type=hidden value='"&objPlano("Local")&"' name='Local'>"
                        .Write "<input type=hidden value='"&VarPlanoAtual&"' name='PlanoAtual'>"
                        If Uploader.Files.Count = 0 Then
                            VarFoto1 = objAnuncio("Foto1")
                            VarFoto2 = objAnuncio("Foto2")
                            VarFoto3 = objAnuncio("Foto3")
                            VarFoto4 = objAnuncio("Foto4")
                            VarFoto5 = objAnuncio("Foto5")
                        End If
                        If Uploader.Files.Count > 0 Then
                            If objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(0)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(0)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(0)
                            End If
                        End If
                        If Uploader.Files.Count > 1 Then
                            If objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(1)
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(1)
                            ElseIf objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(0)
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(0)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(1)
                            ElseIf objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(0)
                                VarFoto5 = LocalFoto & VarFoto(1)
                            End If
                        End If
                        If Uploader.Files.Count > 2 Then
                            If objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = LocalFoto & VarFoto(2)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(2)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(2)
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = LocalFoto & VarFoto(2)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(2)
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = LocalFoto & VarFoto(2)
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = LocalFoto & VarFoto(2)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(2)
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = objAnuncio("Foto3")
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = LocalFoto & VarFoto(2)
                            ElseIf objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(0)
                                VarFoto4 = LocalFoto & VarFoto(1)
                                VarFoto5 = LocalFoto & VarFoto(2)
                            End If
                        End If
                        If Uploader.Files.Count > 3 Then
                            If objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = LocalFoto & VarFoto(2)
                                VarFoto4 = LocalFoto & VarFoto(3)
                                VarFoto5 = objAnuncio("Foto5")
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = LocalFoto & VarFoto(1)
                                VarFoto3 = LocalFoto & VarFoto(2)
                                VarFoto4 = objAnuncio("Foto4")
                                VarFoto5 = LocalFoto & VarFoto(3)
                            ElseIf objAnuncio("Foto1") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = LocalFoto & VarFoto(0)
                                VarFoto2 = objAnuncio("Foto2")
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = LocalFoto & VarFoto(2)
                                VarFoto5 = LocalFoto & VarFoto(3)
                            ElseIf objAnuncio("Foto2") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto3") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto4") = LocalFoto&"SemFoto.gif" AND objAnuncio("Foto5") = LocalFoto&"SemFoto.gif" Then
                                VarFoto1 = objAnuncio("Foto1")
                                VarFoto2 = LocalFoto & VarFoto(0)
                                VarFoto3 = LocalFoto & VarFoto(1)
                                VarFoto4 = LocalFoto & VarFoto(2)
                                VarFoto5 = LocalFoto & VarFoto(3)
                            End If
                        End If
                        If Uploader.Files.Count > 4 Then
                            VarFoto1 = LocalFoto & VarFoto(0)
                            VarFoto2 = LocalFoto & VarFoto(1)
                            VarFoto3 = LocalFoto & VarFoto(2)
                            VarFoto4 = LocalFoto & VarFoto(3)
                            VarFoto5 = LocalFoto & VarFoto(4)
                        End if
                        .Write "<input type=hidden value='"&VarFoto1&"' name='Foto1'>"
                        .Write "<input type=hidden value='"&VarFoto2&"' name='Foto2'>"
                        .Write "<input type=hidden value='"&VarFoto3&"' name='Foto3'>"
                        .Write "<input type=hidden value='"&VarFoto4&"' name='Foto4'>"
                        .Write "<input type=hidden value='"&VarFoto5&"' name='Foto5'>"
                        .Write "<tr><td colspan='2' class='TituloCinzaEscuro' align='center'>Confira seus dados abaixo: </td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Nome do Produto: </td><td class='TituloAzulEscuro'>" & VarNomeProduto & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Breve Descrição: </td><td class='TituloAzulEscuro'>" & VarBreveDescricao & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Descrição: </td><td class='TituloAzulEscuro'>" & VarDescricao & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Valor: </td><td class='TituloAzulEscuro'>" & FormatCurrency(VarValor, 2) & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Forma de Pagamento: </td><td class='TituloAzulEscuro'>" & VarFormaPagamento & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Estado: </td><td class='TituloAzulEscuro'>" & EstadoSel("Estado") & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Cidade: </td><td class='TituloAzulEscuro'>" & CidadeSel("Cidade") & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Seção: </td><td class='TituloAzulEscuro'>" & SecaoSel("Secao") & "</td></tr>"
                        .Write LinhaHorizontal
                        .Write "<tr><td class='TituloCinzaEscuro'>Plano: </td><td class='TituloAzulEscuro'>" & objPlano("Plano") & "</td></tr>"
                        .Write LinhaHorizontal
                        If VarFoto1 = LocalFoto&"SemFoto.gif" Then
                            .Write "<tr><td class='TituloCinzaEscuro'>Foto 1: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
                        Else
                            .Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 1: </td></tr>"
                            .Write "<tr><td colspan='2' align='center'><img src='"&VarFoto1&"' width='250'></td></tr>"
                        End If
                        .Write LinhaHorizontal
                        If VarFoto2 = LocalFoto&"SemFoto.gif" Then
                            .Write "<tr><td class='TituloCinzaEscuro'>Foto 2: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
                        Else
                            .Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 2: </td></tr>"
                            .Write "<tr><td colspan='2' align='center'><img src='"&VarFoto2&"' width='250'></td></tr>"
                        End If
                        .Write LinhaHorizontal
                        If VarFoto3 = LocalFoto&"SemFoto.gif" Then
                            .Write "<tr><td class='TituloCinzaEscuro'>Foto 3: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
                        Else
                            .Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 3: </td></tr>"
                            .Write "<tr><td colspan='2' align='center'><img src='"&VarFoto3&"' width='250'></td></tr>"
                        End If
                        .Write LinhaHorizontal
                        If VarFoto4 = LocalFoto&"SemFoto.gif" Then
                            .Write "<tr><td class='TituloCinzaEscuro'>Foto 4: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
                        Else
                            .Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 4: </td></tr>"
                            .Write "<tr><td colspan='2' align='center'><img src='"&VarFoto4&"' width='250'></td></tr>"
                        End If
                        .Write LinhaHorizontal
                        If VarFoto5 = LocalFoto&"SemFoto.gif" Then
                            .Write "<tr><td class='TituloCinzaEscuro'>Foto 5: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
                        Else
                            .Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 5: </td></tr>"
                            .Write "<tr><td colspan='2' align='center'><img src='"&VarFoto5&"' width='250'></td></tr>"
                        End If
                        .Write LinhaHorizontal
                        .Write FCampos(14) 'Confirmar / Corrigir
                        .Write "</form></table>"
                    End With
                End If
            End If
                
        ElseIf VarAct = "Confirma" Then
                    
                VarNomeProduto = Replace(Request.Form("NomeProduto"),"'","''")
                VarBreveDescricao = Replace(Request.Form("BreveDescricao"),"'","''")
                VarDescricao = Replace(Replace(Request.Form("Descricao"),vbcrlf,"<br>"),"'","''")
                VarValor = Trim(Replace(Replace(Replace(Request.Form("Valor"),"'",""),"R$",""),",","."))
                VarFormaPagamento = Replace(Request.Form("FormaPagamento"),"'","''")
                VarCidade = Request.Form("Cidade")
                VarEstado = Request.Form("Estado")
                VarSecao = Request.Form("Secao")
                VarPlano = Request.Form("Plano")
                VarLocal = Request.Form("Local")
                VarConfFoto1 = Request.Form("Foto1")
                VarConfFoto2 = Request.Form("Foto2")
                VarConfFoto3 = Request.Form("Foto3")
                VarConfFoto4 = Request.Form("Foto4")
                VarConfFoto5 = Request.Form("Foto5")
                VarPlanoAtual = Request.Form("PlanoAtual")
                
                Set AltBd = Server.CreateObject("ADODB.Recordset")
                    AltBd.CursorLocation = adUseServer
                    AltBd.CursorType = adOpenKeyset
                    AltBd.LockType = adLockOptimistic
                    AltBd.Open "SELECT * FROM Anuncios WHERE cod="&VarAnuncio, Conn, , , adCmdText
                    AltBd("NomeProduto") = VarNomeProduto
                    AltBd("BreveDescricao") = VarBreveDescricao
                    AltBd("Descricao") = VarDescricao
                    AltBd("Valor") = VarValor
                    AltBd("FormaPagamento") = VarFormaPagamento
                    AltBd("CodEstado") = VarEstado
                    AltBd("CodCidade") = VarCidade
                    AltBd("CodSecao") = VarSecao
                    AltBd("CodPlano") = VarPlano
                    AltBd("CodLocal") = VarLocal
                    AltBd("Foto1") = VarConfFoto1
                    AltBd("Foto2") = VarConfFoto2
                    AltBd("Foto3") = VarConfFoto3
                    AltBd("Foto4") = VarConfFoto4
                    AltBd("Foto5") = VarConfFoto5
                    AltBd("CodAnunciante") = Session("Usuario")
                    If VarPlano <> VarPlanoAtual Then
                        AltBd("Ativacao") = False
                        AltBd("Status") = False
                        AltBd("DataDe") = FormataData("1/1/2000")
                    End If
                    AltBd.Update
                    AltBd.Close
                    Set AltBd = Nothing
                    
                    If VarPlano <> VarPlanoAtual Then
                    
                    Dim VarConfEmail
                            
                    VarConfEmail = "<link href="& EndLocal & "Includes/Styles.css rel=stylesheet type=text/css>"
                    VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width=370 height=270 background="& EndLocal &"Imagens/FundoAltAnuncio.gif>"
                    VarConfEmail = VarConfEmail & "<tr>"
                    VarConfEmail = VarConfEmail & "<td>"
                    VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
                    VarConfEmail = VarConfEmail & "<tr>"
                    VarConfEmail = VarConfEmail & "<td>"
                    VarConfEmail = VarConfEmail & "&nbsp;"
                    VarConfEmail = VarConfEmail & "</td>"
                    VarConfEmail = VarConfEmail & "</tr>"
                    VarConfEmail = VarConfEmail & "<tr>"
                    VarConfEmail = VarConfEmail & "<td>"
                    VarConfEmail = VarConfEmail & "<center><a href='"& EndLocal &"ConfirmacaoAnuncio.asp?Act=1&CodAutenticacao="& objAnuncio("Secao") &"' class='TituloCinzaEscuro' target='_blank'>Clique aqui para confirmar a ativa&ccedil;&atilde;o de seu an&uacute;ncio!</a></center>"
                    VarConfEmail = VarConfEmail & "</td>"
                    VarConfEmail = VarConfEmail & "</tr>"
                    VarConfEmail = VarConfEmail & "</table>"
                    VarConfEmail = VarConfEmail & "</td>"
                    VarConfEmail = VarConfEmail & "</tr>"
                    VarConfEmail = VarConfEmail & "</table>"
                    
                    Dim objCliente
                    Set objCliente = Conn.Execute("SELECT * FROM Anunciantes WHERE Cod="&Session("Usuario"))
                    
                    Dim EnvioEmail
                    
                    Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")                
                        EnvioEmail.From = Titulo & "<" & EmailPadrao & ">"
                        EnvioEmail.To = objCliente("Email")
                        EnvioEmail.BodyFormat = 0
                        EnvioEmail.MailFormat = 0
                        EnvioEmail.Subject = "Confirmação de alteração de anúncio."
                        EnvioEmail.Body = VarConfEmail
                        EnvioEmail.Send                    
                    Set EnvioEmail = Nothing
                    
                        Response.Write LinhaHorizontal
                        Response.Write "<tr><td align='center' class='TituloCinzaEscuro'><br>Seu anúncio foi atualizado com sucesso.<br><br>Você alterou seu Plano de Assinatura e o anúncio será desativado até que o pagamento seja efetuado. <br><br>Você acaba de receber um e-mail de confirmação.<br>Para que possa ativar seu an&uacute;ncio e efetuar o pagamento, entre no mesmo e acesse o link!<br><br><a href='MeuAnuncio2.asp' class='TituloCinzaEscuro'>Voltar</a></td></tr>"
                    Else
                        Response.Write LinhaHorizontal
                        Response.Write "<tr><td align='center' class='TituloCinzaEscuro'><br>Seu anúncio foi atualizado com sucesso.<br><br><a href='MeuAnuncio2.asp' class='TituloCinzaEscuro'>Voltar</a></td></tr>"
                    End if
                End If
        %>
            </td>
          </tr>
        </table>
        </td>
        <td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td>
      </tr>
    </table>
    </td>
  </tr>
<!-- #include file="Includes/Rodape.asp" -->
a linha que da erro é esta:
Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&objAnuncio("CodCidade"))

Para testar estou mandando o Banco de Dados Zerado para analizar as tabelas, a principio deve estar certo, pois cadastra tudo certinho, so não altera os anuncios. Download Aqui

Se alguem Precisar de mais algum arquivo é so pedir!

Valeuuuuu

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá!

Fico feliz em poder ajudar...

Peguei a cópia do banco que postou, e não sei se percebeu, mas está tentando abrir uma tabela que não existe.

No seu Banco de Dados não existe a tabela "Cidades".

Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&objAnuncio("CodCidade"))

Vai ter que criar a tabela ou deletar esta linha.

Até mais..

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tentei apagar a linha 68 deu este erro.

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'Cidades'. Make sure it exists and that its name is spelled correctly.

/classificado/AltAnuncio.asp, line 91
Então fui la e apaguei a linha 91
objCidades2.Open()
Não Mostrou erro mas a pagina abrir assim erro_na_pagina.JPG Então Fui la e apaguei da linha 83 á 91
83 onjEstados_numRows2 = 0
84
85 Set objCidades2 = Server.CreateObject("ADODB.Recordset")
86 objCidades2.ActiveConnection = Conn
87 objCidades2.Source = "Select * from Cidades order by Cidade asc"
88 objCidades2.CursorType = 0
89 objCidades2.CursorLocation = 2
90 objCidades2.LockType = 1
91 objCidades2.Open()

Mostrou a mesma pagima que apareceu quando deletei a linha 91

Coloquei tudo novamente e criei uma tabela Cidades mas assim mesmo não deu, apresentou o mesmo erro como não existia o banco de dados cidades.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok, Vamos com calma...

1º) Qual a utilidade desta tabela Cidades no seu sistema?

Se não estou enganado, você deve ter um campo nesta página que deve ser carregado com o nome das cidades, certo?

2º) Você precisa buscar essas cidades em um banco de dados ou está inserido no código?

3º) Outro erro que achei agora: Dentro da sua tabela Anuncios, você não tem o campo com o nome "CodCidade" conforme declarado:

Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&objAnuncio("CodCidade"))

Você precisa ter certeza que o nome e tipo dos campos declarados no código, existem no Banco, senão vai quebrar muito a cabeça.

Boa Sorte!

Danilo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok, vou responder tuas perguntas amigo

1º) Qual a utilidade desta tabela Cidades no seu sistema? Não Utilizo tabela Cidades no meu sistema

Se não estou enganado, você deve ter um campo nesta página que deve ser carregado com o nome das cidades, certo? Não carrega nomes cidades é inserido manualmente, em todos cadastro de usuario, anuncio e outro o campo cidade é inserido pelo usuario

2º) Você precisa buscar essas cidades em um banco de dados ou está inserido no código? Não preciso buscar cidades

3º) Outro erro que achei agora: Dentro da sua tabela Anuncios, você não tem o campo com o nome "CodCidade" conforme declarado:

Set CidadeSel = Conn.Execute("SELECT * FROM Cidades WHERE Cod="&objAnuncio("CodCidade"))

Sim eu notei, mas não modifiquei por que as cidades estavam inserindo normalmente no caso de cadastro de usuario e anuncios ,se eu mudar o campo cidade para CodCidade terei que modificar todo meu sistema, posso cancelar esta opção de cidades na alteração de anuncios, mas tambem acredito que este campo CodCidade faz parte da Tabela Cidade que não exixte,o mais facil possivel seria mesmo tirar fora esta tabela cidades, pois ja tentei criar tabela Cidades com os campos Cod, CodEstado (Chave estrageira), CodCidade e o erro continua o mesmo, eu ate inserir algumas cidades, mas não fui feliz,

queres tentar modificar a tabela, assim poderás me mandar por e-mail ou por algum outro modo, estou aqui ansioso para terminar!!! Falta 0,99% é um detalhe para rodar o sistema.

Valeu danilo!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

E se ao invés de alterar o campo existente, você criar + 1 campo nesta tabela? Assim, não iria precisar alterar o sistema inteiro.

Senão, seria melhor tirar, para não bagunçar o sistema que já está pronto.

Danilo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok vamos lá

1ª Criei um campo CodCidade na tabela anuncios, não funcionou

2ª Criei a tabela Cidades com os campos Cod, CodCidade, Cidade, não funcionou tb.

3ª Criei o 1ª e o 2ª juntos etb não funcionou.

Passei a tarde fazendo testes e nada, não altera....

Vou analizar a pente fino para ver se encontro algum erro...

Se tiver alguma luz me da um toque....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...