|
|
|
<%
sql = "SELECT * FROM Noticias WHERE tipo='CUR' order by ID DESC;"
set result = Con.Execute(sql)
if not result.BOF then
result.MoveFirst
%>
|
<%
'Response.Write ""
'Recorre todas las filas del resultado
Do While Not result.EOF
' Muestra la fila actual
response.Write ""
if result.Fields("copete") = "D" then
Response.Write " - "&result.Fields("titulo")&"
"
else
Response.Write " - "&result.Fields("titulo")&"
"
end if
if result.Fields("copete") <> "NO" and (result.Fields("copete") <> "D") then
response.Write ".- "&result.Fields("copete")& " "
end if
response.Write "(HAGA CLICK PARA MAYOR INFORMACION.........)
"
'Pasa a la siguiente fila
result.MoveNext
Loop
%> |
<%
else
response.Write("")
response.Write("")
response.Write("PAGINA EN CONSTRUCCION
CONTACTESE CON: temporex@temporex.com.ec")
response.Write(" | ")
response.Write(" ")
end if
result.Close
Set result = Nothing
Con.Close
set Con = nothing
%>
<%
if(hacer="CONTACTAR") then
cBody = "Estimados Señores de ACCE:"&VbCrLf&"Nombre: "& nombre & VbCrLf & "Mail: "&mail& VbCrLf & "Ciudad: "&ciudad&""&VbCrLf&"Telefono: "&telefono&""&VbCrLf&"Consulta:"&VbCrLf&""&consulta&" "
Set oCDO = Server.CreateObject("CDO.Message")
'Asignamos las propiedades al objeto
oCDO.From = mail
oCDO.To = "roberto@temporex.com.ec"
oCDO.Subject = cSubject
oCDO.TextBody = cBody
if(tema="legal") then
oCDO.Cc = "roberto@temporex.com.ec"
'oCDO.Bcc = "lcevallos@ech.com.ec"
end if
'oCDO.BodyFormat=0
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
'Mostramos mensaje de que se envió con éxito.
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
'set cnn = Server.CreateObject("ADODB.Connection")
'set rst = Server.CreateObject("ADODB.RecordSet")
'cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comapnias.mdb")
'cnn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("access_db\sgc.mdb"))
'sqltext = "SELECT * FROM consulta"
'rst.Open sqltext,cnn,3,3
'rst.AddNew
'rst("via") = "web"
'rst("recibe") = 4
'rst("responde") = 3
'rst("nombre") = nombre
'rst("mail") = mail
'rst("telefono") = telefono
'rst("fecha") = fecha
'rst("tipo") = tema
'rst("consulta") = consulta
'rst("afiliado") = afiliado
'rst.update
end if
%>
|
|
|
