Ir para conteúdo
Fórum Script Brasil

ANDRE_GUSTAVO

Membros
  • Total de itens

    194
  • Registro em

  • Última visita

Tudo que ANDRE_GUSTAVO postou

  1. To tentando abrir uma pop up, mas ta dificil... ta dando esse erro: Linha: 12 Caracter: 4 Erro: argumento invalido codigo: <title>Pagina Principal</title> <script language="JavaScript"> function abrir(URL) { var width = 500; var height = 300; var left = 99; var top = 99; window.open(URL,'Útimos Anuncios', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=yes, directories=no, menubar=yes, resizable=yes, fullscreen=no'); } </script> link: <a href="java script:abrir('detalhespagprincipal.asp?id=<%=rsMaquinas("ID_MAQUINAS_VENDER")%>');"> +detalhes </a> Desde já obrigado pela atenção
  2. Não deu nenhum erro, porem os dados não estao sendo registrados no db como deveria ainda esta sendo registrado varios registros.
  3. Bom dia Rafael, Eu preencho o form e mando enviar o cadastro ai é gravado no db uns 10 ou mais registros de uma vez da uma olhada na TBL_MAQUINA_VENDA que esta no db No link http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar Apenas os valores do id o caminho das fotos e a data estao sendo enviados corretamentes.
  4. Cara ta sendo enviado varios registros de uma so vez para o banco de dados e os unicos dados que estao sendo registrados corretamente, são o Id do usuario o caminho das fotos e a data, o restantante dos dados estao todos com o valor zero " 0 ", tanto os campos numericos quanto campos de texto e memorando. Link Db http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar
  5. Olha so o que foi impresso na pagina Campo preço gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0') Campo PAGAMENTO gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0') Campo OBSERVACOES gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0') Campo FOTO1 gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG') Campo FOTO2 gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG') Campo FOTO3 gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG') Campo FOTO4 gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG') Campo FOTO5 gerou erro === 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) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG','Fotos_maquinas_venda/828438-015.JPG') Campo DATA gerou erro === 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 (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG','Fotos_maquinas_venda/828438-015.JPG',#3/9/2008#) olha o que ta acontecendo no DB http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar Meu codigo: <%@LANGUAGE="VBSCRIPT" %> <!--#include file ="conexaoDB.inc" --> <!-- #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) '================================== ' 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 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= ""& 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 &"#" 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 %>
  6. Rafael, A tabela "TBL_MAQUINAS_VENDA" recebe o Id do usuario já cadastrado, da tabela "TBL_USUARIOS" Eu estou enviando o ID do Usuario para o INSERT, atravez de SESSION, pois para que o usuario possa cadastrar alguma maquina ele deve primeiramente se cadastrar como usuario do site. Vou colocar aqui so a parte do codigo do Id, qualquer coisa eu explico novamente O id estou passando assim Inicio do codigo varId_usuario = session("Id_Usuario") - - - - - Agora la no insert strINS = " Insert into TBL_MAQUINAS_VENDA ( ID_USUARIO - - - - Relacionei as tabelas para que o administrador do site, possa saber qual usuario cadastrou "tal máquina". Não sei se deu pra entender, qualquer coisa avisa Iai bareta Cara o trem aqui ta froydi... gerou erro em todos os campos Campo MARCA gerou erro Campo MODELO gerou erro Campo FORMATO gerou erro Campo ANO_FABRICACAO gerou erro Campo TIPO gerou erro Campo FUNCIONAMENTO gerou erro Campo APARENCIA gerou erro Campo LOC_CIDADE gerou erro Campo LOC_ESTADO gerou erro Campo NOME gerou erro Campo EMPRESA gerou erro Campo DDD gerou erro Campo TELEFONE gerou erro Campo E_MAIL gerou erro Campo preço gerou erro Campo PAGAMENTO gerou erro Campo OBSERVACOES gerou erro Campo FOTO1 gerou erro Campo FOTO2 gerou erro Campo FOTO3 gerou erro Campo FOTO4 gerou erro Campo FOTO5 gerou erro Campo DATA gerou erro
  7. Fala ai Rafael... outro link com os arquivos http://users6.nofeehost.com/webtecno/teste.rar O fato das tabelas estarem relacionadas, deve ter alguma coisa haver ou não? o INSERT é a mesma coisa para as tabelas relacionadas? Essa tabela "TBL_MAQUINAS_VENDA" que recebe os dados da máquina a venda, é relacionada com outra tabela "TBL_USUARIOS" por intermedio do campo "ID_USUARIO". A "TBL_MAQUINAS_VENDA" recebe o ID do usuario para o controle de qual o usuario fez o cadastro da maquina. Desde já eu agradeço a todos que estao me ajudando nesse problema! Valeu mesmo pela ajuda de vocês.
  8. Iai bareta, so na paz.... Cara o negocio parou de dar o erro, mas não esta registrando na tabela nem enviando as fotos. Visualmente da certo, mas quando verifico o DB e a pasta que recebe as fotos, nada foi alterado.
  9. ANDRE_GUSTAVO

    Problemas com IFRAME

    fala ai renan beleza.... da uma olhada nesse tópico ai, acho que pode ajudar você resolver http://scriptbrasil.com.br/forum/index.php?showtopic=123578 ate +
  10. os arquivos estão nesse link ai: http://webtecno.webng.com/teste.rar se precisar de outros arquivos é so falar valeu
  11. bareta... olha so o que aconteceu era isso mesmo? strINS = "Insert into TBL_MAQUINAS_VENDA ( ID_USUARIO = 2 MARCA ='' MODELO = '' FORMATO = '' ANO_FABRICACAO = TIPO = '' FUNCIONAMENTO = '' APARENCIA = '' LOC_CIDADE = '' LOC_ESTADO = '' NOME = '' EMPRESA = '' DDD = TELEFONE = E_MAIL = '' preço = PAGAMENTO = '' OBSERVACOES = '' FOTO1 = 'Fotos_maquinas_venda/828274-007.JPG' FOTO2 = 'Fotos_maquinas_venda/874590-001.JPG' FOTO3 = 'Fotos_maquinas_venda/828439-020.JPG' FOTO4 = 'Fotos_maquinas_venda/427807-001.JPG' FOTO5 = 'Fotos_maquinas_venda/828438-022.JPG' DATA= '1/9/2008' )
  12. Rafael, a pagina do form, esta com as tags que você citou. Ainda continuar erro de INSERT INTO pagina do formulario: <%@LANGUAGE="vb script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Tipo:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Tipo" id="txt_Tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <% Do While Not rsTIPO.EOF %> <option value="<% = rsTIPO("ID_TIPO") %>"><% = rsTIPO("TIPO") %></option> <% rsTIPO.MoveNext Loop rsTIPO.Close Call fechaConexao Set rsTIPO = Nothing %> </select></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Funcionamento:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Funcionamento" id="txt_Funcionamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="Perfeita">Perfeita</option> <option value="Excelente">Excelente</option> <option value="Muito Boa">Muito Boa</option> <option value="Boa">Boa</option> <option value="Regular">Regular</option> <option value="Ruim">Ruim</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Apar&ecirc;ncia:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Aparencia" id="txt_Aparencia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="Perfeita">Perfeita</option> <option value="Excelente">Excelente</option> <option value="Muito Boa">Muito Boa</option> <option value="Boa">Boa</option> <option value="Regular">Regular</option> <option value="Ruim">Ruim</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Localiza&ccedil;&atilde;o da M&aacute;quina </span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Cidade:</div></td> <td bgcolor="#F4F9FF"><input name="txt_LocCidade" type="text" id="txt_LocCidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("cidade") %>" size="28" maxlength="12" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Estado:</div></td> <td bgcolor="#F4F9FF"><select name="txt_LocEstado" id="txt_LocEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1">Selecione</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AP">AP</option> <option value="AM">AM</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="muito">muito</option> <option value="MS">MS</option> <option value="MG">MG</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PR">PR</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RS">RS</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="SC">SC</option> <option value="SP">SP</option> <option value="SE">SE</option> <option value="TO">TO</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es para Contato </span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Nome: </div></td> <td bgcolor="#F4F9FF"><input name="txt_NomeContato" type="text" id="txt_NomeContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("nome") %>" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Empresa:</div></td> <td bgcolor="#F4F9FF"><input name="txt_EmpresaContato" type="text" id="txt_EmpresaContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Telefone:</div></td> <td bgcolor="#F4F9FF"><input name="txt_DDD_FoneContato" type="text" id="txt_DDD_FoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero2(this);" value="<% =session("ddd") %>" size="3" maxlength="2" /> <input name="txt_TelefoneContato" type="text" id="txt_TelefoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero3(this);" value="<% =session("telefone") %>" size="21" maxlength="12" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">E-mail:</div></td> <td bgcolor="#F4F9FF"><input name="txt_EmailContato" type="text" id="txt_EmailContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("email") %>" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Condi&ccedil;&otilde;es de Pagamento</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> Pre&ccedil;o:</div></td> <td bgcolor="#F4F9FF"><input name="txt_Preco" type="text" id="txt_Preco" onKeyUp="java script:Sonumero4(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Pagamento:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Pagamento" id="txt_Pagamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="&Aacute; Vista">&Aacute; Vista</option> <option value="&Aacute; Combinar">&Aacute; Combinar</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es Complementares</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><div align="center"> <textarea name="txt_InfoComplementar" id="txt_InfoComplementar" cols="28" rows="5">Digite aqui alguma observa&ccedil;&atilde;o ou dados do equipamento que jugar importante.</textarea> </div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Fotos do Equipamento</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 1:</div> </div></td> <td bgcolor="#F4F9FF"><label> <input name="txt_foto1" type="file" id="txt_foto1" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /> </label></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 2:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto2" type="file" id="txt_foto2" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 3:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto3" type="file" id="txt_foto3" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 4:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto4" type="file" id="txt_foto4" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Foto 5:</div> <div align="right"></div></td> <td bgcolor="#F4F9FF"><input name="txt_foto5" type="file" id="txt_foto5" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><div align="center"> <input type="submit" name="button" id="button" style=" font-size:10px; color:#FFFFFF; background-color:#33507C; font-family:Verdana, Arial, Helvetica, sans-serif"value="Cadastrar" /> </div></td> </tr> </table> </form> </body> </html> QUANDO MANDO EXIBIR APARECE ISSO AI.... AINDA NÃO ESTA SENDO ENVIADO OS VALORES DOS OUTROS CAMPOS DO FORMULARIO, SOMENTE O ID DO USUARIO AS FOTOS E A DATA ESTAO SENDO ENVIADOS 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 ( 2,'', '', '', , '', '', '', '', '', '', '', , , '', '', '', '', 'Fotos_maquinas_venda/828274-007.JPG', 'Fotos_maquinas_venda/874590-001.JPG', 'Fotos_maquinas_venda/828439-020.JPG', 'Fotos_maquinas_venda/427807-001.JPG', 'Fotos_maquinas_venda/828438-022.JPG', '1/9/2008')
  13. Não deu certo cara... olha o erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO. /GilMaquinas/salva_maquinavenda.asp, line 154 linha 154 SET rsSQL = conexaoDB.EXECUTE(strINS)
  14. Da uma olhada ai... Página do formulario: form_venda.asp <%@LANGUAGE="vb script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Tipo:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Tipo" id="txt_Tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <% Do While Not rsTIPO.EOF %> <option value="<% = rsTIPO("ID_TIPO") %>"><% = rsTIPO("TIPO") %></option> <% rsTIPO.MoveNext Loop rsTIPO.Close Call fechaConexao Set rsTIPO = Nothing %> </select></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Funcionamento:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Funcionamento" id="txt_Funcionamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="Perfeita">Perfeita</option> <option value="Excelente">Excelente</option> <option value="Muito Boa">Muito Boa</option> <option value="Boa">Boa</option> <option value="Regular">Regular</option> <option value="Ruim">Ruim</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Apar&ecirc;ncia:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Aparencia" id="txt_Aparencia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="Perfeita">Perfeita</option> <option value="Excelente">Excelente</option> <option value="Muito Boa">Muito Boa</option> <option value="Boa">Boa</option> <option value="Regular">Regular</option> <option value="Ruim">Ruim</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Localiza&ccedil;&atilde;o da M&aacute;quina </span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Cidade:</div></td> <td bgcolor="#F4F9FF"><input name="txt_LocCidade" type="text" id="txt_LocCidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("cidade") %>" size="28" maxlength="12" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Estado:</div></td> <td bgcolor="#F4F9FF"><select name="txt_LocEstado" id="txt_LocEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1">Selecione</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AP">AP</option> <option value="AM">AM</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="muito">muito</option> <option value="MS">MS</option> <option value="MG">MG</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PR">PR</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RS">RS</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="SC">SC</option> <option value="SP">SP</option> <option value="SE">SE</option> <option value="TO">TO</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es para Contato </span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Nome: </div></td> <td bgcolor="#F4F9FF"><input name="txt_NomeContato" type="text" id="txt_NomeContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("nome") %>" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Empresa:</div></td> <td bgcolor="#F4F9FF"><input name="txt_EmpresaContato" type="text" id="txt_EmpresaContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Telefone:</div></td> <td bgcolor="#F4F9FF"><input name="txt_DDD_FoneContato" type="text" id="txt_DDD_FoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero2(this);" value="<% =session("ddd") %>" size="3" maxlength="2" /> <input name="txt_TelefoneContato" type="text" id="txt_TelefoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero3(this);" value="<% =session("telefone") %>" size="21" maxlength="12" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">E-mail:</div></td> <td bgcolor="#F4F9FF"><input name="txt_EmailContato" type="text" id="txt_EmailContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("email") %>" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Condi&ccedil;&otilde;es de Pagamento</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> Pre&ccedil;o:</div></td> <td bgcolor="#F4F9FF"><input name="txt_Preco" type="text" id="txt_Preco" onKeyUp="java script:Sonumero4(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Pagamento:</div></td> <td bgcolor="#F4F9FF"><select name="txt_Pagamento" id="txt_Pagamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <option value="&Aacute; Vista">&Aacute; Vista</option> <option value="&Aacute; Combinar">&Aacute; Combinar</option> </select></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es Complementares</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><div align="center"> <textarea name="txt_InfoComplementar" id="txt_InfoComplementar" cols="28" rows="5">Digite aqui alguma observa&ccedil;&atilde;o ou dados do equipamento que jugar importante.</textarea> </div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Fotos do Equipamento</span></div></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 1:</div> </div></td> <td bgcolor="#F4F9FF"><label> <input name="txt_foto1" type="file" id="txt_foto1" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /> </label></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 2:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto2" type="file" id="txt_foto2" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 3:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto3" type="file" id="txt_foto3" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right"> <div align="right">Foto 4:</div> </div></td> <td bgcolor="#F4F9FF"><input name="txt_foto4" type="file" id="txt_foto4" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td bgcolor="#F4F9FF"><div align="right">Foto 5:</div> <div align="right"></div></td> <td bgcolor="#F4F9FF"><input name="txt_foto5" type="file" id="txt_foto5" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="18" /></td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF"><div align="center"> <input type="submit" name="button" id="button" style=" font-size:10px; color:#FFFFFF; background-color:#33507C; font-family:Verdana, Arial, Helvetica, sans-serif"value="Cadastrar" /> </div></td> </tr> </table> </form> </body> </html> Página que faz o cadastro: salva_maquinavenda.asp <%@LANGUAGE="VBSCRIPT" %> <!-- #Include File="conexaoDB.inc" --> <!-- #include file = "upload_funcoes.asp" --> <% '---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------ DIM conexaoDB , rsSalva , rsSQL , strINS , 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 , "-" , " " ) '============================================================== <!-- #INCLUDE FILE="conexaoDB.inc" --> '-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - #----------------------------------- 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 &"')" CALL AbreConexao SET rsSQL = conexaoDB.EXECUTE(strINS) '================================================================ %> ERRO: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /GilMaquinas/salva_maquinavenda.asp, line 149 LINHA DE ERRO: SET rsSQL = conexaoDB.EXECUTE(strINS) CAMPOS DA TABELA ID_USUARIO - Nº MARCA - TXT MODELO - TXT FORMATO - TXT ANO_FABRICACAO - Nº TIPO - TXT FUNCIONAMENTO - TXT APARENCIA - TXT LOC_CIDADE - TXT LOC_ESTADO - TXT NOME - TXT EMPRESA - TXT DDD - Nº TELEFONE - Nº E_MAIL - TXT preço - MOEDA PAGAMENTO - TXT OBSERVACOES - MEMORANDO FOTO1 - TXT FOTO2 - TXT FOTO3 - TXT FOTO4 - TXT FOTO5 - TXT DATA - DATA/HORA
  15. Rafael... ainda continua Erro de sintaxe na instrução INSERT INTO. 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 ( '','','','','','','','','','','',,,'',,'','',Fotos_maquinas_venda/427808-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/828275-003.JPG,Fotos_maquinas_venda/828436-004.JPG,Fotos_maquinas_venda/828440-005.JPG,#1/9/2008#)
  16. o melhor seria usar um componente nesse upload. Fala ai bareta.... aquele parentese la, foi erro de digitação meu, acabei de verificar e testar no lugar do parentese é uma " , " 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 ( 1 , '','','','','','','','','','','',,,'',,'','',Fotos_maquinas_venda/427933-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/871052-003.JPG,Fotos_maquinas_venda/828443-004.JPG,Fotos_maquinas_venda/bd0264-005.JPG,#1/9/2008#)
  17. O erro ainda continua cara.... Acabei de fazer o oque o bareta indicou e apareceu : 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 ( , '','','','','','','','','','',',','',','','',Fotos_maquinas_venda/427933-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/871052-003.JPG,Fotos_maquinas_venda/828443-004.JPG,Fotos_maquinas_venda/bd0264-005.JPG)#1/9/2008#) Pelo visto não esta sendo enviado os valores dos outros campos do formulario, somente as fotos e a data. estou certo?
  18. SET rsSQL = conexaoDB.EXECUTE(strINS)
  19. Fala ai galera Agora to com o seguinte problema, tenho um formulario que faz o cadastro de máquinas a venda, nesse formulario o usuario envia 5 fotos da máquina que serao armazenadas em uma pasta. Essa tabela "TBL_MAQUINAS_VENDA" que recebe os dados da máquina a venda, é relacionada com outra tabela "TBL_USUARIOS" por intermedio do campo "ID_USUARIO". O usuario faz o login e somente ao efetuar o login ele podera cadastrar as maquinas que deseja vender. Quando preencho o formulario e envio o cadastro, dá o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO. /GilMaquinas/salva_maquinavenda.asp, line 173 Segue a página com o erro: salva_maquinavenda.asp <%@LANGUAGE="VBSCRIPT" %> <!-- #Include File="conexaoDB.inc" --> <!-- #include file = "upload_funcoes.asp" --> <% DIM conexaoDB , rsSalva , rsSQL , strINS , 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 ---------------------- varMarca = TRIM(UploadRequest.Item("txt_Marca").Item("value")) varModelo = TRIM(UploadRequest.Item("txt_Modelo").Item("value")) varFormato = TRIM(UploadRequest.Item("txt_Formato").Item("value")) varAnoFabricacao = TRIM(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 = TRIM(UploadRequest.Item("txt_LocCidade").Item("value")) varEstado = TRIM(UploadRequest.Item("txt_LocEstado").Item("value")) varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value")) varEmpresa = TRIM(UploadRequest.Item("txt_EmpresaContato").Item("value")) varDDD = TRIM(UploadRequest.Item("txt_DDD_FoneContato").Item("value")) varFone = TRIM(UploadRequest.Item("txt_TelefoneContato").Item("value")) varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value")) varEmail = TRIM(UploadRequest.Item("txt_EmailContato").Item("value")) varPreco = TRIM(UploadRequest.Item("txt_Preco").Item("value")) varPagamento = TRIM(UploadRequest.Item("txt_Pagamento").Item("value")) varObservacoes = TRIM(UploadRequest.Item("txt_InfoComplementar").Item("value")) varDataCadastro = formatDateTime(date,2) varPreco = REPLACE(varPreco, "." , " ") varPreco = REPLACE(varPreco, "," , ".") '==================================================================== ' 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 '============================================================================= varPreco = REPLACE(varPreco , ", " , "." ) varFone = Replace(varFone , "-" , " " ) '=========================================================================== <!-- #INCLUDE FILE="conexaoDB.inc" --> '-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - ---------------------------------------- strINS = "INSERT INTO TBL_MAQUINAS_VENDA " strINS = strINS & "( 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 ) " strINS = strINS & " VALUES ( " & varMarca & " , " strINS = strINS &"'"& varModelo &"'," strINS = strINS &"'"& varFormato &"'," strINS = strINS &"'"& varAnoFabricacao &"'," strINS = strINS & "'"& varTipo &"'," strINS = strINS & "'"& varFuncionamento &"'," strINS = strINS & "'"& varAparencia &"'," strINS = strINS & "'"& varCidade &"'," strINS = strINS & "'"& varEstado &"'," strINS = strINS & "'"& varNome & "'," strINS = strINS & "'"& varEmpresa & "'," strINS = strINS & ""& varDDD & "'," strINS = strINS & ""& varFone & "'," strINS = strINS & "'"& varEmail & "'," strINS = strINS & ""& varPreco & "'," strINS = strINS & "'"& varPagamento & "'," strINS = strINS & "'"& varObservacoes & "'," strINS = strINS & ""& cfoto1 & "," strINS = strINS & ""& cfoto2 & "," strINS = strINS & ""& cfoto3 & "," strINS = strINS & ""& cfoto4 & "," strINS = strINS & ""& cfoto5 & "," strINS = strINS & "#"& varDataCadastro&"#')" CALL AbreConexao SET rsSQL = conexaoDB.EXECUTE(strINS) %> Por favor alguém me ajuda a resolver esse problema? Desde já muito obrigado pela atenção. Valeu
  20. FALA AI GALERA.... O NÉGOCIO AQUI DEU CERTO AGORA.... VALEU GALERA, PELA AJUDA! EM BREVE ESTAREI AQUI NOVAMENTE HEHEHHEHE OLHA SO COMO FICOU: login.asp <%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <!--#include file ="conexaoDB.inc" --> <!--#include file ="global.asa" --> <% DIM act if act="sair" then session.abandon("nome") session.abandon("id_usuario") session.abandon("usuario") response.redirect "index.asp" end if %> validalogin.asp <%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <!--#include file ="conexaoDB.inc" --> <!--#include file ="global.asa" --> <% DIM conexaoDB , varLogin , varSenha , rsSQL , rsValida , ids varLogin = Request.Form("usuario_login") varSenha = Request.Form("senha_login") varLogin = REPLACE(Request.Form("usuario_login"),chr(39),"''") varSenha = REPLACE(Request.Form("senha_login"),chr(39),"''") rsSQL = " Select * From TBL_USUARIOS WHERE USUARIO = '"& varLogin &"' and SENHA= '"& varSenha &"' " call abreConexao Set rsValida = conexaoDB.Execute(rsSQL) if rsValida.EOF then response.Redirect("errologin.asp") else varLogin = rsValida("USUARIO") session("id_usuario")= rsValida("ID_USUARIO") session("usuario") = rsValida("USUARIO") session("nome") = rsValida("NOME") response.Redirect("index_loginOK.asp") end if CALL fechaConexao SET rsValida = Nothing %> loginOK.asp <%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <!--#include file ="conexaoDB.inc" --> <!--#include file ="global.asa" --> <% DIM conexaoDB , rsSession , rsSQLSession , varID_USUARIO , varUSUARIO , varNOME , varLogout , recbid rsSQLSession = " Select * From TBL_USUARIOS " call abreConexao Set rsSession = conexaoDB.Execute(rsSQLSession) rsSession.close CALL fechaConexao SET rsSession = Nothing %> global.asa <script language= vbscript runat=server> Sub Session_OnStart Session.Timeout = 15 if Session.Timeout = false then session.abandon end if end Sub Sub InicializaVariaveis Session("id_usuario") Session("usuario") Session("nome") end Sub </SCRIPT> Muito obrigado pela ajuda de vocês! Podem fechar esse tópico. Valeu! Até breve!
  21. Fala ai bareta... beleza? Cara o esquema que você me passou ta beleza, mas não ta limpando o valor das variaveis da session. Quando efetuo outro login com outro nome de usuario, é exibido na tela os dados do usuario anterior. tem alguma coisa haver com a globlal.asa? Pois já tentei limpar os valores das variaveis colocando o sessio.abandon em uns trocentos lugares nos meus arquivos, mas não limpa . Da uma olhada ai global.asa <script language= vbscript runat=server> Sub Session_OnStart Session.Timeout = 15 end Sub Sub InicializaVariaveis Session("id_usuario") = 0 Session("usuario") = "" Session("nome") = "" end Sub </SCRIPT> valeu!
  22. Fala ai Rafael, beleza ?!?!? Cara valeu por esclarecer algumas dúvidas minhas. Pois é cara, eu to usando global.asa , pois quando tentei fazer a session sem a global, eu não consegui exibir as informarções, depois q coloquei uma global deu certo. A maneira de utilizar as session é a mesma com ou sem global? Cara eu tentei um logout da seguinte maneira: tinha um botao "SAIR" e no botão eu coloquei o link voltando para index.asp e abandonando a sessão, mas não deu certo, no link coloquei "index.asp?<%session.abandon%>". Se possivel manda um exemplo de logOut. é verdade cara, eu esqueci de postar, a parte do código que imprime as informações do usuario. To mandando exibir assim: <% =Session(" NOME ") %> <% =Session(" USUARIO ") %> <% =Session(" ID_USUARIO ") %> valeu pela ajuda....
  23. Fala ai galera.... aqui estou com mais uma dúvida, passei horas tentando resolver o problema mas não consegui, o problema é o seguinte: TENHO UM FORMULARIO NO QUAL O USUARIO ENTRA COM SEU LOGIN E SUA SENHA, ESSE FORMULARIO ENVIA OS DADOS PARA A PÁGINA QUE VALIDA O ACESSO, E GOSTARIA QUE OS DADOS DESSE USUARIO QUE ACABA DE LOGAR NO SITE, SEJA MOSTRADO NA PAGINA. ex.: Seja bem-vindo(a), Andre Gustavo, seu login é: andregustavo.castro, Usuário nº: 10 ESSE AI é O CODIGO QUE FAZ A VALIDAÇÃO <%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <!--#include file ="conexaoDB.inc" --> <% DIM conexaoDB , varLogin , varSenha , rsSQL , rsValida varLogin = Request.Form("usuario_login") varSenha = Request.Form("senha_login") varLogin = REPLACE(Request.Form("usuario_login"),chr(39),"''") varSenha = REPLACE(Request.Form("senha_login"),chr(39),"''") rsSQL = " Select * From TBL_USUARIOS WHERE USUARIO = '"& varLogin &"' and SENHA= '"& varSenha &"' " call abreConexao Set rsValida = conexaoDB.Execute(rsSQL) if rsValida.EOF then response.Redirect("errologin.asp") else response.Redirect("index_loginOK.asp") end if CALL fechaConexao SET rsValida = Nothing %> ESSE CODIGO TA FUNCIONANDO BELEZA, FAZ A VERIFICAÇÃO E ENVIA PARA "index_loginOK.asp" ou para "errologin.asp" VALIDAÇÃO OK! AGORA NA PÁGINA "Index_loginOK.asp", eu fiz com que fosse exibido os dados do usuario dessa maneira que esta ai no codigo, da uma olhada Index_loginOK.asp <%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <!--#include file ="conexaoDB.inc" --> <!--#include file ="global.asa" --> <% DIM conexaoDB , rsSession , rsSQLSession , varID_USUARIO , varUSUARIO , varNOME , varEMAIL rsSQLSession = " Select * From TBL_USUARIOS " call abreConexao Set rsSession = conexaoDB.Execute(rsSQLSession) varID_USUARIO = rsSession("ID_USUARIO") varUSUARIO = rsSession("USUARIO") varNOME = rsSession("NOME") varEMAIL = rsSession("EMAIL") Session (" ID_Usuario ") = varID_USUARIO Session (" USUARIO ") = varUSUARIO Session (" NOME ") = varNOME Session (" EMAIL ") = varEMAIL rsSession.close CALL fechaConexao SET rsSession = Nothing %> Agora sim... ao problema iremos! quando eu saio da página, ou ate fecho o browser, e abro outro browser e entro com outro login e outra senha, é exibido os dados do usuario que tinha logado anteriormente, gostaria que me ajudassem com esse problema se possivel. eu tentei colocar um link voltando para index.asp, mas também não deu certo! ainda continua exibindo os dados de outro usuario. como seria esse link? Como faço o LogOut? A última coisa.... Sempre quando é necessario utilizar uma session, é expressamente obrigatorio o uso da GLOBAL.ASA? Se alguém puder me explicar sobre isso também.... eu agradeço .... Acho que por enquanto é so isso mesmo! Desde já muito obrigado pela atenção e ajuda de todos! Valeu !
  24. Também sou novato em ASP, acredito que com SESSIONS, você consiga fazer o que ta querendo. Procure sobre sessions! Falo lesouza... t+
  25. Fala ai jothaz.... Essa semana que entra, eu estarei la na transportadora pra checar tudo isso, mas a primeira conversa que tive com o pessoal la, é uma empresa que gerencia o sistema de gps das frotas, que faz o cadastro dos dados e tal. então acredito essa empresa tera q me passar alguma informação do sistema onde é cadastrado as cargas, para ser acessado atravez do site. Não sei como funciona, se pudesse me informar melhor qual o procedimento necessario do que vou precisar, dados que a empresa tera que me passar para realizar esse rastreamento. Qualquer coisa agente fecha um negocio. To pesquisando bastante em relação a esse assunto mas os resutados não estao sendo satisfatorios, so você e outra pessoa em outro forum me responderam, no google não achei nada. quanto você cobraria pra desenvolver esse sistema? me add no MSN pra gente conversar andregustavo.castro@hotmail.com valeu pela atenção
×
×
  • Criar Novo...