[Resolvido] Checkbox com Upload

[MylaLopes 0]

Estou utilizando o Upload pois nesse mesmo arquivo trabalho com imagens.

Entretanto, quando tento recuperar os valores do checkbox, da o seguinte erro:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'Upload.item(...)'

 

/admin/VeiculoVenda_Grava.asp, line 118

 

Para recuperar os valores estou fazendo da seguinte maneira:

If  Upload.Item("IDCondComSel").Value.String <> "" Then
   sSql = " INSERT INTO dbo.VeicVendaCondComerciais (IDVeicVenda, VeicDtaAlteracao, IDCondComercial) " _
   & " SELECT "& Codigo &",CONVERT(DATETIME, '"& VeicDtaAlteracao &"', 103), IDCondComercial FROM dbo.CondicoesComerciais WHERE IDCondComercial IN(0"& Upload.Item("IDCondComSel").Value.String &")"
    Conn.Execute(sSql)	
End If

Criei uma function para verificar se o objeto existe:

// Verificar Checks selecionados: Condições Comerciais
       var x = "";
       var selecionados = "";
       x = IDCondComSel.value + "";
       while (x.indexOf(",", 0) != -1) {
           var num_this = "";
           var ok = 0;

           while (ok == 0) {
               if (x.indexOf(",", 0) != 0) {
                   num_this = num_this + x.substring(0, 1);
                   x = x.substring(1, x.length);
               } else {
                   ok = 1;
               }
           }
           x = x.substring(1, x.length);

           var arr = document.getElementById("cb" + num_this);
           if (arr.checked) {
               if (selecionados == "") {
                   selecionados = num_this;
               } else {
                   selecionados = selecionados + "," + num_this;
               }
           }
       }

       var arr = document.getElementById("cb" + x);
       if (arr.checked) {
           if (selecionados == "") {
               selecionados = x;
           } else {
               selecionados = selecionados + "," + x;
           }
       }

       IDCondComSel.value = selecionados;

Alguém poderia me auxiliar nesse probleminha?

[Vinicius Ianni 189]

A linha 118 seria qual ?

Dá um response.write nesse upload.item e veja como está vindo esse campo do formulário

[MylaLopes 0]

A 118 é quando eu tento carregar o check:

If  Upload.Item("IDCondComSel").Value.String <> "" Then 
   sSql = " INSERT INTO dbo.VeicVendaCondComerciais (IDVeicVenda, VeicDtaAlteracao, IDCondComercial) " _ 
   & " SELECT "& Codigo &",CONVERT(DATETIME, '"& VeicDtaAlteracao &"', 103), IDCondComercial FROM dbo.CondicoesComerciais WHERE IDCondComercial IN(0"& Upload.Item("IDCondComSel").Value.String &")" 
    Conn.Execute(sSql)  
End If

 

Não consigo dar um response.write no Upload.Item("IDCondComSel").Value.String pois ele da o mesmo erro.

[Vinicius Ianni 189]

Testa assim:

if UploadRequest.Item("IDCondComSel").Item("Value") <> "" then 
sSql = " INSERT INTO dbo.VeicVendaCondComerciais (IDVeicVenda, VeicDtaAlteracao, IDCondComercial) " _ 
   & " SELECT "& Codigo &",CONVERT(DATETIME, '"& VeicDtaAlteracao &"', 103), IDCondComercial FROM dbo.CondicoesComerciais WHERE IDCondComercial IN(0"& Upload.Item("IDCondComSel").Value.String &")" 
    Conn.Execute(sSql)  
End If

[MylaLopes 0]

Consegui resolver o problema.

Fiz uma função que gera checkbox incluindo já um campo hidden e funcionou!

Private Sub GeraCheckB(ByVal Nome, ByVal classe, ByVal Tam, ByVal Chave, ByVal Texto, ByVal Tabela, ByVal Filtro, ByVal Ordem, ByVal Sel, ByVal CampoHidden)

SqlGLB = " SELECT "&Chave&", " & Texto _
	   & " FROM " & Tabela _
	   & "" & IIf(Filtro & "" <> "", " WHERE " & Filtro, "") _
	   & " ORDER BY " & IIF(Ordem & "" <> "", Ordem, "2")

Set RsGLB = Server.CreateObject("ADODB.RecordSet")
RsGLB.Open SqlGLB, Conn, 0, 1

strSelect = ""
strCod = ""
arSel = 0
If Not IsNull(Sel) Then arSel = Split(Replace(Sel, " ", ""), ",") Else arSel = 0 End If

While Not RsGLB.EOF
    Check = false
    For x = 0 to Ubound(arSel)

	    if arSel(x) = RsGLB.Fields(0).Value & "" Then 
	        Check = True
	    End If
    Next

	selected = ""
	strSelect = strSelect & "<input type=""checkbox"" "& iif(Check=true, "checked", "") &" id=""cb"&RsGLB.Fields(0).value&""" name=""cb"&RsGLB.Fields(0).value&""" value="""&RsGLB.Fields(0).value&""" />"&RsGLB.Fields(1).value&"<br />"

	If strCod = "" Then
        strCod = RsGLB.Fields(0).value	    
	Else
   		strCod = strCod&","&RsGLB.Fields(0).value
	End If

	RsGLB.MoveNext
Wend

RsGLB.Close
Set RsGLB = Nothing

strSelect = strSelect&"<input type=""hidden"" name="""&CampoHidden&""" value="""&strCod&""" />"

Response.write(strSelect)

strSelect = ""

End Sub

 

Muito obrigada!! :)

[Vinicius Ianni 189]

Que bom que resolveu !

 

Precisando, estamos ai :joia: