Patricia Guido

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?

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?

na verdade o id é automatico, coloquei esse " vid = request.querystring ("id") " só para ver se dava certo

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"