- Fórum WMO
- → ibreak's Content
ibreak's Content
There have been 56 items by ibreak (Search limited from 28/04/2023)
#815444 Inserir Banner Do Lado Da Notícia
Posted by ibreak on 12/01/2007, 12:38 in Dreamweaver
tenho uma dúvida que acredito er fácil de resolver.
Eu gostaria de inserir numa página um banner ao lado da notícia, assim como ficam as fotos ao lado das notícias também em sites e em jornais impressos.
Tentei fazer usando tabela mas não dá certo, já que a tabela divide em duas colunas não deixando o texto cair também para debaixo da foto no momento em que o texto é maior dq o banner...
Como que faço isso?
Obrigado.
paulo
#803745 Ajuda Para Chamar Link Do Db Para As Opções Do Menu.
Posted by ibreak on 03/12/2006, 14:05 in ASP
Eu tenho um menu de um site, aonde a categoria que aparece no menu e as subcategorias vem de uma DB em Access...
Minha DB tem duas tabelas:
Tabela CATEGORIAS >> campos: ID, titulo, link
Tabela SUBCATEGORIAS >> campos: ID, categoria, titulo, link
O erro que está aprecendo é este:
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'subcategorias'
/nr/menu/menu2.asp, line 48
Na linha 48 eu tenho isso:
response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA
Podem me ajudar neste código que estou tentando montar... O que eu quero é chamar no menu que aparece na página asp para cada opção cadastrada no menu, o link cadastrado para aquela opção...
Veja abaixo código completo da página:
<html> <head> <title>Menu Suspenso</title> <style type="text/css"> .estilo1{ font-family: Arial; font-size: 12px; background: whitesmoke; color: black; } .estilo2{ font-family: Arial; font-size: 12px; background: gray; color: white; } </style> </head> <body> <% Dim StrCon, objCon, ComandoSQL, objRS, objRS2 StrCon = "Data Source=C:\Inetpub\wwwroot\nr\Menu\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open StrCon strSQL = "SELECT titulo.categorias, subcategorias.titulo " strSQL = strSQL & "FROM categorias " strSQL = strSQL & "INNER JOIN subcategorias " strSQL = strSQL & "ON categorias.id = subcategorias.categoria " strSQL = strSQL & "ORDER BY Categorias.titulo, subcategorias.categoria" ComandoSQL = " SELECT * FROM categorias ORDER BY titulo ASC" Set objRS = objCon.Execute(ComandoSQL) %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% If Not objRS.EOF Then While Not objRS.EOF titulo="" while not objrs.eof if objrs("titulo")<>titulo then response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?categoria="&objRS("id")&"','_self')"">"&objRS("titulo")&"</span>"'IMPRIME A CATEGORIA titulo=objrs("titulo")' ALTERA O VALOR DE "TITULO" end if response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA objrs.movenext wend %> <tr> <% ComandoSQL = " SELECT * FROM subcategorias WHERE categoria=" & objRS("id") & " ORDER BY titulo ASC" Set objRS2 = objCon.Execute(ComandoSQL) %> <div id="layer_menu_<%=objRS("id")%>" style="position:absolute; z-index:1; display: none" onMouseOut="this.style.display='none'"> <% If Not objRS2.EOF Then %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% While Not objRS2.EOF %> <tr> <td class=estilo1 onMouseOver="this.className='estilo2'" onMouseOut="this.className='estilo1'"> <span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>&subcategoria=<%=objRS2("id")%>','_self')"> <% Response.Write objRS2("titulo") %> </span> </td> </tr> <% objRS2.MoveNext Wend %> </table> <% End If %> </div> <% Set objRS2 = Nothing %> </td> </tr> <% objRS.MoveNext Wend End If %> </table> <% objRS.Close Set objRS = Nothing Set ComandoSQL = Nothing objCon.Close Set objCon = Nothing Set StrCon = Nothing %> </body> </html>
#800668 Código Que Captura Notícia De Um Site...
Posted by ibreak on 21/11/2006, 20:29 in ASP
Eu quero capturar as notícias da folha e colocar no meu site...
Pegar as notícias como nessa página:
http://www1.folha.uo...a/emcimadahora/
Pra ajudar eu peguei um código que pega a cotação do dolar e exibe na página... ele está funcionando...
Eu gostaria de mostrar as 5 últimas notícias, categoria, data e título e a data.
o arquivo é em xmlhttp.
Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar.
Vejam código abaixo:
<% Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP") XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false XMLHttp.send() cotacao = XMLHttp.ResponseText cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo response.Write(cotacoes) dim valores() dim cont, cont_valores for cont = 1 to len(cotacoes) step 1 if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then cont_valores = cont_valores + 1 Redim Preserve valores(cont_valores) valores(cont_valores) = Cstr(str) str = "" else str = str + mid(cotacoes,cont,1) end if next ' Fim Coloca valores em uma Array ' Coloca os valores nas variaveis DOLAR_COMERCIAL_COMPRA = valores(3) DOLAR_COMERCIAL_VENDA = valores(4) DOLAR_COMERCIAL_VARIACAO = valores(5) DOLAR_PARALELO_COMPRA = valores(7) DOLAR_PARALELO_VENDA = valores(8) DOLAR_PARALELO_VARIACAO = valores(9) DOLAR_TURISMO_COMPRA = valores(11) DOLAR_TURISMO_VENDA = valores(12) DOLAR_TURISMO_VARIACAO = valores(13) 'PTAX_COMPRA = valores(15) 'PTAX_VENDA = valores(16) 'PTAX_VARIACAO = valores(17) ' Fim coloca os valores nas variaveis %>
#785128 Como Trasmitir Tv Ao Vivo Pela Internet?
Posted by ibreak on 30/09/2006, 13:12 in Dúvidas Gerais
#784713 Como Trasmitir Tv Ao Vivo Pela Internet?
Posted by ibreak on 29/09/2006, 09:49 in Dúvidas Gerais
Pode me ajudar nelas.
Primeira dúvida, qual a placa mais recomendada para transmissão ao vivo pela internet?
Qual a melhor configuração do PC?
Tem alguma sugestão para um servidor de vídeo streaming que não seja tão caro?
Obrigado.
Jr.
#784633 Como Trasmitir Tv Ao Vivo Pela Internet?
Posted by ibreak on 28/09/2006, 21:51 in Dúvidas Gerais
Qual éo processo...
Poderiam me ajudar.
Obrigado.
Jr.
#754198 Erro Quando Faço Login No Sistema
Posted by ibreak on 27/06/2006, 00:55 in ASP
Microsoft JET Database Engine error '80004005'
Not a valid file name.
/suporte/admin_login.asp, line 232
Na linha 232 eu tenho isso aqui:
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open Application("SOS_conexao")
Set objRS = Server.CreateObject("ADODB.Recordset")
O que pode estar ocorrendo... Já mudei o caminho inúmeras vezes da página funções que faz a conexão com o DB mas nada adiantou...
veja o arquivo funções que faz a conexão com o DB:
'Define demais variaveis do sistema
Application("SOS_conexao") = "Data Source=" & endereco_fisico & "databases\SOSdatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Application("SOS_sistema_ativo") = True
Podem me ajudar a resolver...
Aguardo contato... Obrigado.
#737194 Como Recuperar Nome Do Arquivo Enviado?
Posted by ibreak on 04/05/2006, 20:19 in ASP
Eu tenho um formulário básico para enviar informações ao DB.
Existe um campo nesse formulário de texto com um botão enviar, que no momento em que clico nele abre uma popup para enviar a imagem.
Minha dúvida é a seguinte?
Depois que a foto foi enviada com sucesso, como pego o nome do arquivo enviado e salvo no campo texto do formulário.
Podem me ajudar.
Abaixo o código que envia a imagem. (Dundas Upload que renomeia o arquivo)
<% ' On Error Resume Next, passa por cima de possíveis erros 'On Error Resume Next Dim objUpload, objUploadedFile Dim lstFiles, strPath, str1File Dim strNome, intItem, strMsg 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") ' Seta a não necessidade de alteração de configurações no servidor. objUpload.UseVirtualDir = False 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE, 'ela conserva o nome do arquivo original. objUpload.UseUniqueNames = TRUE 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo objUpload.SaveToMemory 'Pega algumas variaveis importantes que estão presentes no form-html que 'chama esse script '(é fundamental que estas atribuições só sejam feitas depois de rodar o '"SaveToMemory" strNome = objUpload.Form("Nome") intItem = objUpload.Form("selItems") 'Redireciona para o caminho físico onde serão guardados os docs. dependendo 'do módulo strPath = Server.MapPath("\news1\arquivos\adm")&"\fotos"&strNome&"\" lstFiles = "" For Each objUploadedFile in objUpload.Files str1File = objUpload.GetFileName(objUploadedFile.OriginalPath) lstFiles = lstFiles & "<li>" & str1File & "<BR>" '' Acrescenta como prefixo ao arquivo a chave do item em questao 'entre chaves ' --- Trocamos o nome do arquivo --- 'objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File objUploadedFile.SaveAs strPath & "FOTO"<NUMERO>".JPG" Next 'Limpa a instância criada na memória do servidor. Set objUpload = nothing ' Vericamos se existe algum erro no codigo acima If Err <> 0 Then ' Mensagem de erro response.write "<b>Erro no envio do arquivo</b>" Else response.write "Arquivo gravado com sucesso com a referencia " & intItem response.write str1File End If %>
#734056 Erro Desconhecido No Upload...
Posted by ibreak on 24/04/2006, 14:08 in ASP
Tenho duas perguntas sobre o código e gostaria de que me ajudassem neste mesmo tópico...
Neste trecho do código completo acima,
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
o nome do arquivo é trocado. Suponhamos que eu envie o arquivo foto1.jpg, o Dundas Upload2 vai trocar para {}_foto1.jpg
Pelo que eu entendi ele apenas acrescenta os ítens em vermelho descritos no código ao nome do arquivo enviado.
Como eu poderia por exemplo fazer ele trocar o nome todo, tipo ao invés de apenas acrescentar caracteres ao nome, mudar o nome todo, como foto1.jpg, foto2.jpg, foto3.jpg e assim sucessivamente.
Eu procurei na busca do Fórum mas não encontrei em si ítens que falavam sobre isso...
Quero agradecer a todos que me ajudaram de álguma forma. Muito obrigado.
#733863 Renomear Com Aspupload
Posted by ibreak on 23/04/2006, 20:33 in ASP
Bem primeiro que recebi muitas informações dos internautas tipo, de que é melhor sempre fazer upload com componente... E de que também que tem componentes que não permitem renomear o arquivo que vc está enviando...
É o seguinte... eu consegui um código do Dundas que renomeia na hora que envia o arquivo, mas sempre reportava erro de permissão e o servidor alega que está tudo bem e que o erro é meu...
Ele me reomendou para eu fazer upload usando o ASPUpload, pois bem peguei o código ASPUpload e ele está funcionando... mas e agora como eu renomeio o arquivo no momento em que fazer o upload.
Outro detalhe é que eu preciso que o upload feito, seja captura pelo formulário para depois enviar para o DB. Tipo eu clico em enviar arquivo, abre uma popup, faço o upload e o nome do arquivo enviado vai pro formulário.
Podem me ajudar a resolver este problema...
O código abaixo, padrão, está funcionando...
Veja:
[code=auto:0]
<%
Dim objUpload
Set objUpload = Server.CreateObject("Persits.Upload")
' Tamanho máximo do arquivo, em bytes
objUpload.SetMaxSize 150000, True
x = objUpload.SaveVirtual("/news1/arquivos/adm/fotos")
Response.Write "Upload efetuado com sucesso"
Set objUpload = Nothing
%>
[code=auto:0]
#733540 Alguém Tem Um Código Aspupload?
Posted by ibreak on 22/04/2006, 15:20 in ASP
Alguém tem o código aspmail pra enviar foto que renomeia no envio.
Obrigado.
#733068 Erro Desconhecido No Upload...
Posted by ibreak on 20/04/2006, 16:13 in ASP
O Upload é feito pelo dundas também.
Veja o código que eles testaram:
<% Dim objUpload Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 150000 objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False objUpload.Save "/" Set objUpload = Nothing Response.Write "Upload efetuado com sucesso" %>
Não entendo porque este dá certo e o meu não. Veja o erro que continua a dar no meu código:
DSUpload.UploadedFile.2 error '80004005'
Can't open file for writing.
/teste/adm/upload2.asp, line 42
Na linha 42 do código, completo em mensagens anteriores, eu tenho isso:
' --- Trocamos o nome do arquivo ---
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
Next
Porque o meu continua a acusar erro de permissão e o que o servidor montou pra teste funciona?
#731747 Erro No Formulário De Indicação.
Posted by ibreak on 17/04/2006, 10:43 in ASP
Bem o trecho que monta o link é este:
TXT = "<script language=JavaScript type=text/javascript>"
TXT = TXT & "function abrir(URL) {"
TXT = TXT & " var width = 232; var height = 266; var left = 99; var top = 99; "
TXT = TXT & "window.open(URL,'Player','width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');}"
TXT = TXT & "</script>"
TXT = TXT & "Nome: " & Request.form("seu_nome") & "<br>"
TXT = TXT & "E-mail: "&Request.form("seu_email")&"<br>"
TXT = TXT & "Para ver o vídeo clique no link abaixo ou copie para o navegador:<br>"
TXT = TXT & "<a href=java script:abrir http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&">Clique Aqui</a>"jmail.AppendHTML(TXT)
#731631 Erro No Formulário De Indicação.
Posted by ibreak on 16/04/2006, 22:47 in ASP
Clica no teste e depois faça a indicação da notícia.
Obrigado pela ajuda...
#731477 Erro Desconhecido No Upload...
Posted by ibreak on 16/04/2006, 13:01 in ASP
Apareceu outro erro agora, pode me ajudar novamente.
Veja o erro:
DSUpload.UploadedFile.2 error '80004005'
Can't open file for writing.
/news1/arquivos/adm/upload2.asp, line 42
Na linha 42 eu tenho isso: (em vermelho)
' --- Trocamos o nome do arquivo ---
objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File
Next
Obrigado.
#731030 Erro No Formulário De Indicação.
Posted by ibreak on 14/04/2006, 14:17 in ASP
Não entendi pra estar resolvendo isso... porque o envio do link do aplicativo?
#731013 Erro Desconhecido No Upload...
Posted by ibreak on 14/04/2006, 13:41 in ASP
Eu tenho um formulário básico que localiza e em seguida envia o arquivo.
Quando eu clico para enviar o arquivo abre uma janéla informando que a página não pode ser exibida, mostrando no final da página o seguinte erro:
HTTP 500 - erro interno do servidor
Internet Explorer
Bem não tenho nem idéia do que possa ser, por isso estou postando aqui o código da página responsável por enviar a foto...
UPLOAD2.ASP
<% ' On Error Resume Next, passa por cima de possíveis erros 'On Error Resume Next Dim objUpload, objUploadedFile Dim lstFiles, strPath, str1File Dim strNome, intItem, strMsg 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") ' Seta a não necessidade de alteração de configurações no servidor. objUpload.UseVirtualDir = False 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE, 'ela conserva o nome do arquivo original. objUpload.UseUniqueNames = False 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo objUpload.SaveToMemory 'Pega algumas variaveis importantes que estão presentes no form-html que 'chama esse script '(é fundamental que estas atribuições só sejam feitas depois de rodar o "SaveToMemory" strNome = objUpload.Form("Nome") intItem = objUpload.Form("selItems") 'Redireciona para o caminho físico onde serão guardados os docs. dependendo 'do módulo strPath = Server.MapPath("..")&"\fotos\"&strNome&"\" lstFiles = "" For Each objUploadedFile in objUpload.Files str1File = objUpload.GetFileName(objUploadedFile.OriginalPath) lstFiles = lstFiles & "<li>" & str1File & "<BR>" '' Acrescenta como prefixo ao arquivo a chave do item em questao 'entre chaves ' --- Trocamos o nome do arquivo --- objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File Next 'Limpa a instância criada na memória do servidor. Set objUpload = nothing ' Vericamos se existe algum erro no codigo acima If Err <> 0 Then ' Mensagem de erro response.write "<b>Erro no envio do arquivo</b>" Else response.write "Arquivo gravado com sucesso com a referencia " & intItem End If %>
Abaixo código do formulário. upload.asp
<html> <body> <form method="post" action="upload2.asp" enctype="multipart/form-data"> Arquivo: <input type="file" name="arquivo"> <input type="submit" value="Enviar"> </form> </body> </html>
#730163 Como Pegar O Nome Do Arquivo Enviado.
Posted by ibreak on 12/04/2006, 00:36 in ASP
Gostaria de contar com a ajuda de vocês no seguinte problema.
Eu tenho um campo no meu formulário que se chama url. Do lado desse campo tem o botão escolher. Quando eu clico nele é aberta uma janéla popup com a página upload.asp(1º código). Eu seleciono o arquivo que eu quero e clico no botão para enviar o arquivo.
Acontece que quando eu faço isso... além deu não receber qualquer informação se o arquivo foi ou não enviado, o nome do arquivo que acabou de ser enviado, não é capturado pelo campo URL da tela principal. Nos testes que eu fiz a foto é enviada normalmente, mas o nome do arquivo não é capturado pela janéla principal depois de enviado na popup.
Como resolver isso...
Abaixo postei o código que faz o upload sem componente (deste fórum)... e mais abaixo o formulário que deverá capturar o nome do arquivo que foi enviado.
UPLOAD.ASP
<% byteCount = Request.TotalBytes 'RequestBin = Request.BinaryRead(byteCount) %> <html> <head> <title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title> <script LANGUAGE="JavaScript"> function Limit(upload) { if (upload.file.value == "") { alert("Informe o nome do arquivo (.jpg ou .gif)!"); upload.file.focus(); return false; } vfile = upload.file.value; tfile = vfile.length; if ((vfile.substr(tfile - 4, 4) != ".jpg") & (vfile.substr(tfile - 4, 4) != ".gif")){ alert("O arquivo deverá possuir o formato (.jpg ou .gif)!"); upload.file.focus(); return false; } } </script> </head> <body> <form name=upload OnKeyPress="return false;" OnSubmit= "return Limit(upload);" method=post ENCTYPE="multipart/form-data"> Arquivo : <input type="file" name="file" size="20"><br> <input type=submit Name="Action" value="Upload do Arquivo"> </form></input></input> </body></HTML> <!---#INCLUDE FILE="upload.inc" ---> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() If byteCount > 200000 Then Response.write "Tamanho do arquivo: <font color='red'>" & byteCount & "</font><br>" Response.Write "<center>Não deu certo...</center>" Response.End End If 'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC 'DEIXE A BARRA "/" - PARA USAR NO SEU SITE 'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET FilePath = Server.MapPath("fotos") & "\" & Fields("file").FileName Fields("file").Value.SaveAs FilePath End If 'BY - ROBERTO GODOY %>
INCLUIR.ASP
<!--#include file="cookies.asp" --> <% 'Criando variáveis Dim rsTipos set rsTipos=server.createobject("adodb.recordset") 'Esta SELECT irá selecionar todos os tipos de notícias 'Neste caso, será para colocarmos no formulário as opções de escolher o tipo da notícia rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd %> <script language="JavaScript"> function eventos() { var width = 350; var height = 300; var left = 0; var top = 0; self.name = 'opener'; remote = open('upload2.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); remote.focus(); } function enviarfoto() { var width = 350; var height = 200; var left = 0; var top = 0; self.name = 'enviarfoto'; remote = open('upload.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); remote.focus(); } </script> <html> <head> <title>iMasters / ASP - Notícias</title> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" cellspacing="3" cellpadding="0"> <tr valign="middle"> <td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">ADMINISTRATIVO - ASP NOTÍCIAS</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif"> </font></td> </tr> <tr> <td width="126" height="277" valign="top" bgcolor="#BFEFFF"><table width="100%" border="0" cellspacing="2" cellpadding="1"> <tr> <td bgcolor="#FFFFFF"><a href="incluir.asp"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir Notícia</strong></font></div> </a></td> </tr> </table></td> <td width="600" valign="top"><blockquote> <p><font face="Arial, Helvetica, sans-serif"><strong><font size="4"> Incluir notícia</font></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif">Para incluir uma nova notícia, preencha o formulário abaixo:</font></p> <form name="form1" method="post" action="incluir2.asp"> <table border="0" align="center" cellpadding="0" cellspacing="3"> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Título:</font></div></td> <td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2"> <input name="titulo" type="text" id="titulo" size="40"> </font></font></div></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <select name="tipo" id="tipo"> <% while NOT rsTipos.EOF %> <option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option> <% rsTipos.movenext wend %> </select> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="chamada" cols="40" id="chamada"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conteúdo:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="conteudo" cols="40" rows="5" id="conteudo"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Data para expirar:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="expira" type="text" id="expira"> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td> <td> <table width="100" border="0" cellspacing="0" cellpadding="1"> <tr> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input type="radio" name="destaque" value="1"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">Sim</font></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="destaque" type="radio" value="0" checked> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">Não</font></td> </tr> </table></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div></td> <td><table width="254" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="152" height="24"><input name="url" type="text" id="url" readonly> </td> <td width="102"><table width="81" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="81"><font size="1" face="Arial, Helvetica, sans-serif">Escolher</font></td> </tr> <tr> <td><font size="1" face="Arial, Helvetica, sans-serif"><a href="java script:enviarfoto();">Enviar</a></font></td> </tr> </table></td> </tr> </table> </td> </tr> <tr> <td colspan="2"><div align="right"> <input type="submit" name="Submit" value="Cadastrar"> </div></td> </tr> </table> </form> <p> </p> </blockquote></td> <td width="40" bgcolor="#BFEFFF"><font face="Arial, Helvetica, sans-serif"> </font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">ASP - Notícias</font></div></td> </tr> </table> <p> </p> </body> </html>
#730058 Erro No Formulário De Indicação.
Posted by ibreak on 11/04/2006, 17:26 in ASP
É o seguinte...
tentando seguir a sua linha de raciocínio eu montei da seguinte forma...
TXT = "<script language=JavaScript type=text/javascript>"
TXT = TXT & "function abrir(URL) {var width = 232; var height = 266; var left = 99; var top = 99; window.open(URL,'Player','width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');}"
TXT = "</script>"TXT = "Nome: " & Request.form("seu_nome") & "<br>"
TXT = TXT & "E-mail: "&Request.form("seu_email")&"<br>"
TXT = TXT & "Para ver o vídeo clique no link abaixo ou copie para o navegador:<br>"
TXT = TXT & "<a href="java script:abrir "http://"&Request.ServerVariables("HTTP_HOST")&"/tvonline/ver_video.asp?id="&Request.querystring("id")&">Clique Aqui</a>"
jmail.AppendHTML(TXT)
Não está funcionando tá...
estou perto de fazer fonunciar?
Valeu pela força.
#729944 Erro No Upload
Posted by ibreak on 11/04/2006, 14:03 in ASP
- Fórum WMO
- → ibreak's Content
- Privacy Policy
- Regras ·