<% sub envia_mail(p_para, p_asunto, p_cuerpo, p_remitente, p_bcc) Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost Dim Files Const cdoSendUsingPort = 2 ' es obligatori definir el host amb el CDOSYS StrSmartHost = "localhost" set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' set the CDOSYS configuration fields to use port 25 on the SMTP server With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With With iMsg Set .Configuration = iConf .To = p_para .From = p_remitente .Subject = p_asunto .HTMLBody = p_cuerpo .Bcc= p_bcc .Cc="" .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing end sub 'sub envia_mail(p_para, p_asunto, p_cuerpo, p_remitente, p_bcc) 'Dim iMsg ' Dim iConf ' Dim Flds ' Const cdoSendUsingPickup = 1 'For CDOSYS, the pickup directory is located at c:\inetpub\mailroot\pickup. ' Const strPickup = "C:\Program Files\Exchsrvr\Mailroot\vsi 1\PickUp" ' 'Create the message object. ' Set iMsg = CreateObject("CDO.Message") 'Set Flds = iMsg.Fields 'Flds("urn:schemas:mailheader:content-type") = "text/html" 'Flds("urn:schemas:mailheader:content-class") = "urn:somewhere:mycc" 'Flds("urn:schemas:mailheader:mycustomprop") = "myproperty" 'Flds.Update 'Create the configuration object. ' Set iConf = iMsg.Configuration ' With iConf.Fields ' .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup ' .item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup ' .Update ' End With ' With iMsg ' .To = p_para ' .From = p_remitente ' .Bcc=p_bcc ' .Subject=p_asunto ' .TextBody=p_cuerpo ' '.HTMLBody=p_cuerpo ' .Send ' End With ' set iMsg = Nothing 'end sub if request.Form<>"" then asunto = "Hay una solicitud de inscripción" cadenaMensaje = "Datos personales " & vbcrlf cadenaMensaje = cadenaMensaje & "Nombre y apellidos: " & request.Form("_nombre") & vbcrlf cadenaMensaje = cadenaMensaje & "NIF: " & request.Form("_nif") & vbcrlf cadenaMensaje = cadenaMensaje & "Dirección: " & request.Form("direccion") & vbcrlf cadenaMensaje = cadenaMensaje & "Población: " & request.Form("poblacion") & vbcrlf cadenaMensaje = cadenaMensaje & "Código postal: " & request.Form("cp") & vbcrlf cadenaMensaje = cadenaMensaje & "País: " & request.Form("pais") & vbcrlf cadenaMensaje = cadenaMensaje & "Teléfono: " & request.Form("tel") & vbcrlf cadenaMensaje = cadenaMensaje & "Fax: " & request.Form("fax") & vbcrlf cadenaMensaje = cadenaMensaje & "Email: " & request.Form("_email") & vbcrlf cadenaMensaje = cadenaMensaje & "Categoria: " & request.Form("_categoria") & vbcrlf 'envia_mail "marc@prodimedia.int", asunto, cadenaMensaje, request.Form("_email"), "" envia_mail "club@lahispano-suiza.com", asunto, cadenaMensaje, request.Form("_email"), "marc@prodimedia.com;alberto@prodimedia.com" end if %> Club Hispano Suiza

CUOTAS DE ADMISIÓN 2004

 

SOCIO PROPIETARIO
CUOTA INICIAL 300 EUROS
CUOTA ANUAL 200 EUROS

SOCIO
CUOTA INICIAL -- EUROS
CUOTA ANUAL 100 EUROS

 

Formulario suscripción:

Nombre y apellidos
NIF
Dirección
Población
C.P. País
Teléfono
Fax
E-mail
Categoría Socio
Socio propietario