Jump to content

  2. → Viewing Profile: Tópicos: Deividy

Deividy

Member Since 25/09/2003
Offline Last Active 22/04/2008, 14:55
-----

Topics I've Started

Figura Em E-mail

14/11/2003, 15:42

eu estou tentando colocar uma logo para ser mandado dentro do e-mail e não estra dando serto

o codigo é esse

Dim msg, texto
Set msg = Server.CreateObject("CDONTS.NewMail") 
texto = "<html><body>" 
texto = texto & "<center>"
texto = texto & "<img src=logoAgenteAmbiental.gif>"
texto = texto & "</center>"
texto = texto & "<center>Este email está sendo enviado no formato HTML</center><p>" 
texto = texto & "Você pode colocar qualquer TAG que desejar. "
texto = texto & "<a href=http://www.cohesp.com.br>LINK</a>."
texto = texto & "</body></html>" 
msg.From = CStr(email)
msg.To= "deividy_r_ramires@hotmail.com" 
msg.Subject = "Email em HTML" 
msg.BodyFormat = 0
msg.MailFormat = 0
msg.Body = texto
msg.AttachFile Server.MapPath("logoAgenteAmbiental.gif")
msg.Send 
Set msg = Nothing

quero que a imagem apareça no testo em html só não aparece nada

Update

23/10/2003, 12:55

eu nessecito que alguem me ajude a montar um Update só que numa instrução de true ou valse

alguem pode me ajudar nisso

Verifica Db

22/10/2003, 12:56

estou verificando um campo de verdadeiro/falso só que se o primeiro campo do bd não estiver preenchido ele não verifica nada sempre dá erro

o que eu devo fazer para que ele verifique no db e depois retorne o valor



sq = "SELECT * FROM analise Where ponto= '" & gp & "' Order by id desc"
Set valida = Server.CreateObject("ADODB.Recordset")
valida.Open sq, conn, 3, 3


valida.MoveFirst
Do While not Valida.EOF
if valida("valida")=false then
Response.Write("erro")
Response.End()
else
Response.Write(valor)
end if

valida.MoveNext
loop

Grafico

14/10/2003, 10:28

não tenho a menor ideia de como montar um grafico já vi alguns ex. que tem aqui no forum mais não adiantou.

tenho que montar um grafico em forma de barra só que trazendo as informações do banco de dados

algum pode me dar um help

Bd Não Preenchido

09/10/2003, 15:44

esse variavel "tela", tem alguns usuarios que virão com esse campo preechido, só que eu só quero mostrar os usuarios que não preencheram esse campo eu resolvo isso.

Obrigado a todos que puderem me ajudar



<body>
<p>Visualiza&ccedil;&atilde;o dos Agentes Ambientais Cadastrados.<br>
  <font color="#0066CC"><%= vlogin %></font>
  <%
 
 
rsUser.MoveFirst
while not rsUser.Eof
 
    tela  = rsUser.Fields("tela").Value



    id        = rsUser.Fields("id").Value
login      = rsUser.Fields("login").Value
senha      = rsUser.Fields("senha").Value
grupo      = rsUser.Fields("grupo").Value
ponto      = rsUser.Fields("ponto").Value
nome      = rsUser.Fields("nome").Value
telefone  = rsUser.Fields("telefone").Value
email      = rsUser.Fields("email").Value
data        = rsUser.Fields("datadecadastro").Value


  if (cor = "#FFFFFF") then
  cor = "#CCCCCC"
  else
  cor = "#FFFFFF"
  end if
%>
<form>
  <hr>
  <table width="300" border="0" bgcolor="<%=cor%>">
    <tr>
      <td width="168">ID <%= UCase(id) %></td>
      <td width="56"><input type="submit" name="Submit" value="Excluir"></td>
      <td width="54"><input type="submit" name="Submit2" value="Editar"></td>
    </tr>
  </table>
  <table width="100%" border="0" bgcolor="<%=cor%>">
    <tr>
      <td width="22%">Nome</td>
      <td width="25%">Telefone</td>
      <td width="26%">E-mail</td>
      <td width="27%">Data </td>
    </tr>
    <tr>
      <td><font color="#0066CC"><%= Ucase(nome) %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= telefone %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= email %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= data %>&nbsp;</font></td>
    </tr>
  </table>
  <table width="100%" height="0" border="0" bgcolor="<%=cor%>">
    <tr>
    <td width="166" height="50%">Login</td>
    <td width="189">Senha</td>
    <td width="197">Ponto </td>
    <td width="206">Grupo</td>
  </tr>
  <tr>
      <td height="50%"><font color="#0066CC"><%= Ucase(login) %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= senha %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= Ucase(ponto) %>&nbsp;</font></td>
      <td><font color="#0066CC"><%= Ucase(grupo) %>&nbsp;</font></td>
  </tr>
</table>
 
</form>
<p>
  <%

rsUser.MoveNext
Loop

rsUser.Close
Set rsUser = Nothing

%>

<p><a href="login.asp">Sair da &aacute;rea restrita</a></p>
<p><font color="#0066CC"> </font></p>
</body>


  1. Fórum WMO
  2. → Viewing Profile: Tópicos: Deividy
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq