Formulario ASP

[Wakkos]

HOla! bueno, pasó lo que tenía que pasar:
En la agencia tenemos un cliente que no quiere cambiar el hosting, resulta que el hosting sólo acepta ASP y quiero adaptarle un formulario que le hicimos para la página.

Alguna idea o formulario de esos super customizables para newbbies? solo cambiar parámetros, variables y cositas así, nada de meterse de lleno con la programación (sobretodo porque no tengo tiempo y es para el lunes)

Gracias de antemano.
Ah!! el formulario contiene unos 8 campos, si se puede obligar a hacer algunos como obligatorios a la hora de rellenar y que reconozca el campo de email como email válido (al menos la arroba) lo agradecería muchísimo más!

[urjose]

Hola con gusto te ayudo, nada mas una pregunta, ese formulario va a dar a una base de datos o como esta esto?

comentanos mas y espero que puedas poner al menos el HTML del formulario para adptarle el ASP

saludos

[Wakkos]

Oh! el formulario deberá llegar a mi cliente (administrador de la página) y no al usuario, el código html? pues no lo tengo acá, está en la oficina, pero, es necesario?
Sencillamente adjustar algunas variables debería servir...

[Gurrutello]

hola
¿hosting ? solo asp`??

bueno se entiende que no acepta ni html, ni na de na no??
Si entiendes asp y no sabes como crear un formulario , bueno te lo haria pero no es solo el formulario sino la pagina que recibe el formulario, y la base de datos, y el tipo de base de datos, y ....
si lo necesitas el lunes urgente
¿puedes describir mejor?? lo que tienes y lo que necesitas?? :)

<iframe border="0" width="200" scrolling="no" frameborder="0" src="http://www.iespana.es/loencuentras/logoagrega.swf" height="150" name="banner" marginwidth="0" marginheight="0"> </iframe>

[Wakkos]

HTML es un lenguaje de client-side, se ejecuta en la computadora de el usuario, no en el servidor, lo que quice decir es que de las tecnologías de server side, sólo acepta (ejecuta) ASP y bueno, lo que quiero es esto: tengo un formulario en HTML y quiero ejecutar la orden de enviar los datos en ASP.

Cuando haces un formulario en PHP, mandas el formulario a que ejecute una página en PHP donde se procesa el formulario, el formulario será siempre en HTML, igual si lo haces en CGI, mandas la orden a que se ejecute un programa PERL pero el formulario es en HTML.

Algo así:
<a href='ir.asp?http://www.web-savant.com/users/kathi/asp/samples/tut/ASP_QMail.asp' target='_blank'>http://www.web-savant.com/users/kathi/as...</a>

Pero no se si ASPQmail es la única opción, si hay tras mejores, etc...

[AlZuwaga]

Sencillamente adjustar algunas variables debería servir...

Wakkos, sin saber qué es lo que debe hacer el script que procese los datos de ese formulario, no se puede hacer nada de nada...

Tal vez si lo explicás mejor y si, además, sos mas explícito en cuanto a las características funcionales te podamos orientar o hasta dejarte un código funcional.

Pero así? Estoy como 'turco en la neblina' (muy desorientado, por si llega a ser una frase que se conozca solo en argentina)

[Wakkos]

MIren a lo que me refiero:
tengo un formulario hecho en HTML:

Código:

  
<form>
Nombre Completo* <br>
<input maxlength="30" name="nombre">

<br>

Poblacion* <br>
<input maxlength="30" name="poblacion">
<br>

email* <br>
<input maxlength="30" name="email">
<br>


direccion* <br>
<input maxlength="30" name="direccion">
<br>

telefono1* <br>
<input maxlength="30" name="telefono1">
<br>

telefono2 <br>
<input maxlength="30" name="telefono2">
<br>

comentario <br>
<input maxlength="30" name="comentario">
<br>
 <input type="submit" name="Submit" value="Submit Enquiry">
 </form>

Quiero algún procesardor en ASP como este:

Código:

 

'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 			'Holds the body of the e-mail
Dim objCDOMail 			'Holds the mail server object
Dim strMyEmailAddress 		'Holds your e-mail address
Dim strCCEmailAddress		'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress		'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress	'Holds the return e-mail address of the user


'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "youremailhere"

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "CCemailhere" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated  by ; --------------

strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail

[Wakkos]

Código:

 

'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")


'Initialse strBody string with the body of the e-mail
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "<br><b>Name: </b>" & Request.Form("firstName") & " " & Request.Form("lastName")
strBody = strBody & "<br><br><b>Address: -</b>"
If (Request.Form("street1")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("street1")
End If
If (Request.Form("street2")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("street2") 
End If
If (Request.Form("town")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("town")
End If
If (Request.Form("county")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("county")
End If
If (Request.Form("country")) > "--- Choose One ---" Then
	strBody = strBody & "<br>  " & Request.Form("country")
End IF
If (Request.Form("postCode")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("postCode")
End If
strBody = strBody & "<br><br><b>Telephone: </b>" & Request.Form("tel")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Enquiry: - </b><br>" & Replace(Request.Form("enquiry"), vbCrLf, "<br>")


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
	
	'Set the return e-mail address to your own
	strReturnEmailAddress = strMyEmailAddress
End If	


'Send the e-mail

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[Wakkos]

Código:

 
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the subject of the e-mail
objCDOMail.Subject = "Email enviado desde Cortabitarte.com"

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1 

'Send the e-mail
objCDOMail.Send
	
'Close the server object
Set objCDOMail = Nothing
%>
<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Contact Us</title>

<!-- The Web Wiz Guide e-mail script and form is written by Bruce Corkhill ©2001
     If you want your own  e-mail script and form then goto http://www.webwizguide.com -->

</head>
<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="2"> 
      <h1 align="center">Contact Us</h1>
    </td>
  </tr>
</table>
<br>
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"> Thank-you <% = Request.Form("firstName") %> <% = Request.Form("lastName") %> for filling in the enquiry form. 
    <br>
    I shall be receiving your enquiry shortly and will reply as soon as possible.</td>
  </tr>
</table>

[Wakkos]

Dado ese código, llega Wakkos y camnbia las siguientes variables:

Código:

  
Initialse strBody string with the body of the e-mail
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "<br><b>Name: </b>" & Request.Form("firstName") & " " & Request.Form("lastName")
strBody = strBody & "<br><br><b>Address: -</b>"
If (Request.Form("street1")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("street1")
End If
If (Request.Form("street2")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("street2") 
End If
If (Request.Form("town")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("town")
End If
If (Request.Form("county")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("county")
End If
If (Request.Form("country")) > "--- Choose One ---" Then
	strBody = strBody & "<br>  " & Request.Form("country")
End IF
If (Request.Form("postCode")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("postCode")
End If
strBody = strBody & "<br><br><b>Telephone: </b>" & Request.Form("tel")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Enquiry: - </b><br>" & Replace(Request.Form("enquiry"), vbCrLf, "<br>")

Y Voilá!!!!!!!!!!

El formulario funciona.

Un simple formulario que le llega por mail al administrador de la página.

Gracias por vuestra ayuda!


Ahhh!! un consejo: la próxima vez que quieran ayudar y el ****** que posteó (yo, en este caso) no se explique bien, hagan como hago yo muchas veces: &quot;Mira tarado, te faltó decirnos esto esto y esto&quot; así yo que no tengo******idea de que estoy haciendo con ASP sabré que colocarles!

Gracias anyway!

[AlZuwaga]

jaja Wakkkos, joya que te salió!

[Wakkos]

:P