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: 24 años, 8 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!!!