bareta

utilize javascript.. movendo

huidhsaiudhsaiudhaisudasiuasd acontece... parabéns ai... posta o codigo pronto... e quanto ao hora inicial e final.... é por isso que se deve usar a data junto...

em vez de like para procurar entre datas use between

a função certa é essa: testei agora CALL AbreConexao on error resume next campos="ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA" valores="1,'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#" camp=split(campos,",") val=split(valores,",") strINS = "Insert into TBL_MAQUINAS_VENDA (" strx=")" strx2=") values (" total=ubound(camp) for i=0 to total x2="" x3="" for i2=lbound(camp) to i x5=trim(val(i2)) if x5="" then x5=0 if x5="''" then x5="'0'" x2=x2&camp(i2)&"," x3=x3&x5&"," x4=camp(i2) x2=x2 x3=x3 next if right(x2,1)="," then x2=left(x2,(len(x2)-1)) end if if right(x3,1)="," then x3=left(x3,(len(x3)-1)) end if sql=strINS&trim(x2)&strx2&trim(x3)&strx SET rsSQL = conexaoDB.EXECUTE(sql) if err<>0 then response.write "Campo "&x4&" gerou erro === "&sql&"<br><br>" end if next porque não cadastra? (a resolução que achei) - o banco não aceita registros em branco - devido ao relacionamento o campo id_usuario deve ter um id_usuario existente - remova a expressão: <% rsSQL.Close SET rsSQL = Nothing SET rsSalva = Nothing %> vo posta o código aqui.. <%@LANGUAGE="VBSCRIPT" %> <!-- #Include File="conecta.asp" --> <!-- #include file = "upload_funcoes.asp" --> <% '---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------ DIM conexaoDB , rsSalva , rsSQL , strINS , sql , sql13 , sql12 , strSQL , varDataCadastro DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5'============================================================================================================================ '----------------------------------# - FAZENDO O UPLOAD - #----------------------------------------------------------------------- ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin '---------------# - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS - #---------------------------------------- ' Recuperando os Dados Digitados ---------------------- varId_usuario = session("id_usuario") varMarca = UploadRequest.Item("txt_Marca").Item("value") varModelo = UploadRequest.Item("txt_Modelo").Item("value") varFormato = UploadRequest.Item("txt_Formato").Item("value") varAnoFabricacao = UploadRequest.Item("txt_AnoFabricacao").Item("value") varTipo = UploadRequest.Item("txt_Tipo").Item("value") varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value") varAparencia = UploadRequest.Item("txt_Aparencia").Item("value") varCidade = UploadRequest.Item("txt_LocCidade").Item("value") varEstado = UploadRequest.Item("txt_LocEstado").Item("value") varNome = UploadRequest.Item("txt_NomeContato").Item("value") varEmpresa = UploadRequest.Item("txt_EmpresaContato").Item("value") varDDD = UploadRequest.Item("txt_DDD_FoneContato").Item("value") varFone = UploadRequest.Item("txt_TelefoneContato").Item("value") varNome = UploadRequest.Item("txt_NomeContato").Item("value") varEmail = UploadRequest.Item("txt_EmailContato").Item("value") varPreco = UploadRequest.Item("txt_Preco").Item("value") varPagamento = UploadRequest.Item("txt_Pagamento").Item("value") varObservacoes = UploadRequest.Item("txt_InfoComplementar").Item("value") varDataCadastro = formatDateTime(date,2) '============================================================================================================================= ' TRABALHANDO FOTOs ' Tipo de arquivo que esta sendo enviado tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType") tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType") tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType") tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType") tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName") caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName") caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName") caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName") caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName") ' Nome dos arquivos enviados nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\")) nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\")) nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\")) nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\")) ' Conteudo binario dos arquivos enviados foto1 = UploadRequest.Item("txt_foto1").Item("Value") foto2 = UploadRequest.Item("txt_foto2").Item("Value") foto3 = UploadRequest.Item("txt_foto3").Item("Value") foto4 = UploadRequest.Item("txt_foto4").Item("Value") foto5 = UploadRequest.Item("txt_foto5").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("Fotos_maquinas_venda/") nome_foto1 = "/"&nome_foto1 nome_foto2 = "/"&nome_foto2 nome_foto3 = "/"&nome_foto3 nome_foto4 = "/"&nome_foto4 nome_foto5 = "/"&nome_foto5 ' pasta + nome dos arquivos cfoto1 = "Fotos_maquinas_venda" + nome_foto1 cfoto2 = "Fotos_maquinas_venda" + nome_foto2 cfoto3 = "Fotos_maquinas_venda" + nome_foto3 cfoto4 = "Fotos_maquinas_venda" + nome_foto4 cfoto5 = "Fotos_maquinas_venda" + nome_foto5 ' Fazendo o Upload do arquivo selecionado if cfoto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(cfoto1) MyFile.Write chr(AscB(MidB(cfoto1,i,1))) Next MyFile.Close end if if cfoto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(cfoto2) MyFile.Write chr(AscB(MidB(cfoto2,i,1))) Next MyFile.Close end if if cfoto3 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3) For i = 1 to LenB(cfoto3) MyFile.Write chr(AscB(MidB(cfoto3,i,1))) Next MyFile.Close end if if cfoto4 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4) For i = 1 to LenB(cfoto4) MyFile.Write chr(AscB(MidB(cfoto4,i,1))) Next MyFile.Close end if if cfoto5 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5) For i = 1 to LenB(cfoto5) MyFile.Write chr(AscB(MidB(foto5,i,1))) Next MyFile.Close end if '================================================================================================================================= '-----------------# - SUBSTITUIÇÃO DE CARACTERES NULOS PRESENTES NO FORMULARIO - #-------------------------------------------- varPreco = REPLACE(varPreco, "." , " ") varPreco = REPLACE(varPreco, "," , ".") varFone = Replace(varFone , "-" , " " ) '============================================================================================================================= '-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - #---------------------------------------------- CALL AbreConexao strINS = "Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ("&varId_usuario&",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)" SET rsSQL = conexaoDB.EXECUTE(sql) '================================================================================================================================== %> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style1 {font-size: 12px} .style2 {color: #FFFFFF} .style3 {font-size: 12px; color: #FFFFFF; } .style5 {font-size: 12px; font-weight: bold; color: #FFFFFF; } .style6 {color: #33507D} .style9 { font-size: 11px; color: #000000; } .style11 {color: #33507D; font-size: 10px; } .style14 {color: #33507D; font-size: 10px; font-weight: bold; } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } a:link { color: #33507D; } a:visited { color: #33507D; } a:hover { color: #456DAB; } a:active { color: #456DAB; } --> </style> <html> <head> <title>Cadastrando Máquina a venda</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> </head> <body bgcolor="#FFFFFF"> <table border="0" cellpadding="0" cellspacing="0" width="546"> <!-- fwtable fwsrc="Untitled" fwpage="Page 1" fwbase="nosso_objetivo.jpg" fwstyle="Dreamweaver" fwdocid = "70924152" fwnested="0" --> <tr> <td><img src="imagens/spacer.gif" width="2" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="31" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="161" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="94" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="77" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="113" height="1" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><img name="principal_r1_c1" src="imagens/principal_r1_c1.jpg" width="32" height="29" border="0" alt=""></td> <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td> <td colspan="5" bgcolor="#E1E8EE">&nbsp;</td> <td><img src="imagens/spacer.gif" width="1" height="30" border="0" alt=""></td> </tr> <tr> <td colspan="9" valign="middle" background="imagens/nosso_objetivo_r2_c3.jpg"><div align="right"><span class="style1"><span class="style5">Cadastro de Máquina á Venda</span>&nbsp;&nbsp; </span></div></td> <td><img src="imagens/spacer.gif" width="1" height="22" border="0" alt=""></td> </tr> <tr> <td><img name="nosso_objetivo_r3_c1" src="imagens/nosso_objetivo_r3_c1.jpg" width="2" height="14" border="0" alt=""></td> <td colspan="3" bgcolor="#F4F9FF">&nbsp;</td> <td colspan="5" bgcolor="#E1E8EE"><div align="center"></div></td> <td><img src="imagens/spacer.gif" width="1" height="14" border="0" alt=""></td> </tr> <tr> <td colspan="4"><img name="nosso_objetivo_r4_c1" src="imagens/nosso_objetivo_r4_c1.jpg" width="216" height="4" border="0" alt=""></td> <td colspan="5" rowspan="4" align="left" valign="top" bgcolor="#F4F9FF"> <table width="100%" border="0" cellspacing="0" cellpadding="3"> <tr> <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"> </td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><table width="100%" border="0"> <tr> <td> <% '========================================================================================================================== %></td> </tr> </table></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><div align="center"><span class="style14"></span></div></td> </tr> </table> </td> <td><img src="imagens/spacer.gif" width="1" height="4" border="0" alt=""></td> </tr> <tr> <td colspan="4" align="center" valign="bottom"><table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td><div align="justify"><span class="style11">O formulário ao lado, permite o cadastro de máquinas a venda. Se você deseja vender seu equipamento basta anunciar em nosso site através do cadastro de máquinas a venda. O anúncio é gratuíto. Entretando, o usuário deverá estar de acordo com as normas para a utilização dos serviços prestados pelo site.<br> <br> Conheça as normas de utilização dos nossos serviços em:<br> <strong>Como funciona</strong></span><span class="style5"><span class="style6"><br> </span></span></div></td> </tr> </table> <span class="style2"><span class="style6"><br> <br> <span class="style1"><strong>Para maiores informações, <br> favor entrar em contato.</strong></span><br> </span><br> </span><span class="style3"><span class="style9">Fones: (62) 9159-3858 / 3584-4753</span></span></td> <td><img src="imagens/spacer.gif" width="1" height="290" border="0" alt=""></td> </tr> <tr> <td colspan="4" align="center" valign="middle" background="imagens/nosso_objetivo_r6_c1.jpg"><span class="style4"> E-mail: gilmarcastro@terra.com.br</span> </td> <td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td> </tr> <tr> <td colspan="4"><img name="nosso_objetivo_r7_c1" src="imagens/nosso_objetivo_r7_c1.jpg" width="216" height="43" border="0" alt=""></td> <td><img src="imagens/spacer.gif" width="1" height="43" border="0" alt=""></td> </tr> </table> </body> </html>

