Ir para conteúdo
Fórum Script Brasil

arldin

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    278

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que arldin postou

  1. arldin

    criar um script de login

    uma questão postou arldin ASP

    Boa noite amigos estou querendo fazer um script em asp de login da sequinte forma Que quando se logar apareça a imagem junto vinda do db O db esta assim id=numero aultomatico(chave primaria) login=texto snha=texro imagem=memorando a imagem vem da pasta "fotos" já dei uma pesquisada aqui e não encontrei nada pesquisei no google e tambem não encontrei seria uma pagina para fazer o longin e outra para visualizar Tem como fazer Desde já agradeço a todo E um feliz natal a todos O nome do db e login.mdb
  2. arldin
    Obrigado pela força que obtive Consequi resolve aqui esta o script resolvido <!--#include file = "conexao.asp"--> <% Language=VBScript %> <% set dados=server.CreateObject("ADODB.Connection") dados.Open "DBQ=" & server.MapPath("teste.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}","username","password" set rs=server.CreateObject("ADODB.recordset")'cria objeto rs sql="select * from foto" set rs=dados.Execute(sql) while not rs.EOF %> <FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem vindo</FONT><img src="<%=(rs.Fields.Item("fotos").Value)%>" <% rs.MoveNext wend rs.Close dados.Close %> <HTML> <HEAD> </HEAD> <BODY> </BODY> </HTML> Obrigado pela força
  3. arldin
    Como eu estou tendando reslover fazendo algumas alteração rdta edta sem o codico e eu deixo ela para não perde a original E esta se você notou ela não amostra a imagem A que esta dando erro como eu sempre altero para não perde a original e este link aqui
  4. arldin
    este e o codico atual <!--#include file = "conexao.asp"--> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> <% set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT * FROM foto ORDER BY ID DESC" rs.open sql %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem Vindo</FONT><img src="<%=rs(fotos)%>" width="45" height="50"></td> </tr> </table> </BODY> </HTML> e o erro que esta dando e este Cannot find http://www.arldinartfest.com.br/foto2/teste.asp DNS Error - Server cannot be found Vou postar o script conexao.asp não sei se tem algo que eu estou deixando de incluir este e o script <% Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("teste.mdb") %>
  5. arldin
    Amigo smez coloquei conform você me indicou so que agora me da este erro Cannot find
  6. arldin
    Boa tarde amigos não sei se e aqui que devo posta esta duvida E o sequinte estou tendando fazer uma pagna em asp que me amostre a imagem do bd Criei um bd com nome teste nele esta assim tabela texto id numeração automatica fotos texto fiz uma pagina de conexao em asp e esta pagina para a mostra a foto <!--#include file = "conexao.asp"--> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0"> </HEAD> <BODY> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#ff0000">Bem Vindo</FONT><img src="<%=(fotos)%>" width="45" height="50"></td> </tr> </table> </BODY> </HTML> Mais não esta aparecendo a imagem, alguém pode me amostrar a onde estou errando desde já agradeço a todos
  7. arldin
    Bom dia amigos eu tenho um formulario a onde vem a quantidade e o valor e tenho o script em asp que faz este envio Gostaria de saber se tem como incluir que venha a foto junta do produto Este a uma parte do script "<strong><p><font color=red>HOMEM ARANHA QUANT: </font></strong> "& Request("quant1") & vbCrLf & _ "<strong><font color=red>TOTAL: </strong></font> "& Request("total1") & vbCrLf & _ Desde já agradeço a todos
  8. arldin
    Resolvido
  9. arldin
    Valeu pela força e isto mesmo deu certo e um script em asp muito obrigado
  10. arldin
    Boa tarde amigos eu gostaria de saber se neste script pode as letras em cor determinada Este e o script(parte dele) strBody = "<strong><p>FORMULARIO DE PEDIDOS</strong>" & vbCrLf & vbCrLf & _ Ali "FORMULARIO DE PEDIDOS" gostaria de saber se este texto pode ir em outra cor, pois ele vai em preto e eu gostaria que fose em vermelho Tem como isto ser feito Desde já agradeço a todos
  11. arldin

    Inserir imagem

    pergunta respondeu ao arldin de arldin em Access

    Amigo flecha a sua dica me ajudou segui os passo do arquivo e criei um formulario onde vai as imagens dos operadores Mais quando acesso a foto não aparece da aquele codico que postei As fotos e de atendente de atendimento on line Sabe como faço para quando o atendente estive online a foto apareça Desde já agradeço pelas dicas
  12. arldin

    Inserir imagem

    pergunta respondeu ao arldin de arldin em Access

    a onde que esta eu não achei
  13. arldin

    Inserir imagem

    uma questão postou arldin Access

    Eu criei uma tabela e coloquei um campo para imagem como "Objeto OLE" e nela coloquei a imagem mais ao invés de me amostra a imagem esta amostrando este codico ?* alguém sabe me explicar o que esta errado Desde já agradeço a todos
  14. arldin
    Não sei se estou postamdo no lugar certo Este e um script simples de carrocel de imagem &lt;script type=text/javascript> // 7 variables to control behavior var Car_Image_Width=111; var Car_Image_Height=121; var Car_Border=true; // true or false var Car_Border_Color="0000ff"; var Car_Speed=5; var Car_Direction=true; // true or false var Car_NoOfSides=8; // must be 4, 6, 8 or 12 /* array to specify images and optional links. For 4 sided carousel specify at least 2 images For 6 sided carousel specify at least 3 For 8 sided carousel specify at least 4 For 12 sided carousel specify at least 6 If Link is not needed keep it "" */ Car_Image_Sources=new Array( "01.jpg","", "02.jpg","", "03.jpg","", "04.jpg","", "05.jpg","", "06.gif","", "07.jpg","", "08.jpg","", "09.jpg","", "001.jpg","", "002.jpg","" // NOTE No comma after last line ); /***************** DO NOT EDIT BELOW **********************************/ CW_I=new Array(Car_NoOfSides/2+1);C_ClcW=new Array(Car_NoOfSides/2); C_Coef=new Array( 3*Math.PI/2,0,3*Math.PI/2,11*Math.PI/6,Math.PI/6,3*Math.PI/2,7*Math.PI/4, 0, Math.PI/4,3*Math.PI/2,5*Math.PI/3,11*Math.PI/6,0,Math.PI/6,Math.PI/3); var C_CoefOf=Car_NoOfSides==4?0:Car_NoOfSides==6?2:Car_NoOfSides==8?5:9; C_Pre_Img=new Array(Car_Image_Sources.length); var C_Angle=Car_Direction?Math.PI/(Car_NoOfSides/2):0,C_CrImg=Car_NoOfSides,C_MaxW,C_TotalW, C_Stppd=false,i,C_LeftOffset,C_HalfNo=Car_NoOfSides/2; function Carousel(){ if(document.getElementById){ for(i=0;i<Car_Image_Sources.length;i+=2){ C_Pre_Img[i]=new Image();C_Pre_Img[i].src=Car_Image_Sources[i]} C_MaxW=Car_Image_Width/Math.sin(Math.PI/Car_NoOfSides)+C_HalfNo+1; Car_Div=document.getElementById("Carousel"); for(i=0;i<C_HalfNo;i++){ CW_I[i]=document.createElement("img");Car_Div.appendChild(CW_I[i]); CW_I[i].style.position="absolute"; CW_I[i].style.top=0+"px"; CW_I[i].style.height=Car_Image_Height+"px"; if(Car_Border){ CW_I[i].style.borderStyle="solid"; CW_I[i].style.borderWidth=3+"px"; CW_I[i].style.borderColor=Car_Border_Color} CW_I[i].src=Car_Image_Sources[2*i]; CW_I[i].lnk=Car_Image_Sources[2*i+1]; CW_I[i].onclick=C_LdLnk; CW_I[i].onmouseover=C_Stp; CW_I[i].onmouseout=C_Rstrt} CarImages()}} function CarImages(){ if(!C_Stppd){ C_TotalW=0; for(i=0;i<C_HalfNo;i++){ C_ClcW[i]=Math.round(Math.cos(Math.abs(C_Coef[C_CoefOf+i]+C_Angle))*Car_Image_Width); C_TotalW+=C_ClcW[i]} C_LeftOffset=(C_MaxW-C_TotalW)/2; for(i=0;i<C_HalfNo;i++){ CW_I[i].style.left=C_LeftOffset+"px"; CW_I[i].style.width=C_ClcW[i]+"px"; C_LeftOffset+=C_ClcW[i]} C_Angle+=Car_Speed/720*Math.PI*(Car_Direction?-1:1); if((Car_Direction&&C_Angle<=0)||(!Car_Direction&&C_Angle>=Math.PI/C_HalfNo)){ if(C_CrImg==Car_Image_Sources.length)C_CrImg=0; if(Car_Direction){ CW_I[C_HalfNo]=CW_I[0]; for(i=0;i<C_HalfNo;i++)CW_I[i]=CW_I[i+1]; CW_I[C_HalfNo-1].src=Car_Image_Sources[C_CrImg]; CW_I[C_HalfNo-1].lnk=Car_Image_Sources[C_CrImg+1]} else{ for(i=C_HalfNo;i>0;i--)CW_I[i]=CW_I[i-1]; CW_I[0]=CW_I[C_HalfNo]; CW_I[0].src=Car_Image_Sources[C_CrImg]; CW_I[0].lnk=Car_Image_Sources[C_CrImg+1]} C_Angle=Car_Direction?Math.PI/C_HalfNo:0;C_CrImg+=2}} setTimeout("CarImages()",50)} function C_LdLnk(){if(this.lnk)window.location.href=this.lnk} function C_Stp(){this.style.cursor=this.lnk?"pointer":"default";C_Stppd=true;} function C_Rstrt(){C_Stppd=false} </SCRIPT> <DIV style="POSITION: relative; WIDTH: 130px; HEIGHT: 21px" id=Carousel><!-- FIM DO SCRIPT CAROUSEL - LadyLony --></DIV></BODY></HTML>
  15. arldin
    Resolvi colocando uma pagina que se fecha altomatica e redirecionei Asiim ele fecha ao clicar Obrigado
  16. arldin
    Boa noite amigos eu tenho este script em asp de indique site Gostaria de uma ajuda que depois que fose enviado a janela fose fechada Como faço este procedimento 'informações dos campos do formulário strNome = Request.Form("nome") strEmail = Request.Form("email") strNomeAmigo = Request.Form("nomeAmigo") strEmailAmigo = Request.Form("emailAmigo") if strEmail <> "" then 'cria o objeto para configuração do SMTP sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject ("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.dminio.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "email@dominio.com.br" 'conta@seu_dominio cdoConfig.Fields.Item(sch & "sendpassword") = "" cdoConfig.fields.update 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") objCDOSYSMail.configuration = cdoConfig 'e-mail do remetente objCDOSYSMail.From = strEmail 'e-mail do destinatário objCDOSYSMail.To = strEmailAmigo 'assunto da mensagem objCDOSYSMail.Subject = "Visitei este site,e estou te indicando" strMensagem = strMensagem & "<table width='300' border='0' cellspacing='0' cellpadding='0'>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td height='25' align='center'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Visitei este site,e estou te indicando</font></b></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Seu amigo</b></font></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strNome & "<br>(" & strEmail & ") </font></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Seu nome</b></font></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strNomeAmigo & "<br>(" & strEmailAmigo & ") </font></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td> </td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & " <tr>" strMensagem = strMensagem & " <td><font size='2' face='Arial, Helvetica, sans-serif'>Seu amigo "& strNome &" visitou o mosso site.E gostaria que voce veja os nossos artigos de FESTAS INFANTIS.><br/>" strMensagem = strMensagem & " Visite: http://www.arldinartfest.com.br </font></td>" strMensagem = strMensagem & " </tr>" strMensagem = strMensagem & "</table>" objCDOSYSMail.HTMLBody = strMensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set cdoConfig = Nothing Response.Write "O convite para acessar o site foi enviado com sucesso!!'" Response.Redirect("indiqueosite.asp") end if %>
  17. arldin
    Ta ok valeu
  18. arldin
    Espero esta colaborando
  19. arldin
    A tempos atras estava tendo resver um script onde me dese o valor do sub total com o valor do frete amostrando o valor com o frete Consequi resolve-lo e estou postando para os amigos que precisarem Aqui vai o script Espero esta ajudando
  20. arldin
    Estou quase consequindo E o sequinte já resovi parte do que eu estou querendo, com as mudança eu já estou consequindo que apareça o valor do frete o valor total e as somas do valores mais não estou consequindo fazer que os campos do SUB TOTAL e TOTAL DO FRETE Seja somado indo para o compo TOTAL COM O FRETE alguém pode me da esta força Script
  21. arldin
    Como eu coloco e a onde? Desculpe e que eu estou aprendendo como auto didata
  22. arldin
    A tempos esava destando este iscript consequi resolver partes Quando eu digito a quantidade ele retorna no total certo e sub total tambem Mais no ("frete") e o ("total com o frete") ele ne da esta mensagem ("NaN") Mais se eu digitar um numero ele dar certo, mais sem o R$ Este e o script A onde estou errando Dede já agradeço a todos
  23. arldin
    Inserir o "R$" e também formatar as casas decimais
  24. arldin
    Mais este faz a soma ele so não retorna moeda
  25. arldin
    Estes erros de sintaxes você esta se rferindo ao primeiro script ou neste srgundo
×
×
  • Criar Novo...