maktub
-
Total de itens
170 -
Registro em
-
Última visita
Sobre maktub
maktub's Achievements
0
Reputação
-
Prezados, tenho um select top para exibir resultados de jogos, é possível assim que exportar os 4 próximo jogos, ao invés do sistema mostrar o nome, incluir uma figura com o escudo do time? exemplo, próximo jogo: Brasil x Portugal dia 23/08 ás 17:00, ao invés de mostrar o nome mostrar o escudo dos dois times <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("_private/HASportal.mdb") set rs = conn.execute("SELECT TOP 5 * FROM EVENTS WHERE EVE_DATED >= DATE() ORDER BY EVE_DATED ASC, EVE_LOCATION ASC") do while not rs.eof %> <div id="wrappercalendar"> <a href="detailcalendar.asp?iEve=<%=rs("EVE_ID")%>&iType=<%=rs("EVE_TYPE")%>"> <div id="leftcolumncalendar"><%=rs("EVE_NAME")%></div> <div id="leftmiddlecalendar"><%=rs("EVE_DATED")%></div> <div id="rightcolumncalendar"><%=rs("EVE_LOCATION")%></div> </a> </div> <% rs.movenext loop rs.close conn.close set rs = nothing set conn = nothing %>
-
Salve! Preciso de um help com um cógigo. Estou criando um cadastro simples para uma página de futebol amador, na página principal, quero incluir uma janela chamada "próximo Jogo" onde mostrará basicamente a data, horário e os times que irão jogar, tem alguma forma de mostrar apenas o próximo jogo? Ex, hoje é dia 08/08/2010 o próximo jogo é dia 10/08/2010 eu queria que fosse mostrado apenas esta data mesmo se o sistema tiver um jogo cadastrado dia 07/08/2010, sacaram? Tem como fazer isso? Segue o fomulário que é mostrado na tela: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM contato" Set ObjRs = objConn.Execute(strQuery) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>Tela de Consulta - ASPBRASIL</title> </head> <body bgcolor="#FFFFFF"> <form method="GET" action="form_altera.asp"> <table border="1" width="100%"> <tr> <td>Nº</td> <td>Data</td> <td>Horário</td> <td>Time1</td> <td>vs</td> <td>Time2</td> <td><input type="submit" name="Submit" value="Alterar"></td> </tr> <%While Not objRS.EOF %> <tr> <td><%Response.write objRS("autonum")%></td> <td><%Response.write objRS("data")%></td> <td><%Response.write objRS("horario")%></td> <td><%Response.write objRS("time1")%></td> <td>x</td> <td><%Response.write objRS("time2")%></td> <td><input type="radio" name="radio" value="<%=objRS(0)%>"></td> </tr> <% 'Move para o próximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </form> </body> </html>
-
Bom dia Pessoal, preciso de uma ajuda, o código abaixo permite trabalhar com planilhas Excel no ASP usando automação OLE, porém ao imprimir na tela fica desconfigurado, é possível definir colunas de uma maneira que fique possível ler os dados?: <% Const adOpenStatic = 3 Const adLockPessimistic = 2 Dim cnnExcel Dim rstExcel Dim I Dim iCols Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("classificacao.xls") &";" & "Extended Properties=""Excel 8.0;HDR=Yes;"";" Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.Open "SELECT * FROM huddata",cnnExcel,adOpenStatic,adLockPessimistic Response.Write "Colunas: " iCols = rstExcel.Fields.Count For I = 0 To iCols - 1 Response.Write rstExcel.Fields.Item(I).Name & " - " Next Response.Write "Linhas: " rstExcel.MoveFirst While Not rstExcel.EOF For I = 0 To iCols - 1 Response.Write rstExcel.Fields.Item(I).Value & "," Next Response.Write "<BR>" rstExcel.MoveNext Wend rstExcel.Close Set rstExcel = Nothing cnnExcel.Close Set cnnExcel = Nothing %>
-
Achei este mas eu queria criar na área administrativa e quando eu mudar ficaria com minhas configurações: aqui
-
Galera, criei um site cuja estrutura utiliza layout padrão com cores etc, eu queria criar na área administrativa um campo chamado "temas" quando eu clicar no tema "Verão" com as configurações de figura letra etc ele muda o layout conforme escolha, isso é possível? alguém conhece algo pronto ou parecido para que eu possa basear-me? Valeu, Feliz Natal :natal_biggrin:
-
O erro continua, porém fiz um pesquisando na WEB assim: <% Dim EndUser, BlockIP EndUser = Request.ServerVariables("REMOTE_ADDR") BlockIP = "189.79.105.5" If EndUser = BlockIP Then %> <% Response.Redirect ("negado.asp") %> <% Else %> Olá, seja bem vindo! <% End If %> O problema é que preciso colocar uma faixa de IP, esse limita-se a colocar IP por IP, funciona mas precisava bloquear uma faixa de IP
-
Poderiam ajudar? Encontrei esta solução para bloquear uma determinada faixa de IP no meu site: <% Dim i, sIP Dim vFaixa(2), vIP(5) vFaixa(0) = "200" vFaixa(1) = "201" vIP(0) = "200.162.198.1" vIP(1) = "200.162.199.1" vIP(2) = "200.162.58.1" vIP(3) = "200.162.98.1" vIP(4) = "200.132.198.1" sIP = Trim(Request.ServerVariables("REMOTE_ADDR")) '-- Faixas -- For i = LBound(vFaixa) To UBound(vFaixa) If Left(sIP, InStr(1, sIP, ".")-1) = vFaixa(i) Then Response.Redirect ("bloqueio.asp") End If Next '-- IPs -- For i = LBound(vIP) To UBound(vIP) If sIP = vIP(i) Then Response.Redirect ("bloqueio.asp") End If Next %> Mas esta gerando o erro: Erro de compilação do Microsoft VBScript erro '800a0411' Redefinição do nome D:\WEB\LOCALUSER\MEUSITE\WWW\HOME\../includes/inc_header.asp, line 10 Dim i, sIP ----^ a linha 10 é essa: Dim i, sIP
-
Bom galera acho que vou postar algo inédito, eu construi meu site baseado em usuários, possuo sistema de notícias, enquete, fórum e entre ela uma área para o usuário. O que eu gostaria de fazer é modificar meu fale conosco conforme abaixo: - Quando o usuário acessar o site e entrar com o usuário e senha ele pode enviar uma mensagem ao administrador do site através do sistema de "Fale conosco" esse sistema envia uma mensagem via e-mail para o administrador (até aqui nada complicado). - Quando o administrador recebe o e-mail, ele pode responder do próprio e-mail a questão e a resposta ficar disponível na conta do usuário no site. Sacaram a façanha? Tem como fazer isso? Gostaria de fazer isso pois este site vou usar como uma intranet, já vi algo parecido bom o site "blogger", você cria um e-mail padrão deixa ele automatizado para que sempre que uma mensagem for enviada de um determinado e-mail, ele cadastra o e-mail como um post no site (conhecem isso?) Por favor ajudem, procurei isso no Google mas não encontrei solução....
-
Galera preciso de uma ajuda Estou usando editor para incluir notícias em meu site, consigo formatar sem problema, quando eu chamo a notícia na página principal com limite de texto, ao invés de aparecer a matéria formatada, aparece o código assim: Quando eu retiro a limitação de texto a formatação aparece mas o problema é que desconfigura minha página principal. Estou usando assim para limitar o texto: <% =DoTrimProperly(rsLastestNews.Fields.Item("DAT_DESCRIPTION").value, 600, 1, 1, "..") %> E o VBSCRIPT assim: <script RUNAT=SERVER LANGUAGE=VBSCRIPT> function DoTrimProperly(str, nNamedFormat, properly, pointed, points) dim strRet strRet = Server.HTMLEncode(str) strRet = replace(strRet, vbcrlf,"") strRet = replace(strRet, vbtab,"") If (LEN(strRet) > nNamedFormat) Then strRet = LEFT(strRet, nNamedFormat) If (properly = 1) Then Dim TempArray TempArray = split(strRet, " ") Dim n strRet = "" for n = 0 to Ubound(TempArray) - 1 strRet = strRet & " " & TempArray(n) next End If If (pointed = 1) Then strRet = strRet & points End If End If DoTrimProperly = strRet End Function </SCRIPT> Gostaria que ao chamar a mensagem ela fosse exibida sem a formação (sem exibir o código HTML) e com a limitação de palavras. tem como?
-
Olá galera, Preciso de uma força para incluir uma imagem no formulário de e-mail que envio através do preenchimento de alguns campos no meu site, eu uso Cdosys para envio, gostaria de colocar uma imagem que esta no meu site para personalizar, como posso fazer isso?. Eu queria que o formulário fosse enviado para o usuário com uma imagem no topo tipo uma logomarca, tem como fazer isso? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MyMail Dim MyBody Dim MyAssunto Dim MyFirstname Dim MyLastname Dim MyComments MyAssunto = Request.Form("assunto") MyFirstname = Request.Form("nome") MyLastname = Request.Form("sobrenome") MyComments = Request.Form("obs") MyBody = "Nome: "& MyFirstName & vbcrlf MyBody = MyBody & "Sobrenome: "& MyLastName & vbcrlf MyBody = MyBody & "Assunto: "& MyAssunto & vbcrlf MyBody = MyBody & "Comentário:" & vbcrlf MyBody = MyBody & MyComments Set MyMail = CreateObject("CDO.Message") MyMail.From = MyFirstname MyMail.To = "meunome@eu.com.br" MyMail.Subject = "Teste de mensagem usando CDOSYS" MyMail.TextBody = MyBody MyMail.Send Set MyMail= nothing Response.redirect("../includes/inc_obrigado.asp") %>
-
Boa Noite galera, eu estou produzindo um site e me lembrei de um sisteminha de "fale conosco" que o usuário logado no site podia enviar uma pergunta para o administrador, este por sua vez recebia a solicitação em seu e-mail e de lá respondia. A resposta era enviada para o próprio site. Achei isso muito bacana e queria saber se alguém já teve ou tem esse sistema, achei aqui mesmo no SB mas a algum tempo procuro e não acho
-
Meu velho! Muito obrigado, tive uma idéia/solução baseada na sua! Valeu pela ajuda!
-
Isso mesmo Rafael, normalmente salvo ele em uma pasta chamada excel, nomeio eles através de números ex.: 1.2.xls, 1.3.xls e por ai vai
-
Cara, acho que não me expressei bem, não quero gerar arquivo de excel com asp, quero incluir um link onde aponte o arquivo excel quando envio ele via editor na minha área administrativa, tem como fazer isso? Esses exemplos que você enviou eu havia pesquisado mas não é o que eu quero. Quero enviar o arquivo e inserir o link no texto onde produzo em minha área administrativa para que o usuário possa clicar nele e abrir o arquivo.
-
Galera, alguém ai sabe se é possível incluir arquivo excel usando o fckeditor? Como acontece com as fotos, eu queria incluir um arquivo excel como anexo quando enviar algum "post" par ao meu site de forma que ele fique na página ou como um link para ter acesso a pasta, tem como fazer isso ou algum manja fazer?