seleccion múltiple

gagarin · #1 (**permalink**) 05/06/2007, 04:41

Hola a todos tengo este código para enviar desde un formulario un correo con info, que a su vez se mete a una base de datos, aquí normalmente solicitan más info de los productos y alguien hace el envío de los mails con la info, la cuestión es: como hago para que en lugar de que en observaciones ponganq ue quieren más info de x o y producto ellos puedan seleccionar todos los productos de los que quieren info y solo se vaya un solo registro a la web ocn estas solicitudes.

Este es el código:

Código:

<%@ Language = VBScript%>

<%Function LeerArchivo (ByVal UbicacionyNombre)   
   Const Lectura = 1
   Dim objFSO
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   'If UbicacionyNombre <> "" Then
   ' UbicacionyNombre = Replace(UbicacionyNombre, " ", "%20")
   'End If
   'Response.Write UbicacionyNombre & "<br>"
   'Response.End
   On Error Resume Next
	If objFSO.FileExists(UbicacionyNombre) then
	 Set objText = objFSO.OpenTextFile(UbicacionyNombre, Lectura)
	  LeerArchivo = objText.ReadAll
	  objText.Close
	  'Response.Write "SI"
	 Set objText = Nothing    
    Else
	 LeerArchivo = ""
	 'Response.Write "NO"
	End If
   Set objFSO = Nothing  
  End Function%>

<%Function EnviarEmailHtml(ByVal Servidor_de_Correo, ByVal Nombre_De, ByVal Correo_De, ByVal Correo_Para, ByVal Asunto, ByVal Mensaje, ByVal Prioridad)
   Set JmailHtml = CreateObject("JMail.SMTPMail")
     JmailHtml.ServerAddress = Servidor_de_Correo
     JmailHtml.SenderName = Nombre_De
     JmailHtml.Sender = Correo_De
     JmailHtml.AddRecipient Correo_Para
     JmailHtml.Subject = Asunto
     JmailHtml.Priority = Prioridad
     JmailHtml.Charset = "iso-8859-1"
     JmailHtml.ContentType = "text/html"
     JmailHtml.HTMLBody = Mensaje
     On Error Resume Next
     JmailHtml.Execute
     If Err.number = 0 Then
      EnviarEmailHtml = 1
     Else
      EnviarEmailHtml = 0
      Err.Clear
     End If 
   Set JmailHtml = Nothing
  End Function%>

<%Ip = Request.ServerVariables("Remote_Host")%>


<html>
 <head>
  <title>EMPRESA</title>
 </head>
 <body bgcolor="#af1e2d" text="#fff" link="#125699" vlink="#9c7384">
 <center>
 <%If Ip = "213.37.49.233" Then%>
  <table border="0" cellpadding="0" cellspacing="0" align=center width=490>
 <%Else%>
  <table border="0" cellpadding="0" cellspacing="0" align=center width=490 height=180>
 <%End If%>
   <tr>
    <td align=center>
	 <a href="javascript:self.close();"><img src="images/cerrar.gif" border="0" width="89" height="55"></a>
	</td>
   </tr>
  </table>
 </body>
</html>

