fantasma

já resolvi obrigado a todos

<a href="javascript:;" onclick="window.open('<%=status%>','controle','width=470,height=320'); "><img border="0" src="foto/<%=bd("imgra")%>" width="70" height="47"> </a> tem como fazer isto

http://www.vivaolinux.com.br/artigos/verAr...php?codigo=343#

alguém conhece algum script que pega sabado domindo e feriados e inclua em um banco de dados

obrigado a todos resolvido

<SELECT name="cat" > <% Set rs=objdb.execute("select * from mes ") do while not rs.Eof response.write ("<option>" & rs("mes") & "<option>") rs.movenext loop %> </select> preciso pegar o value referente ao mes

você tem que completar conforme seu servidor

O CDOSYS é a relação nova e melhorada da Microsoft para envio de e-mail, oferecendo toda a mesma funcionalidade que o CDONTS. Segue abaixo um exemplo: <% 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = "eu@MeuDominio.com.br" 'e-mail do destinatário objCDOSYSMail.To = "destinatario@dominio.com.br" 'assunto da mensagem objCDOSYSMail.Subject = "Teste do CDOSYS" 'conteúdo da mensagem objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS" 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "E-mail enviado para destinatario@dominio.com.br ..." %>

Muito bom to dentro...não leve a mal;;;;;;rsssssssssssssss

qual é a linha 10

tenta assim e informe o que aparece <% 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = request.form("seu email") objMail.To = request.form(""amigoemail"") objMail.Subject= "indicação" objMail.TextBody = "site indicado" 'Send the email return = objMail.Send 'Notify user if return <> 0 then response.write "Erro: " & return else response.write "Mensagem enviada com sucesso." end if 'Clean-up mail object Set objMail = Nothing %>

Set objRS8 = objDB.Execute ("SELECT * FROM gestao where cdate(DATA) ='"& data_certa &"' ") If not objRS8.EOF Then datagestao=objrs8("data") dia=day(datagestao) mes=month(datagestao) ano=year(datagestao) data_certa_gestao = dia&"/"&mes&"/"&ano Do While Not objRS8.EOF response.write("<tr bgcolor=#FFFFFF>") Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>") response.write("<tr>") objRS8.MoveNext Loop else Response.Write("<b>Não existe esta data no banco de dados Gestão</b>") objRS8.Close objDB.Close Set objRS8 = Nothing Set objDB = Nothing End If Set objRS5 = objDB.Execute ("SELECT * FROM redelocal where cdate(DATA) ='"& data_certa &"' ") If objRS5.EOF Then Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>") objRS5.Close objDB.Close Set objRS5 = Nothing Set objDB = Nothing Response.End End If datagestao=objrs5("data") dia=day(datagestao) mes=month(datagestao) ano=year(datagestao) data_certa_gestao = dia&"/"&mes&"/"&ano Do While Not objRS5.EOF response.write("<tr bgcolor=#FFFFFF>") Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>") response.write("<tr>") objRS5.MoveNext Loop Response.Write("</table>") objRS5.Close Set objRS5 = Nothing end if *******ta dando este erro, não esta executando a 2º consulta Error Type: Microsoft VBScript runtime (0x800A01A8) Object required /aescalaplantao/listateste.asp, line 356

<% if request("botao") = "enviar" then 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = "seuemail@seudominio.com.br" objMail.To = request.form("to") objMail.Subject= request.form("subject") objMail.TextBody = request.form("body") 'Send the email return = objMail.Send 'Notify user if return <> 0 then response.write "Erro: " & return else response.write "Mensagem enviada com sucesso." end if 'Clean-up mail object Set objMail = Nothing end if %> <html> <head> <title>CDONT TEST</title> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> </head> <body> <p>CDOSYS TEST<br> </p> <form method="POST" action="cdosys.asp"> <table border="0" width="43%"> <tr> <td width="13%">To:</td> <td width="87%"><input type="text" name="to" size="20"></td> </tr> <tr> <td width="13%">Subject:</td> <td width="87%"><input type="text" name="subject" size="20"></td> </tr> <tr> <td width="13%">Message:</td> <td width="87%"><textarea rows="2" name="body" cols="20"></textarea></td> </tr> <tr> <td width="13%"></td> <td width="87%"><input type="submit" value="enviar" name="botao"></td> </tr> </table> </form> </body> </html>

você já verificou se o componente esta instalado

Set objRS8 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ") If objRS8.EOF Then Response.Write("<b>Não existe esta data no banco de dados Gestão</b>") objRS8.Close objDB.Close Set objRS8 = Nothing Set objDB = Nothing Response.End End If datagestao=objrs8("data") dia=day(datagestao) mes=month(datagestao) ano=year(datagestao) data_certa_gestao = dia&"/"&mes&"/"&ano Do While Not objRS8.EOF response.write("<tr bgcolor=#FFFFFF>") Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredperiodo_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("matricula_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS8("requiredrefeicao_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS8("requiredGrupo") & "</td>") response.write("<tr>") objRS8.MoveNext Loop Set objRS5 = objDB.Execute ("SELECT * FROM xx where cdate(DATA) ='"& data_certa &"' ") If objRS5.EOF Then Response.Write("<b>Não existe esta data no banco de dados da Rede Local</b>") objRS5.Close objDB.Close Set objRS5 = Nothing Set objDB = Nothing Response.End End If datagestao=objrs5("data") dia=day(datagestao) mes=month(datagestao) ano=year(datagestao) data_certa_gestao = dia&"/"&mes&"/"&ano Do While Not objRS5.EOF response.write("<tr bgcolor=#FFFFFF>") Response.Write("<td bgcolor=#FFFFFF align=center>" & FormataData(data_certa_gestao) & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredperiodo_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("matricula_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=center>" & objRS5("requiredrefeicao_1") & "</td>") Response.Write("<td bgcolor=#FFFFFF align=>" & objRS5("requiredGrupo") & "</td>") response.write("<tr>") objRS5.MoveNext Loop Response.Write("</table>") objRS5.Close Set objRS5 = Nothing end if %> como faço para executar a parte de baixo do script. pois quando não tem a data no objrs8 o script para.

você já tentou assim <td width="70"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp <%=wrs("datachegada")%></font></td>

não precisa do nt server..............pode ser qualquer sistema operacional tendo um servidor de web por exemplo o PWS, IIS e outros

alguém pode me ajudar

Set objRS = objDB.Execute ("SELECT usp.periodo_1,usp.periodo_2,usp.periodo_3,usp.periodo_4,imb.periodo_2,periodo_3,periodo_4 from usp inner join ibm where Cdate(data) ='"& data_certa &"'") a tabela usp e ibm tem um campos data Eu quer pegar todos os campos da tabela usp, ibm e verificar se é igual a um data qualquer

fazer um select em varias tabelas do banco verificando um determinado campo de cada tabela Exemplo select tabela1,tabela2,tabela3 where campo=variavel

INSERT INTO tabela (data, hora) VALUES (GETDATE(), time()) você já tentou isso...não sei se funciona eu não testei

não entendi sua pergunta direito. você já tentou com <% =Time%>

você pode apontar qual a linha 184

você já olhou o banco de dados e existe esta tabela?

if campo_foto="" then faça isso................................ else isoooooooooooo end if