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                                    
%>