Patricia Guido
Membros-
Total de itens
19 -
Registro em
-
Última visita
Tudo que Patricia Guido postou
-
ainda deu erro, primeiro com o abreconn e depois vai direto para o Response.Redirect "CONTROLE/acesso.asp" ainde deu erro, primeiro com o abreconn e depois ele vai direto para Response.Redirect "CONTROLE/acesso.asp"
-
Tenho que fazer um sistema de login e senha, mas que cada login vá para uma pagina diferente... são uns 15 logins e 15 paginas me ajudem...por favor...é urgente vou colocar aqui a parte de login que eu tenho, quando todos os logins vao para a mesma pagina <!--#include file="conectando.asp"--> <% Abreconn vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") sql = "select * from atualizacao where nome='"&vuser&"' and senha='"&vpass&"' " Set rs = bco.execute(sql) If not rs.eof Then Session("login") = True Session("nome") = vuser response.write("<script>location = 'SIM/PRINCIPAL987FGH.htm';alert('VOCÊ FOI LOGADO COM SUCESSO!.')</script>") Else rs.close Set rs = Nothing Response.Redirect "CONTROLE/acesso.asp" End if fechaconn %> obrigada
-
oi...desculpa a demora esse é o para enviar <!-- #include file = "funcoes_upload.asp" --> <!--#include file="conectando.asp"--> <% 'Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Tempo de finalização do script Server.ScriptTimeout = 180 ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") 'pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if e esse é o funcoes upload <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> acho que a mina que fez copiou ate aqui do forum obrigada
-
eu coloquei, mas na hr de enviar eu só recebo um deles...tenho que mudar alguma coisa dentro da pagina de upload?
-
Tenho um formulario que manda um anexo por vez, gostaria de saber como faço para mandar mais de um anexo sem que a pessoa tenha que ficar preechendo o formulario para cada anexo que queira mandar ...tipo webmail... será que alguém poderia me ajudar?
-
[resolvido] Direcionar Um Login Para Paginas Diferentes
pergunta respondeu ao Patricia Guido de Patricia Guido em ASP
sabe o que é engracado? ele parece que ignora a primeira parte mesmo sendo sim ou não ele vai para a mesma pagina porque? Valeuuuuuuuuuuu Fernando...consegui agora!!!! muito obrigada mesmo -
Estou tendo dificuldades para fazer isso, tudo vai sempre para a mesma pagina <!--#include file="CONTROLE/conecta.asp"--> <% Abreconn vuser = Replace(Trim(request.form("nome")), "'", "/") vpass = Replace(Trim(request.form("senha")), "'", "/") sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"' " Set rs = bco.execute(sql) If not rs.eof Then Session("login") = True Session("nome") = vuser [b]if sql = "Select * From usuarios Where pago = 'sim' ORDER BY data DESC" then Set rs = bco.Execute(sql) Response.Write("<script>location = 'SIM/usuarios.htm';alert('argh!.')</script>") else[/b] response.write("<script>location = 'SIM/PRINCIPAL987FGH.htm';alert('aeeeeee!.')</script>") end if Else rs.close Set rs = Nothing Response.Redirect "CONTROLE/acesso.asp" End if fechaconn %> ate a parte de validar o usuario esta beleza, mas o que eu quero tambem, é que quando o cara existir, quero ver se ele pagou ou não...então se pagou vai para a pag usuarios se ele não pagou vai para a pagina principal...e se não existe volta para a mesma pagina (mas esse é o que eu já consegui) nesse codigo ai...ele sempre vai para a pagina principal a parte em negrito que não ta indo tem como vocês me ajudarem?
-
achei a pasta inetsrv, mas não tem nada dentro, nem oculto Sabe o que eu não entendo...até outro dia estava funcionando, pelo menos ate 3mb e agora não funciona mais, ligo para o suporte da empresa que esta hospedando o meu site e eles falam que é problema de programação... se for aqui, no meu servidor, resolve o meu problema ne? e os usuarios que usam esses meus formularios?? Desculpa tanta pergunta, mas estou perdida obrigada
-
os segundos eu já mudei, mas mesmo assim não funciona Gostaria de saber o que é esse iis, sou iniciante nessa area obridaga
-
Por favor me ajudem, Estou com um problema com o meu upload tenho um formulario no site, e nele tenho a opção de enviar anexos, até 1 mega esta indo direitinho, mas maior do que isso não vai, da um erro Active Server Pages error 'ASP 0113' Script timed out /suporte/envia_anexo_suporte.asp The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. Preciso muito da ajuda de voces para me ajudar com esse problema, é urgente parte do código da pagina upload <!-- #include file = "funcoes_upload.asp" --> <!--#include file="conectando.asp"--> <% 'Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' Tempo de finalização do script Server.scriptTimeout = 280 'pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if código da pagina funções upload <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function obrigada
-
Preciso saber como faço para criar um "campo automático"...por exemplo...vendo softwares, ai o vendendor vai digitar ou escolher no campo uma quantidade de parcelas em que o cliente vai pagar, quando ele fizer isso, tem que aparecer a quantidade de campos correspondente para ele escrever como, quando e quanto ele vai pagar...então a entrada pode ser em dinheiro e o resto em cheque....ele tem que ter essas opcoes para escolher em cada campo que apareceu quando ele digitou a quantidade de campos será que consegui me explicar? alguém sabe fazer isso? meu banco de dados é access
-
Olá pessoal sei que é meio ridículo esse erro, mas não estou conseguindo achar apareceu esse erro assim Microsoft JET Database Engine error '80040e14' Number of query values and destination fields are not the same. /projetos/envia_projetos.asp, line 22 o codigo... ...<% Vdata = Request.Form("data") Vempresa = Request.Form("empresa") Vcontato = Request.Form("contato") Vtel = Request.Form("tel") Vemail = Request.Form("email") Vcidade = Request.Form("cidade") Vestado = Request.Form("estado") Varea = Request.Form("area") Vtempo = Request.Form("tempo") Vcurriculo = Request.Form("curriculo") Vanexo = Request.Form("anexo") ' Sobre pendencia e data não achei nada sobre a referencia e coloquei os de baixo só para não dar erro no DB ai você arruma depois está. sql = "INSERT into projetos ([data], [empresa], [contato], [tel], [email], [cidade], [estado], [area], [tempo], [curriculo], [anexo]) values (#"& Now() &"#,'"&Vempresa&"', '"&Vcontato&"', '"&Vtel&"', '"&Vemail&"', '"&Vcidade&"', '"&Vestado&"', '"&Varea&"', '"&Vtempo&"', '"&Vcurriculo&"', '"&Vanexo&"', true)" Set rs = bco.Execute(sql) ... e o banco esta certo...acho id = autonumeração data = data/hora empresa = texto tel = texto contato = texto email = texto cidade = texto estado = texto area = texto tempo = texto curriculo = memorando anexo = texto me ajudem...por favor...pra voces é super simples! Já consegui!
-
No meu site, tem uma perte de formulario, o usuario preenche e vai para um banco de dados do access. Numa outra pagina chamo todos esses registros, agora preciso colocar um List/Menu com "Pendencias/Atualizados", mas não estou conseguindo que a informação chegue ate o banco, na verdade ela não altera no banco. Nessa lista só pode aparecer os pendentes, quando clicar na opção atualizados, essa informação não pode aparecer mais Sera que consegui me explicar?
-
Erro Syntax Error (missing Operator) In Query Expression 'id ='
pergunta respondeu ao Patricia Guido de Patricia Guido em ASP
na verdade o id é automatico, coloquei esse " vid = request.querystring ("id") " só para ver se dava certo -
Erro Syntax Error (missing Operator) In Query Expression 'id ='
uma questão postou Patricia Guido ASP
Estou com esse erro, e não consigo resolver, será que alguém poderia me ajudar Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'id ='. /sim/PRO29mai07xyz/arquimedes/relatorio_arquimedes.asp, line 65 <% vid = request.querystring ("id") vempresa = request.querystring ("empresa") vcontato = request.querystring ("contato") vendereco = request.querystring ("endereco") vnum = request.querystring ("num") vcompl = request.querystring ("compl") vcep = request.querystring ("cep") vcidade = request.querystring ("cidade") vestado = request.querystring ("estado") vddd = request.querystring ("ddd") vtel = request.querystring ("tel") vcel = request.querystring ("cel") vemail = request.querystring ("email") vvendedor = request.querystring ("vendedor") sql = "Select * From form_prop Where id =" & Vid Set rs = bco.Execute(sql) %> <table width="666" -
já quebrei a cabeça aqui e não consigo resolver esse erro ai, sei que parece facil, mas.... Microsoft JET Database Engine error '80040e14' Number of query values and destination fields are not the same. /SIM/PRO29mai07xyz/envia_form_prop.asp, line 25 o codigo ... Vcontato = Request.Form("contato") Vempresa = Request.Form("empresa") Vendereco = Request.Form("endereco") Vnum = Request.Form("num") Vcompl = Request.Form("compl") Vcep = Request.Form("cep") Vestado = Request.Form("estado") Vcidade = Request.Form("cidade") Vddd = Request.Form("ddd") Vtel = Request.Form("tel") Vcel = Request.Form("cel") Vemail = Request.Form("email") Vvendedor = Request.Form("vendedor") 'Inserindo os dados sql = "INSERT into form_prop ([data], [contato], [empresa], [endereco], [num], [compl], [cep], [estado], [cidade], [ddd], [tel], [cel], [email], [vendedor]) values (#"& Now &"#,'"&Vcontato&"','"&Vempresa&"', '"&Vendereco&"','"&Vnum&"','"&Vcompl&"','"&Vcep&"','"&Vestado&"','"&Vcidade&"','"&Vddd&"','"&Vtel&"','"&Vcel&"','"&Vemail&"','"&Vvendedor&"', true)" Set rs = bco.Execute(sql) .. alguém pode me ajudar por favorrrrrrrr
-
Estou com esse erro Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. não consigo achar o erro aqui vai o codigo <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="conexao.asp"--> <% 'recupera os valores Vnome = Request.Form("nome") Vcargo = Request.Form("cargo") Vempresa = Request.Form("empresa") Vendereco = Request.Form("endereco") Vnum = Request.Form("num") Vcompl = Request.Form("compl") Vcep = Request.Form("cep") Vcidade = Request.Form("cidade") Vestado = Request.Form("estado") Vddd = Request.Form("ddd") Vtel = Request.Form("tel") Vcel = Request.Form("cel") Vemail = Request.Form("email") Vanexo = Request.Form("anexo") Vsugestao = Request.Form("sugestao") Vcorreio = Request.Form("correio") Vdatatec = Request.Form("datatec") Vtecnico = Request.Form("tecnico") Vresposta = Request.Form("resposta") Vatendimento = Request.Form("atendimento") Voperacional = Request.Form("operacional") Vdataop = Request.Form("dataop") Vfunc = Request.Form("func") Vrespop = Request.Form("respop") Vpendencia = Request.Form("pendencia") Vsoftware = Request.Form("software") Vversao = Request.Form("versao") Vrelease = Request.Form("release") Vwindows = Request.Form("windows") Vautocad = Request.Form("autocad") 'Inserindo os dados sql = "INSERT into sugestao ([data], [nome], [cargo], [empresa], [endereco], [num], [compl], [cep], [estado], [cidade], [ddd], [tel], [cel], [email], [anexo], [sugestao], [correio], [datatec], [tecnico], [resposta], [atendimento], [operacional], [dataop], [func], [respop], [pendencia], [software], [versao], [release], [windows], [autocad]) values (#"& Now &"#,'"&Vnome&"','"&Vcargo&"','"&Vempresa&"','"&Vendereco&"','"&Vnum&"','"&Vcompl&"','"&Vcep&"','"&Vestado&"','"&Vcidade&"','"&Vddd&"','"&Vtel&"','"&Vcel&"','"&Vemail&"', '"&Vanexo&"', '"&Vsugestao&"', '"&Vcorreio&"', '"&Vdatatec&"', '"&Vtecnico&"', '"&Vresposta&"', '"&Vatendimento&"', '"&Voperacional&"', '"&Vdataop&"', '"&Vfunc&"', '"&Vrespop&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vwindows&"', '"&Vautocad&"', true)" Set rs = bco.Execute(sql) alguém pode me ajudar por favor
-
aqui esta, o anexo esta em uma pagina separada! <!--#include file="conectando.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Multiplus - Software Técnicos</title> </head> <body> <div id="Layer1" style="position:absolute; left:25px; top:25px; width:950px; height:515px; z-index:1; overflow: auto;"> <form action="envia_anexo_suporte.asp" method="post" enctype="multipart/form-data" name="sim" id="sim"> <table border="1" cellspacing="0" cellpadding="6" width="781" align="center" bordercolor="#999999"> <tr> <td colspan="4" bgcolor="#CCCCCC"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-weight: bold">Suporte por Internet Multiplus - SIM </span></div></td> </tr> <tr> <td width="103" height="38" align="right" bgcolor="#ebebeb" class="rotulo_formulario style7"><p align="right" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Anexar</p></td> <td width="620" colspan="3"><input name="arquivo" type="file" id="arquivo" size="60"/> <p align="justify" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px"><span style="font-weight: bold"><span style="color: #FF0000">Atenção!</span> Instruções para anexar arquivos:</span><br /> Para enviar obras (arquivos .CYP ou .M3D), figuras (arquivos .JPG e .GIF) ou desenhos (arquivos .DXF e .DWG) clique em Procurar, e selecione o arquivo a ser anexado em seu computador. <span style="font-weight: bold">O tamanho máximo do arquivo a ser anexado é de 3Mb</span>, procure enviar seu arquivo sempre compactado (.zip) ou dividi-lo em vários quando possível. </p></td> </tr> </table> <p align="center"> <input name="Enviar" type="submit" class="formulario" value="Enviar" /> <input name="Apagar" type="reset" class="formulario" id="Apagar" value="Apagar Arquivo" /> </p> </form> </div> </body> </html>
-
então eu já tenho algo...quem preenche o formulario já consegue colocar um anexo... mas preciso de mais anexos obrigada!!!