afzz.. hasidhsad você cria uma sub com o insert... e não executa ela... portanto nada é feito... só chamar a abertura e fechamento da conexao na partes em negrito

troca no final ali if error<>"" then response.write "Campo "&x4&" gerou erro<br>" end if por if err<>"" then response.write "Campo "&x4&" gerou erro<br>" end if escrevi errado... não deu erro porque no inicio do codigo o on error resume next faz que eles sejam ignorados

joguei seu codigo no dreanweaver aqui... e dei uma olhada... cara isso ta horrivel.. e se não aparecer nada recomendo refazer e reorganizar todo esse código. e verificar os dados no banco... porque no sql num tem mais o q fazer <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" n = 1 id = Request.QueryString("checkbox") if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "tblUsers.sid = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) stringSQL = "select * from tblUsers WHERE "&sql_id&"" Set ObjRs = objConn.Execute(stringSQL) if not objrs.eof then %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> </head> <body> <div id="global" STYLE="border: solid; border-width: 1px;border-color: #011C37;"> <div id="header"><!--#include file="header.asp"--></div> <div id="list1"><!--#include file="menu.asp"--></div> <div id="main"> <table width="650" border="1" cellspacing="0" cellpadding="0"> <tr> <td>horai</td> <td>horaf</td> <td>closedate</td> <td>valor da regra</td> </tr> <% While Not objRS.EOF nomecliente = objRS("fname") logincliente = objRS("uid") ComandoSQL3 = "select * from problems where uid = '"&logincliente&"'" Set ObjRs3 = objConn.Execute(ComandoSQL3) if not objrs3.eof then While Not objRS3.EOF ComandoSQL1 = "select * from regrashora where cliente = '"&nomecliente&"'" Set ObjRs1 = objConn.Execute(ComandoSQL1) hf = datepart ("h", objRS3("close_date")) nf = datepart ("n", objRS3("close_date")) hnf = (hf&nf) * 10 tipoatendimento = objRS3("department") if objrs1.eof then While Not objRS1.EOF hir = datepart ("h", objRS1("horai")) nir = datepart ("n", objRS1("horai")) hnir = (hir&nir) * 10 hfr = datepart ("h", objRS1("horaf")) nfr = datepart ("n", objRS1("horaf")) hnfr = (hfr&nfr) * 10 ComandoSQL5 = "select valor from regrashora where cliente = '"&nomecliente1&"' and "&hnf&" between "&hnir&" and "&hnfr response.write "comandosql5 = " & ComandoSQL5 & "<BR>" 'response.end Set ObjRs5 = objConn.Execute(ComandoSQL5) if not objrs5.eof then While Not objRS5.EOF %> <tr> <td><%Response.write objRS1("horai")%></td> <td><%Response.write objRS1("horaf")%></td> <td><%Response.write FormatDateTime(objRS3("close_date"),4)%></td> <td><%Response.write objRS5("valor")%></td> </tr> <% objRS5.MoveNext Wend end if objRS1.MoveNext Wend end if objRS3.MoveNext Wend end if objRS.MoveNext Wend else response.write "nananananana" end if end if %> </table> </div> </div> <% objRs1.close Set objRs1 = Nothing objRs3.close Set objRs3 = Nothing objRs5.close Set objRs5 = Nothing objConn.close %> </body> </html>

