Envio de Email

[marvazoler 0]

Olá galera beleza?

 

 

Seguinte, tenho uma tabela de email chamada tbl_email

Fiz o teste mas não deu certo o if, o que está errado?

 

 

<%
Dim oConn
Dim oRs
Dim filePath
Dim varlinha
filePath = Server.MapPath("/banco/banco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set oRs = Server.CreateObject("ADODB.Recordset")
varlinha = Request.Form("linha") 
Set oRs = oConn.Execute("SELECT *,LINHA.LINHA FROM (TBL_EMAIL left join LINHA ON LINHA.CODIGO = TBL_EMAIL.LINHA1) where linha1 = "&varlinha&" or linha2 = "&varlinha&"")
Do while not oRs.eof
if (Request.Form("linha") = oRs("linha1")) then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "faleconosco@faleconosco.com.br"
cdoMessage.to= oRs("Email")
cdoMessage.Subject = "Mudança de Horário - VJD"
cdoMessage.HTMLBody ="<b>"&"<font size=2 face=Verdana>"&"SISTEMA DE HORÁRIO VIAÇÃO JOANA DARC - LINHARES" &"</font>"&"</b>"& "<BR>"&"<br>" &"<b>"&"<font size=2 face=Verdana>"&"ATENÇÃO Sr(a): "&"</font>"&"</b>"&"<font size=2 face=Verdana color=Blue>"&"<b>"&oRs("Nome")&"</b>"&"</font>"&"<br>"&"<br>" &"<font face=verdana size=2>"&"Informamos que o horário da Linha: "&"<b>"&"<font color=Blue>"& oRS("LINHA1")&"</font>"&"</b>" & " foi alterado."& "<BR>"& "Consulte seu novo horário em nosso site, [url="http://www.vjd.com.br"]http://www.vjd.com.br[/url] e selecione opção Horário."& "<BR>" &"<br>"&"<b>"&"Não responde este e-mail. Pois o mesmo é gerado automaticamente pelo sistema de horário online."&"</b>"&"</font>"
cdoMessage.Send
end if
if (Request.Form("linha") = oRs("linha2")) then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "faleconosco@faleconosco.com.br"
cdoMessage.to= oRs("Email")
cdoMessage.Subject = "Mudança de Horário - VJD"
cdoMessage.HTMLBody ="<b>"&"<font size=2 face=Verdana>"&"SISTEMA DE HORÁRIO VIAÇÃO JOANA DARC - LINHARES" &"</font>"&"</b>"& "<BR>"&"<br>" &"<b>"&"<font size=2 face=Verdana>"&"ATENÇÃO Sr(a): "&"</font>"&"</b>"&"<font size=2 face=Verdana color=Blue>"&"<b>"&oRs("Nome")&"</b>"&"</font>"&"<br>"&"<br>" &"<font face=verdana size=2>"&"Informamos que o horário da Linha: "&"<b>"&"<font color=Blue>"& oRS("LINHA2")&"</font>"&"</b>" & " foi alterado."& "<BR>"& "Consulte seu novo horário em nosso site, [url="http://www.vjd.com.br"]http://www.vjd.com.br[/url] e selecione opção Horário."& "<BR>" &"<br>"&"<b>"&"Não responde este e-mail. Pois o mesmo é gerado automaticamente pelo sistema de horário online."&"</b>"&"</font>"
cdoMessage.Send
end if
oRs.MoveNext 
Loop 
%>

Desde já agradeço

[jrcardozo 4]

primeiro é necessario saber qual objetivo do IF e que valores contem nas colunas

[marvazoler 0]

Ogrigado pela atenção

 

Bom, tenho uma tabela de cadastro de email, e nela tenho 2 campos, linha1 e linha2

 

tem um campo o qual a minha a variável pega de uma tela .htm

 

<input type="text" id="linha" name="linha" size="5" value="<% Response.Write ("0" & oRs("Cod_linha"))%> " readonly="true" class="edit">

 

o meu if está em cima deste valor que o campo linha tem

[jrcardozo 4]

coloque essa condição no where da consulta

[kobutiii 0]

Olá galera beleza?

 

 

Seguinte, tenho uma tabela de email chamada tbl_email

Fiz o teste mas não deu certo o if, o que está errado?

 

 

<%
Dim oConn
Dim oRs
Dim filePath
Dim varlinha
filePath = Server.MapPath("/banco/banco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set oRs = Server.CreateObject("ADODB.Recordset")
varlinha = Request.Form("linha") 
Set oRs = oConn.Execute("SELECT *,LINHA.LINHA FROM (TBL_EMAIL left join LINHA ON LINHA.CODIGO = TBL_EMAIL.LINHA1) where linha1 = "&varlinha&" or linha2 = "&varlinha&"")
Do while not oRs.eof
if (Request.Form("linha") = oRs("linha1")) then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "faleconosco@faleconosco.com.br"
cdoMessage.to= oRs("Email")
cdoMessage.Subject = "Mudança de Horário - VJD"
cdoMessage.HTMLBody ="<b>"&"<font size=2 face=Verdana>"&"SISTEMA DE HORÁRIO VIAÇÃO JOANA DARC - LINHARES" &"</font>"&"</b>"& "<BR>"&"<br>" &"<b>"&"<font size=2 face=Verdana>"&"ATENÇÃO Sr(a): "&"</font>"&"</b>"&"<font size=2 face=Verdana color=Blue>"&"<b>"&oRs("Nome")&"</b>"&"</font>"&"<br>"&"<br>" &"<font face=verdana size=2>"&"Informamos que o horário da Linha: "&"<b>"&"<font color=Blue>"& oRS("LINHA1")&"</font>"&"</b>" & " foi alterado."& "<BR>"& "Consulte seu novo horário em nosso site, [url="http://www.vjd.com.br"]http://www.vjd.com.br[/url] e selecione opção Horário."& "<BR>" &"<br>"&"<b>"&"Não responde este e-mail. Pois o mesmo é gerado automaticamente pelo sistema de horário online."&"</b>"&"</font>"
cdoMessage.Send
end if
if (Request.Form("linha") = oRs("linha2")) then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "faleconosco@faleconosco.com.br"
cdoMessage.to= oRs("Email")
cdoMessage.Subject = "Mudança de Horário - VJD"
cdoMessage.HTMLBody ="<b>"&"<font size=2 face=Verdana>"&"SISTEMA DE HORÁRIO VIAÇÃO JOANA DARC - LINHARES" &"</font>"&"</b>"& "<BR>"&"<br>" &"<b>"&"<font size=2 face=Verdana>"&"ATENÇÃO Sr(a): "&"</font>"&"</b>"&"<font size=2 face=Verdana color=Blue>"&"<b>"&oRs("Nome")&"</b>"&"</font>"&"<br>"&"<br>" &"<font face=verdana size=2>"&"Informamos que o horário da Linha: "&"<b>"&"<font color=Blue>"& oRS("LINHA2")&"</font>"&"</b>" & " foi alterado."& "<BR>"& "Consulte seu novo horário em nosso site, [url="http://www.vjd.com.br"]http://www.vjd.com.br[/url] e selecione opção Horário."& "<BR>" &"<br>"&"<b>"&"Não responde este e-mail. Pois o mesmo é gerado automaticamente pelo sistema de horário online."&"</b>"&"</font>"
cdoMessage.Send
end if
oRs.MoveNext 
Loop 
%>

Desde já agradeço

Primeiramente peço desculpas por estar dando uma resposta não mto útil ao topic, porém será útil na sua vida como programador. Se obrigue a fazer a identação do código, porque você pode entender, mas se for um trabalho por exemplo, quem for mexer no seu código, vai amaldiçoar até o seu gato de estimação.

 

Abraço