<%Producto = Trim(Request("producto"))
   If Len(Promocion) > 3 Then
    MatProducto = Split(Producto,"@")
    CodProducto = MatProducto(0)
    NomProducto = MatProducto(1)
   End If
   If Ip = "213.37.49.233" Then
    Response.Write Producto
    Response.End
   End If
   If CodProducto <> "" Then
    CodProducto = Replace(LCase(CodProducto),"-","")
    CodProducto = Replace(LCase(CodProducto)," ","")
    'Response.Write CodProducto
    'Response.End
    Archivo = LeerArchivo("E:\wwwroot\empresa\mailing\" & CodProducto & "\" & CodProducto & ".htm")
   Else
    Archivo = ""
    CorreoEnviado = 0
   End If
   If Len(Archivo) > 100 Then
    NombreDe = "Dpto. Comercial -EMPRESA-"
    CorreoDe = "[email protected]"
    CorreoPara = Trim(Request.Form("email"))
    Asunto = "NOMBRE EMPRESA - Información " & UCase(NomPromocion) & " "
    CorreoEnviado = EnviarEmailHtml("servidor.es", NombreDe, CorreoDe, CorreoPara, Asunto, Archivo, 3)
    'Call EnviarEmailHtml("servidores", NombreDe, "[email protected]", "[email protected]", CorreoEnviado & "-" & Asunto, Archivo, 5)
    'Response.Write Asunto & "<br>" & Archivo
   End If%>

<%Nombre = Trim(request.form("nombre"))
  Direccion = Trim(request.form("direccion"))
  Localidad = Trim(request.form("localidad"))
  Provincia = Trim(request.form("provincia"))
  CodigoP = Trim(request.form("cp"))
  Pais = Trim(request.form("pais"))
  Telefono = Trim(request.form("tel"))
  Email = Trim(request.form("email"))
  Producto = Trim(request.form("producto"))
  If Len(Promocion) > 3 Then
   MatProducto = Split(Producto,"@")
   CodProducto = MatProducto(0)
   Promocion = MatPromocion(1)
  End If
  Observaciones = Trim(request.form("observaciones"))
	
	'------------------------------------------------
	' ENVIAMOS LOS DATOS A LA BASE DE DATOS
	'------------------------------------------------
	' Comprobamos que ha rellenado algún campo del formulario
	if request.form = "" then
	 hayDatos = false
	else 
	 hayDatos = false
	end if
	
	' Si hay algún campo relleno entonces lo metemos en la base de datos,
	' de lo contrario no tocamos la base de datos para nada.
	if hayDatos then
	 'Abrimos la conexión
	 Set Conn = Server.CreateObject("ADODB.Connection")
	  Conn.Open "FILEDSN=E:\bd\solicitudes.dsn"
	  'Ahora creamos la sentencia SQL
	  sSQL="INSERT INTO Solicitudes (nombreyapellidos,direccion,ciudad,provincia,codigopostal,pais,telefono,correoelectronico,promocioninteres,observaciones,correoenviado) values ('" & Nombre & "','" & Direccion & "','" & Localidad & "','" & Provincia & "','" & CodigoP & "','" & Pais & "','" & Telefono & "','" & Email & "','" & Promocion & "','" & Observaciones & "','" & CorreoEnviado & "')"
	  'Ejecutamos la orden
	  Conn.Execute(sSQL)
	  'Cerramos la conexion
	  Conn.Close
	 Set Conn = NoThing
	end if
	'------------------------------------------------
	
	Sugerencia=Sugerencia & "NOMBRE: " & Nombre & vbCrLf 
	Sugerencia=Sugerencia & "DIRECCION: " & Direccion & vbCrLf 
	Sugerencia=Sugerencia & "LOCALIDAD: " & Localidad & vbCrLf 
	Sugerencia=Sugerencia & "PROVINCIA: " & Provincia & vbCrLf 
	Sugerencia=Sugerencia & "CODIGOP: " & CodigoP & vbCrLf 
	Sugerencia=Sugerencia & "PAIS: " & Pais & vbCrLf 
	Sugerencia=Sugerencia & "TELEFONO: " & Telefono & vbCrLf 
	Sugerencia=Sugerencia & "EMAIL: " & Email & vbCrLf 
	Sugerencia=Sugerencia & "PRODUCTO: " & Producto & vbCrLf 
	Sugerencia=Sugerencia & "OBSERVACIONES: " & Observaciones & vbCrLf 
	
	Set smtp = Server.CreateObject("Bamboo.SMTP")
		smtp.Server = "smtp.eol.es"
		smtp.Rcpt = "[email protected]"
		smtp.From = Mail
		smtp.FromName = Request("Email")
		smtp.Subject = "PETICION DE INFORMACION DE USUARIOS DE LA WEB PRYCONSA"
		smtp.Message = Sugerencia
		on error resume next
		smtp.Send
		if err <> 0 then
		 Response.Write ("ERROR enviando el Correo")
		 Response.End
	    else
		 Response.Write("<b>Gracias por su petici&oacute;n<br>en breve recibir&aacute; la informaci&oacute;n solicitada")
		end if
    Set smtp = NoThing%>

Espero no sea mucho coñazo

gagarin · #2 (**permalink**) 05/06/2007, 05:08

Otra pregunta con este tema, sería posible que la persona que se dedica a enviar esta info, desde su outlook pudiera enviar un correo que fuera hacia este ASP y enviara la info, es solo un idea loca, es por que me he dado cuenta que la persona que hace esto normalmente no tiene la info actualizada en sus correos y quizá sería bueno que esto estuviera relacionado con los mismos archivos que se envían por mail desde el formulario de contacto.