select valor da tabela regrashora quando cliente='notax' e 16250 esta entre 18300 e 23590 com esse debug você pode fica alterando ate 2050 esse código... que não vai aparece nada na tela também.... ComandoSQL5 = "select valor from regrashora where cliente = '"&nomecliente&"' and "&hnr&" between "&hni&" and "&hnf set rs=conn.execute(sql) if rs.eof then response.write "nada encontrado" else while not rs.eof response.write rs("cliente")&"<br>" rs.movenext wend end if rs.close set rs=nothing

mesmo assim acho que esse select ai num rola tem q ser algo assim... ComandoSQL5 = "select valor from regrashora where cliente = '"&nomecliente&"' and hnf between "&hni&" and "&hnf ou ComandoSQL5 = "select valor from regrashora where cliente = '"&nomecliente&"' and "&hnr&" between "&hni&" and "&hnf

pra finaliza faça o seguinte mude o nome do campo preço para preço e teste a sql if varDataCadastro<>"" then varDataCadastro=cdate(varDataCadastro) strINS = "Insert into TBL_MAQUINAS_VENDA (MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '#"& varDataCadastro &"#')" CALL AbreConexao SET rsSQL = conexaoDB.EXECUTE(strINS) se mesmo assim não der certo faça o insert campo a campo... ou use a funcao (deixei o id_usuario fora se ele for autonum adicione ele e mude o campo para numero), fiz agora talvez não funcione e precie de um ajuste... mais depois fica uma função fixa para depurar qualquer insert... CALL AbreConexao on error resume next campos="MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA" valores="'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '#"& varDataCadastro &"#'" camp=split(campos,",") val=split(valores,",") strINS = "Insert into TBL_MAQUINAS_VENDA (" strx=")" strx2=" ) values ( " total=ubound(camp) for i=0 to total x2="" x3="" for i2=lbound(camp) to i x2=camp(i2)&"," x3=val(i2)&"," x4=camp(i2) x2=x2 x3=x3 next if right(x2,1)="," then x2=left(x2,(len(x2)-1)) if right(x3,1)="," then x2=left(x3,(len(x3)-1)) SET rsSQL = conexaoDB.EXECUTE(strINS&x2&strx2&strx) if error<>"" then response.write "Campo "&x4&" gerou erro<br>" end if next

