Rafael Spilki
-
Total de itens
1.583 -
Registro em
-
Última visita
Tudo que Rafael Spilki postou
-
Cara... faz o seguinte: substitua o trecho da variavel recebe e id lá do inicio do seu codigo: recebe = request.form("CLIENTE") ID = Request.QueryString("ID") por: recebe = trim (request.form("CLIENTE")) ID = trim (Request.QueryString("ID")) poste aqui os resultados! []'s Rafael Spilki
-
Não vejo problemas em fazer isso, basta você colocar a instrução de insert no início do script de enviar, ou vice e versa! você tem alguma dificuldade específica? já começou a fazer seu código ou está em busca de exemplos? Enfim, exemplos tem aqui na SB mesmo, pegue um de inclusão e outro de envio... depois os unifique... []'s Rafael Spilki
-
e tu tens certeza que é somente essa query que vem nula?
-
Poisé Marvi, voltando a este tema... penso aqui em algumas opções... são só ideias ok? devem funcionar, mas nunca precisei fazer algo como isso q você está querendo, por isso vou ficar mesmo nas ideias... você gostando de alguma e não conseguindo colocar em prática posso te ajudar, certo? vamos lá: 1ª ideia) ter cadastrado em bd a data de expiração, no topo de cada página do seu site ou app você faz uma query e compara a data atual com a data de expiração... isso aqui poderia ser inclusive com session, tipo, quando o cliente loga grava na session a data atual usando "date", se date >= a "dataexpira" lá do bd vai pra pagina x se < então vai pra página y; 2ª ideia) colocar essa query em um global.asa e apartir desse arquivo fazer o mesmo tipo de comparação, envolvendo condicionais... acho que tb seria bem possível... Espero ter contribuido. []'s Rafael Spilki
-
Ok... mas vamos conseguir sim! ;-) faça o seguinte: Poste aqui como você tentou? Poste o recho da query q você quer condicionar! []'s Rafael Spilki
-
Dois testes para você. experimente e poste aqui o resultado: primeiro: <%'LCID= 1046%> <% 'Function DataInvertida(data) 'dia=day(Data) 'mes=month(Data) 'ano=year(Data) 'DataInvertida=dia&"/"&mes&"/"&ano 'End Function Dim iCount Dim sRowColor Dim objDB Dim objRS Dim sDBName rgi = Request.Form("rg") 'rdti = DataInvertida(Request.Form("dti")) 'rdtf = DataInvertida(Request.Form("dtf")) rdti = Request.Form("dti") rdti = Cdate(month (rdti) &"/"& day (rdti) &"/"& year (rdti)) rdtf = Request.Form("dtf") rdtf = Cdate(month (rdtf) &"/"& day (rdtf) &"/"& year (rdtf)) 'TODO: Verify database path... sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=E:\home\marlenefratt\dados\CADASTRO.mdb" Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open sDBName Set objRS = objDB.Execute("select * from CAD_FUNC where COD_FUNC = "& rgi &"") 'TODO: Modify the next line to only return the records you want... Response.Write "<html>" Response.Write "" Response.Write "<head>" Response.Write "<meta http-equiv='Content-Language' content='pt-br'>" Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=windows-1252'>" Response.Write "<title>CONSULTA AUSÊNCIAS</title>" Response.Write "</head>" Response.Write "" Response.Write "<body>" Response.Write "" Response.Write "<div style='position: absolute; width: 980px; height: 25px; z-index: 1; left: 4px; top: 20px; background-color: #0000FF' id='camada1'>" Response.Write " <p align='left'><font color='#FFFFFF'><font face='Arial Unicode MS'><b>EE " Response.Write " PROFA. MARLENE FRATTINI </b></font> " Response.Write " <b>EXTRATO DAS AUSÊNCIAS DOCENTE</b></font></div>" Response.Write "" Response.Write "<p> </p>" Response.Write "<div style='position: absolute; width: 817px; height: 100px; z-index: 2; left: 76px; top: 55px' id='camada2'>" Response.Write " <table border='1' width='788' id='table1' style='border-width: 0px'>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>RG</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='716' colspan='5'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("COD_FUNC") & "</font></td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>NOME</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='716' colspan='5'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write " <b>" & objRS("NOM_FUNC") & "</font></td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>RSPV</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='125'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("RSPV_FUNC") & "</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='69'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>CARGO</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='116'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("CARGO_FUNC") & "</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='168'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>SITUAÇÃO</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='220'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write " <b>" & objRS("CAT_FUNC") & "</td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='187' colspan='2'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>PERÍODO INÍCIAL</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='185' colspan='2'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write (rdti) Response.Write " <td style='border-style: none; border-width: medium' width='168'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>PERÍODO FINAL</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='220'>" Response.Write " <font face='AvantGarde Bk BT' size='2'> " Response.Write (rdtf) Response.Write " </tr>" Response.Write " </table>" Response.Write "</div>" Set objRS = objDB.Execute("select * from MOVIMENTO where COD_FUNC = "& rgi &" and DATA BETWEEN #"& rdti &"# and #"& rdtf &"# ORDER BY Data ") If objRS.EOF Then Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write("<b>Sem lançamentos a registrar.</b>") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write("<table border=0 cellpadding=2 cellspacing=2>") Response.Write("<tr bgcolor=silver>") 'COOL TIP: the <filter> tag is used by Excel 97 and later... 'if your users save this file from the browser and open it in XL, XL will 'parse all the table cells into XL ranges and turn on filtering... Response.Write "<div style='position: absolute; width: 817px; height: 100px; z-index: 2; left: 76px; top: 55px' id='camada2'>" Response.Write " <table border='1' width='788' id='table1' style='border-width: 0px'>" Response.Write " <tr>" Response.Write("<CENTER><th filter=ALL>DATA</th>") Response.Write("<th filter=ALL>MOTIVO</th>") Response.Write("<th filter=ALL>PERIODO</th>") Response.Write("<th filter=ALL>E.F.</th>") Response.Write("<th filter=ALL>E.M.</th>") Response.Write("<th filter=ALL>EVENTUAL</th>") Response.Write("</tr>") Do While Not objRS.EOF 'this code alternates the color of the table rows... iCount = iCount + 1 If iCount Mod 2 = 0 Then sRowColor = "skyblue" Else sRowColor = "#C4CEE5" End If 'Response.Write FormataData("data") Response.Write("<tr bgcolor=" & sRowColor & ">") Response.Write("<td>" & objRS("DATA") & "</td>") Response.Write("<td>" & objRS("NOMEAUSENCIA") & "</td>") Response.Write("<td>" & objRS("PERIODO") & "</td>") Response.Write("<td>" & objRS("EFAULAS") & "</td>") Response.Write("<td>" & objRS("EMAULAS") & "</td>") Response.Write("<td>" & objRS("NOM_FUNC") & "</td>") Response.Write("</tr>") objRS.MoveNext Loop Response.Write("</table>") Response.Write("</body>") Response.Write("</html>") Response.Write Cdate(now) objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %> segundo: <%'LCID= 1046%> <% 'Function DataInvertida(data) 'dia=day(Data) 'mes=month(Data) 'ano=year(Data) 'DataInvertida=dia&"/"&mes&"/"&ano 'End Function Dim iCount Dim sRowColor Dim objDB Dim objRS Dim sDBName rgi = Request.Form("rg") 'rdti = DataInvertida(Request.Form("dti")) 'rdtf = DataInvertida(Request.Form("dtf")) rdti = Request.Form("dti") rdti = Cdate(day (rdti) &"/"& month (rdti) &"/"& year (rdti)) rdtf = Request.Form("dtf") rdtf = Cdate(day (rdtf) &"/"& month (rdtf) &"/"& year (rdtf)) 'TODO: Verify database path... sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=E:\home\marlenefratt\dados\CADASTRO.mdb" Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open sDBName Set objRS = objDB.Execute("select * from CAD_FUNC where COD_FUNC = "& rgi &"") 'TODO: Modify the next line to only return the records you want... Response.Write "<html>" Response.Write "" Response.Write "<head>" Response.Write "<meta http-equiv='Content-Language' content='pt-br'>" Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=windows-1252'>" Response.Write "<title>CONSULTA AUSÊNCIAS</title>" Response.Write "</head>" Response.Write "" Response.Write "<body>" Response.Write "" Response.Write "<div style='position: absolute; width: 980px; height: 25px; z-index: 1; left: 4px; top: 20px; background-color: #0000FF' id='camada1'>" Response.Write " <p align='left'><font color='#FFFFFF'><font face='Arial Unicode MS'><b>EE " Response.Write " PROFA. MARLENE FRATTINI </b></font> " Response.Write " <b>EXTRATO DAS AUSÊNCIAS DOCENTE</b></font></div>" Response.Write "" Response.Write "<p> </p>" Response.Write "<div style='position: absolute; width: 817px; height: 100px; z-index: 2; left: 76px; top: 55px' id='camada2'>" Response.Write " <table border='1' width='788' id='table1' style='border-width: 0px'>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>RG</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='716' colspan='5'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("COD_FUNC") & "</font></td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>NOME</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='716' colspan='5'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write " <b>" & objRS("NOM_FUNC") & "</font></td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='62'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>RSPV</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='125'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("RSPV_FUNC") & "</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='69'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>CARGO</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='116'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" & objRS("CARGO_FUNC") & "</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='168'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>SITUAÇÃO</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='220'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write " <b>" & objRS("CAT_FUNC") & "</td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td style='border-style: none; border-width: medium' width='187' colspan='2'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>PERÍODO INÍCIAL</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='185' colspan='2'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write (rdti) Response.Write " <td style='border-style: none; border-width: medium' width='168'>" Response.Write " <font face='AvantGarde Bk BT' size='2'>PERÍODO FINAL</font></td>" Response.Write " <td style='border-style: none; border-width: medium' width='220'>" Response.Write " <font face='AvantGarde Bk BT' size='2'> " Response.Write (rdtf) Response.Write " </tr>" Response.Write " </table>" Response.Write "</div>" Set objRS = objDB.Execute("select * from MOVIMENTO where COD_FUNC = "& rgi &" and DATA BETWEEN #"& rdti &"# and #"& rdtf &"# ORDER BY Data ") If objRS.EOF Then Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write("<b>Sem lançamentos a registrar.</b>") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write "<p> </p>" Response.Write " <font face='AvantGarde Bk BT' size='2'>" Response.Write("<table border=0 cellpadding=2 cellspacing=2>") Response.Write("<tr bgcolor=silver>") 'COOL TIP: the <filter> tag is used by Excel 97 and later... 'if your users save this file from the browser and open it in XL, XL will 'parse all the table cells into XL ranges and turn on filtering... Response.Write "<div style='position: absolute; width: 817px; height: 100px; z-index: 2; left: 76px; top: 55px' id='camada2'>" Response.Write " <table border='1' width='788' id='table1' style='border-width: 0px'>" Response.Write " <tr>" Response.Write("<CENTER><th filter=ALL>DATA</th>") Response.Write("<th filter=ALL>MOTIVO</th>") Response.Write("<th filter=ALL>PERIODO</th>") Response.Write("<th filter=ALL>E.F.</th>") Response.Write("<th filter=ALL>E.M.</th>") Response.Write("<th filter=ALL>EVENTUAL</th>") Response.Write("</tr>") Do While Not objRS.EOF 'this code alternates the color of the table rows... iCount = iCount + 1 If iCount Mod 2 = 0 Then sRowColor = "skyblue" Else sRowColor = "#C4CEE5" End If 'Response.Write FormataData("data") Response.Write("<tr bgcolor=" & sRowColor & ">") Response.Write("<td>" & objRS("DATA") & "</td>") Response.Write("<td>" & objRS("NOMEAUSENCIA") & "</td>") Response.Write("<td>" & objRS("PERIODO") & "</td>") Response.Write("<td>" & objRS("EFAULAS") & "</td>") Response.Write("<td>" & objRS("EMAULAS") & "</td>") Response.Write("<td>" & objRS("NOM_FUNC") & "</td>") Response.Write("</tr>") objRS.MoveNext Loop Response.Write("</table>") Response.Write("</body>") Response.Write("</html>") Response.Write Cdate(now) objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %> []'s Rafael Spilki
-
podes colocar uma condicional do tipo if nome_sql = "" then response.write "consulta sem resultados" end if []'s Rafael Spilki
-
Alinhar fundo ao meio e mostrar uma única vez
pergunta respondeu ao miltonbarreto de Rafael Spilki em ASP
Amigão, isso que você quer é duvida de html + css, e este é o forum de asp. Reporte o tópico ao moderador solucionando que mova o tópico para o forum correto. []'s Rafael Spilki -
Upload de imagem criando pasta com o id do usuario
pergunta respondeu ao erickmm de Rafael Spilki em ASP
Uhm, ok! Me confirma por gentileza: suas imagens estão sendo salvas na pasta "imagens", correto? e não na teste? é isso? Bom se for, isso está acontecendo exatamente por causa desse trecho do codigo: pasta = Server.MapPath("imagens/") nome_foto = "/"&nome&""&nome_foto ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto o que acontece é que se você quiser fazer desta forma basta você criar uma query que consulta o bd para descobrir o id do usuário... mas pra achar o id correto será necessário um indice tipo login por session, sacou? fiz aqui umas alteraçõezinha na correria, não testei, mas acho que é bem por aí... da uma olhadinha... <% 'achando o id atraves de session, confirmar aqui as variaveis da session ou alterar conforme o caso username = Lcase(Trim(Session("login"))) Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" SQL = "select campoid from suatabela WHERE "&username&"" Set ObjRs = objConn.Execute(SQL) id = ObjRs("id") %> <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/"&id&"/") nome_foto = "/"&nome&""&nome_foto ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if Set pasta = Server.CreateObject("Scripting.FileSystemObject") If Not pasta.FolderExists("e:\home\baixadasexy\web\upload\imagens\"&id&"\") Then pasta.CreateFolder("e:\home\baixadasexy\web\upload\imagens\"&id&"\") Response.Write "Pasta criada com sucesso!" Else Response.Write "Esta pasta já existe!" End if Set pasta = nothing ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("..\..\..\baixadasexy\dados\banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %> []'s Rafael Spilki -
coloque on error resume next no topo de seu código... deve resolver o problema... desta forma simples se você deixar em branco a consulta simplesmente não imprimirá nada em tela, ok? era isso que você precisava? []'s Rafael Spilki
-
Pra ajudar com mais facilidade e precisão, pergunto: Qual a mensagem de erro que dá? Qual o nº da linha? e qual a linha? Pode postar aqui? []'s Rafael Spilki
-
Upload de imagem criando pasta com o id do usuario
pergunta respondeu ao erickmm de Rafael Spilki em ASP
Sim erickmm... beleza! a ideia então é a seguinte: A lógica é a seguinte: 1) o user preenche o form; 2)nessa pagina do form você faz uma consulta ao bd onde o user será cadastrado, colocando num input hidden o último id+1, pois será o id que o novo user terá! 3) no insert into, ou seja, na pagina seguinte ao form quando o user se cadastrar você abre a pasta automaticamente por fso! isso não é complicado... é mais ou menos como está abaixo. <% 'resgatar valores do campo hidden que terá o valor da proxima id: DirName = request.form ("nome_input_hidden_id") 'Cria uma pasta. 'O DirName pode ser um caminho absoluto ou relativo. Public Function CreateFolder(ByVal DirName) On Error Resume Next If Mid(DirName, 2, 1) <> ":" Then DirName = Server.MapPath(DirName) End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") On Error Resume Next If FSO.FolderExists(DirName) Then FSO.DeleteFolder DirName End If If Err Then On Error GoTo 0 CreateFolder = False Set FSO = Nothing Exit Function End If FSO.CreateFolder DirName If Err Then On Error GoTo 0 CreateFolder = False Set FSO = Nothing Exit Function End If On Error GoTo 0 Set FSO = Nothing CreateFolder = True End Function %> 4) daí sua pasta já está criada e seu user já está cadastrado, muito bem, na hora de o user upar arquivos você terá que fazer uma nova query buscando do bd o id do user (aqui terá que ter algum valor pra comparar como o login por exemplo, e para isso sugiro session); <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome&""&nome_foto ' pasta + nome dos arquivos ' inicio query username = Lcase(Trim(Session("login"))) Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" SQL = "select campoid from suatabela WHERE "&username&"" Set ObjRs = objConn.Execute(SQL) cfoto = "ObjRs("id")" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if Set pasta = Server.CreateObject("Scripting.FileSystemObject") If Not pasta.FolderExists("e:\home\baixadasexy\web\upload\imagens\Teste") Then pasta.CreateFolder("e:\home\baixadasexy\web\upload\imagens\Teste") Response.Write "Pasta criada com sucesso!" Else Response.Write "Esta pasta já existe!" End if Set pasta = nothing ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("..\..\..\baixadasexy\dados\banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %> Bom, enfim, são apenas sugestões... dividi por pontos, então caso exista alguma dúvida com relação a algum ponto específico, ou tipo, qualquer duvida mesmo, poste aí que damos um jeito! EDITANDO: AHHH, SÓ LEMBRANDO... ISSO É SÓ UMA IDEIA... FIZ NA CORRERIA... NÃO TESTEI... MAS ACHO QUE QUE DA PRA APROVEITAR ALGUMA COISA... SE NÃO DER SEGUIMOS ATÉ ACERTER! []'s Rafael Spilki -
Upload de imagem criando pasta com o id do usuario
pergunta respondeu ao erickmm de Rafael Spilki em ASP
Não entendi... o numero do id vem do form ou do bd? -
Aparece alguma mensagem de erro? você está colocando os arquivos na pasta certa (normalmente inetpub)? Reveja passo a passo seus procedimentos... qualquer dúvida poste aqui! []'s Rafael Spilki
-
estas questões com data são suer comuns, não se preocupe, certamente encontraremos a solução. Poste seu código completo da forma que ele esta agora, farei alguns testes! Por falar nisso, quando você vai se cadastrar no fórum? ;-) []'s Rafael Spilki
-
Upload de imagem criando pasta com o id do usuario
pergunta respondeu ao erickmm de Rafael Spilki em ASP
So pra ter certeza: você está salvando nessa pasta imagens e você queria que ao invés de imagens fosse o id do usuário é isso? esse id vem do bd ou de session? []'s Rafael Spilki -
Precisa ser um programa?!? Existem sim programas que fazem isso (dataform é um deles), mas esse forumulário que você viu é perfeitamente possível fazer usando css, JavaScript, html, asp, cdosys (ou outro componente de envio de e-mails) e claro - criatividade e bom gosto. Mas enfim, existem exemplo prontos de forms envio de e-mail aqui no site, baixe eles e comece a personalizar por partes, tirando suas dúvidas específicas aqui no fórum! ou.... se mesmo assim preferir usar um programa, esse que eu disse acima realmente é bem interessante, não sei se usaram um programa pra fazer o form que você sugeriu, PORÉM, segue o link: http://www.superasp.com.br/dataform/dataform2/index.asp []'s Rafael Spilki
-
Fala Bareta, beleza? pra pular erros não sei não... dei uma pesquisadinha aqui num material que eu tenho e não apareceu nada! Já tentou mandar autenticando o smtp? Já tive esse problema aí sim... Lembro de ter conseguido resolver de duas formas diferentes: 1) autentiquei o smtp; 2) como nem sempre queria que fosse smtp proprio peguei e configurei um smtp desses do yahoo e mandei beleza tb! dessa forma os e-mails eram enviados e acabavam sendo devolvidos... mas pelo menos iam... o seu pelo jeito nem sai?!? dá algum erro é isso? Será que ajudou alguma coisa? []'s
-
Como disse, css / html!
-
Aham... agora sim... achei que fosse ali! que bom que descobrimos... cara... é o jeito... fórum de css html pra ti... acho que o problema está em position: absolute! reporte ao moderador e aguarde que ele mova o tópico! []'s Rafael Spilki
-
Marvi, olhei seu codigo aqui, penso que realmente não tenha mais nada a ver com asp, acredito que seja algo envolvendo html ou css... o que me fez pensar isso é que no momento em que eu joguei seu codigo no dw me surgiu essa div: div id="pop1" que acredito poder estar causando esse problema... tente fazer um teste sem ela e veja se da certo... na real, tente fazer um teste com seu html e css da forma mais crua possível e veja se funciona, ok? desta forma poderemos eliminar problemas de outras linguagens, que eu acredito ser o caso... qualquer. coisa posta ai! []'s Rafael Spilki
-
então vou precisar que você poste seu código todo para te dar alguma orientação com maior certeza. Pode postar? []'s
-
Marvi, tente assim: Dim contador contador = 1 maxcol = 3 do while not tab03.eof conteudo=tab03("nome") id=tab03("id_categoria")%> <% if contador <= maxcol then %> <td> <table align=center border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber37"> <tr> <td width="100%"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber38" height="26"> <tr> <td width="100%" bgcolor="#578DCB" height="26"> <p align="center"> <a href="produtosint.asp?idint=<%=id%>" style="text-decoration: none"><%=conteudo%></a></td> </tr> </table> </td> </tr> </table> </td> <% contador = contador + 1 tab03.movenext else %> </tr> poste aqui o resultado ok? []'s Rafael Spilki
-
já tentou inclusive assim: seu_campo_data = Cdate(month (seu_campo_data) &"/"& day (seu_campo_data) &"/"& year (seu_campo_data)) ? caso sim e mesmo assim não tenha dado certo sugiro: tire todas as Session.Lcids de seu código e comece desde o início... coloque a session.lcid = 1033 (padrão ameicano) no inicio de seu códio o forçando as datas para este padrão, funcionando tente inverter pela função cdate... caso continue não funcionando o jeito será usar a função datePart para separar dia mes e ano e depois unificá-los todos em uma mesma string... qualquer. coisa posta aí []'s Rafael Spilki
-
beleza Marvi! Bom... o fato de não estar aparecendo foi descoberto... mude a cor e veja se volta a aparecer... agora, o porque do link não funcionar são outros 500... dei uma olhada aqui por cima e o html me parece correto, deverás rever nesse caso sua app... mas deve ser algum errinho bobo... detalhezinho mesmo... []'s Rafael Spilki