| |
Detalle
del articulo |
<%
Dim RsNotiNoved
Dim intIdNta ' As Interger
Dim strSecc ' As String
intIdNta = Request("noticia")
Set RsNotiNoved = GetExecute("SELECT LG_NOTICIAS.*, LG_NOTICIAS_SEC.NTS_NOMBRE " & _
"FROM LG_NOTICIAS INNER JOIN LG_NOTICIAS_SEC ON LG_NOTICIAS.NTS_NRO = LG_NOTICIAS_SEC.NTS_NRO WHERE NTA_NRO = " & intIdNta )
strSecc = RsNotiNoved.Fields("NTS_NRO").Value
If (cStr(Request("txtNotiMail")) <> "") Then
Dim objCDO
Dim strBodyArt ' As String
strBodyArt = "" & Chr(13)
strBodyArt = strBodyArt & "" & Chr(13)
strBodyArt = strBodyArt & " " & Chr(13)
strBodyArt = strBodyArt & " " & Chr(13)
'strBodyArt = strBodyArt & "" & RsNotiNoved.Fields("NTA_TITULO").Value & "
" & Chr(13)
strBodyArt = strBodyArt & "" & RsNotiNoved.Fields("NTA_TITULO").Value & "
" & Chr(13)
strBodyArt = strBodyArt & "" & Replace(Replace(RsNotiNoved.Fields("NTA_ARTICULO").Value, chr(13), "
"), chr(10), "
") & "
" & Chr(13)
strBodyArt = strBodyArt & "www.laguardiarosario.com.ar
" & Chr(13)
strBodyArt = strBodyArt & ""
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = cStr(Request("txtNotiMail"))
objCDO.From = "laguardiarosario@yahoo.es" '"noticias@adcrosario.com.ar"
objCDO.CC = ""
objCDO.Subject = "Pquia. La Guardia Informa: " & RsNotiNoved.Fields("NTA_TITULO").Value
objCDO.BodyFormat = 0
objCDO.Body = strBodyArt
objCDO.Send()
Set objCDO = Nothing
'RsNotiNoved.Close
'Set RsNotiNoved = Nothing
'Response.Redirect("index.asp")
End If
%>
| >
<%=RsNotiNoved.Fields("NTS_NOMBRE").Value%> |
| <%=RsNotiNoved.Fields("NTA_TITULO").Value%> |
<%=FormatDateTime(RsNotiNoved.Fields("NTA_F_PUBLIC").Value, 1)%> |
<%=Replace(RsNotiNoved.Fields("NTA_ARTICULO").Value, chr(13), "
")%> |
|
<%
GetCommand "UPDATE LG_NOTICIAS SET NTA_COUNT = " & (RsNotiNoved.Fields("NTA_COUNT").Value + 1) & " WHERE NTA_NRO = " & RsNotiNoved.Fields("NTA_NRO").Value
RsNotiNoved.Close
Set RsNotiNoved = Nothing
%>
| |
Articulos
relacionados |
|
|
Enviale
este artículo a un amigo |
|
|
|
 |