Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/02/2004, 14:16
xema
 
Fecha de Ingreso: febrero-2002
Ubicación: Valencia - España
Mensajes: 488
Antigüedad: 22 años, 2 meses
Puntos: 0
Exclamación formulario de asp a php

hola compañeros, me han pasado este formulario en asp, necesitaria muy urgente conseguir las mismas funciones en php, alguien me podria pasar el código, gracias:

Código PHP:
<%
    
'Envio de Mails 
    '
Autor Xema Perez

Set objArchivo 
Server.createobject("Scripting.FilesystemObject")

              
         
Set Mail Server.CreateObject("Persits.MailSender")
         
         
Mensaje Request.form("Nombre del Responsable") & vbcrlf Request.form("Direccion") & vbcrlf "Telf. " Request.form("Telefonos") & " " "E-Mail : " Request.form("E-Mail") & vbcrlf 
         Mensaje 
Mensaje vbcrlf "Nombre del Club " Request.Form("Nombre del Club") & "Nº de Equipos : " vbcrlf  vbcrlf "Categoria Benjamin " Request.form("Categoria Benjamin") & vbcrlf "Categoria Alevin " Request.form("Categoria Alevin")& vbcrlf "Categoria Infantil " Request.form("Categoria Infantil") & vbcrlf "Categoria Senior " Request.form("Categoria Senior") & vbcrlf "Categoria Cadete" Request.form("Categoria Cadete") & vbcrlf "Categoria Femenina" Request.form("Categoria Femenina") & vbcrlf "Categoria Juvenil" Request.form("Categoria Juvenil")& vbcrlf vbcrlf "Alojamiento " vbcrlf "Hotel " Request.form("Hotel") & vbcrlf "Albergue " Request.form("Albergue") & vbcrlf "Sin Alojamiento " Request.form("Sin Alojamiento") & vbcrlf vbcrlf "Visitas " vbcrlf "Terra Mitica " Request.form("Terra mitica") & vbcrlf "Parque Acuatico " Request.form("Parque Acuatico") & vbcrlf "Ciudad de las Ciencias " Request.form("Ciudad de las ciencias")
                 
                 
Mail.Host "elhost.com"
         
Mail.FromName Request.form("Nombre del Responsable")
         
Mail.From Request.form("E-Mail")
         
Mail.AddAddress "email@qrecibe"
         
Mail.Subject "Formulario Recibido de " Request.form("Nombre del Reponsable")
             
Mail.Body Mensaje
             On Error Resume Next
                      Mail
.Send
             
If Err <> 0 Then
               Response
.Write "Se ha producido un error: " err.Number Err.Description 
         End 
If                                    
%> 
__________________
webmaster de xematuning el mejor tuning español con más de 25000 fotos sobre el mundo del tuning, videos, salvapantallas, fondos y mucho más no lo dudes más y visítala!!!