veja o q a sql escreve... strINS = "Insert into TBL_MAQUINAS_VENDA (MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')" response.write strINS response.end() num nivel maior de detalhe sql="MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA" sql3=split("'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"'",",") sql2=split(sql,",") response.write "strINS = ""Insert into TBL_MAQUINAS_VENDA (<br>" for i=lbound(sql2) to ubound(sql2) response.write sql2(i)&"="&sql3(i)&"<br>" next response.write ")" primeiro descubra o que causa o erro... depois porque o form ta em branco...

repare também nesse fechamento de parenteses antes do final da sql o melhor seria usar um componente nesse upload.

galera seguinte to querendo monta um sistema semelhante as TIMELINES que tem no assembla... http://trac.assembla.com/L2Emu/timeline a ideia é colocar um controle de alterações e visualização das mesmas... usando fso eu pego o arquivo por upload, leio, gravo no bd divido em linhas, conto as linhas e cito as linhas que estão diferentes. beleza... agora quero ser mais preciso... não fiz nada do que falei ai mais tenho em mente já... mais ai tava pensando como quebra a linha pra ler letra por letra??? simples né... se alguém souber posta ai....

caminho mais rápido para descobrir esse erro começe a depurar seu código: CALL AbreConexao response.write strINS response.end() SET rsSQL = conexaoDB.EXECUTE(strINS) o resultado pode mostrar onde seu erro, eu acho que pode ser na data... strINS = strINS & "#"& varDataCadastro&"#)" uma simples sobrando no final...

imprima o nome do admin primeiro para de pois excluir <% Else set lista_admin = lojaDB.Execute("SELECT usuario FROM admin WHERE id=" & Request.QueryString("id")) %> <tr width=100%><td width=100%><font color=red>Administrador <b><%=lista_admin("usuario")%></b> removido com sucesso.</font></tr> <% lojaDB.Execute("DELETE FROM admin WHERE id=" & Request.QueryString("id")) End If

ok... fechando

formatnumber(numero,2) faz o loop dos departamentos id-departamento-img

nossa mano... q tosco... haihdaisudsaiudhsaidhasiudsh poe uns machete ai... faz um esquartejamento de poquemon logo.... é mais divertido.... kkkkkkkkk

sql="select count(*) as total from cursos where curso="&curso set rs=conn.execute(sql) if not rs.eof then response.write "total de "&rs("total")&" inscritos nesse curso" else response.write "curso não cadastrado" end if rs.close set rs=nothing

veja o seguinte não entendo qual seu critério de comparação... 18:30 estaria no banco né... então lá tem q ser o nome do campo pro sql poder comparar e pegar todos registros do intervalo... algo semelhante seria a mesma coisa que buscar um id verificando no sql da seguinte forma sql="select * from tabela where "&id&"="&id sql="select * from tabela where id="&id

sugiro estudar o do banco central pois o que você fára é o mesmo.... pega o codigo fonte do estadão e alterar pelo asphttp

<td id="Imagem"><img src=./<%=imagem%> width="30" height="30" border=0> <br> <%="mensagem ou etc e tal"%> <br> <%=rsBuscaProdutos("campo_do_banco")%> </td>

simples e funcional para radio online esse uso no meu site: <EMBED style="FILTER: xray" name=RAOCXplayer pluginspage=http://www.microsoft.com/Windows/Downloads/Contents/Products/MediaPlayer/ align=top src="http://portalmaracaju.com.br/radio/Radio.asx" width="100%" height=50 type=application/x-mplayer2 autosize="true" volume="-1" showstatusbar="1" autoplay="true" allowscriptaccess="always" loop="false"></DIV><IFRAME align=top marginWidth=0 marginHeight=0 src="player_arquivos/scan.htm" frameBorder=0 width=0 scrolling=no height=0>

ops agora q olhei d novo substitua <%=imagem%> por <%=rsBuscaProdutos("imagem")%>

exemplo de logout link: <A href=default.asp?act=sair>sair</a> default.asp act=request.querystring("act") if act="sair" then session.abandon() response.redirect "pagina.asp" end if