Catálogos

<% Response.Buffer = True %> <% Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private" Response.CacheControl = "no-cache" If Request.Querystring("IDC")<>"" Then Arc = Request.Querystring("IDC") End If FUE = Request.Form("FUE") FIL = Request.Form("CAT") If FUE="S" Then Session("Habilitado")="S" 'Grabación de BdD Set db = Server.CreateObject("ADODB.Connection") db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("Datos/PFConsulta.mdb") & ";" strSQL = "" strSQL = strSQL & "INSERT INTO Consultas (" strSQL = strSQL & "Cons_Fecha" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Nombre" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Email" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Empresa" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Consulta" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Interes" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Operac" strSQL = strSQL & ", " strSQL = strSQL & "Cons_Estado" strSQL = strSQL & ") VALUES (" strSQL = strSQL & FechSQL(Date()) strSQL = strSQL & ", " strSQL = strSQL & "'" & Request.Form("nombre") & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & Request.Form("email") & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & Request.Form("empresa") & "'" strSQL = strSQL & ", " strSQL = strSQL & "'CATALOGO'" strSQL = strSQL & ", " strSQL = strSQL & "'" & FIL & "'" strSQL = strSQL & ", " strSQL = strSQL & "'BAJ'" strSQL = strSQL & ", " strSQL = strSQL & "'OK'" strSQL = strSQL & ") " Response.Write strSQL Set rs = db.Execute(strSQL) db.Close Set rs = Nothing 'Envio de e-mail Dim sDestinatario, sEnviante, sAsunto, sCuerpo Dim oMail sAsunto = "POLIFILTROS - Download de Catálogo" sEnviante = Request.Form("Nom") sInteres = FIL 'Cuerpo sCuerpo = "** La información proviene del Pedido de Datos" & VbCrLf& VbCrLf sCuerpo = sCuerpo & "Nombre : " & Request.Form("nombre") & VbCrLf sCuerpo = sCuerpo & "e-mail : " & Request.Form("email") & VbCrLf sCuerpo = sCuerpo & "Empresa : " & Request.Form("empresa") & VbCrLf sCuerpo = sCuerpo & "Interesado por : " & sInteres & VbCrLf & VbCrLf sCuerpo = sCuerpo & "--- Fin ---" & VbCrLf sCuerpo = sCuerpo & VbCrLf ' sDestinatario="info@polifiltros.com" sDestinatario="info@division1.com.ar" 'Enviar set oMail=Server.CreateObject("CDONTS.NewMail") 'Propiedades oMail.From = sEnviante & "<" & Request.Form("email") & ">" oMail.To = sDestinatario oMail.Subject = sAsunto oMail.Body = sCuerpo oMail.Cc = "" oMail.Bcc = "contacto_d1@ciudad.com.ar" 'oMail.BodyFormat = 0 ' CdoBodyFormatHTML 'oMail.MailFormat = 0 ' CdoMailFormatMime ' Enviamos oMail.Send set oMail = nothing End If %> Catálogos

<% If Session("Habilitado")="S" Then If FIL="" Then FIL = Arc Filename="DATAV2/CatalogosPDF/" & FIL %> <% Else %> <% End If %>
Imprimir
Por Acceso Oeste – Bajada Dolores Prats (Haedo / El Palomar)
Mtra. Rocha Montarce – Cap. Rosales – Dinamarca Nº 1495

:: Cerrar ventana

<% Function FechSQL(x) If Not IsDate(x) Then Exit Function FechSQL = "#" & Month(x) & "/" & Day(x) & "/" & Year(x) & "#" End Function %>