Los formularios son muy utilizados en la web para recoger información de los visitantes de la página. Se utilizan mucho en libros de visitas, comentarios y sugerencias, encuestas, etc. La idea básica es que el visitante llene los campos propuestos en el formulario y cuando éste pulse en el botón Enviar, la información ingresada llegue por correo electrónico al buzón que hayamos especificado.

SCRIPT PARA PLANES WINDOWS MEDIANTE EL COMPONENTE CDOSYS
<%
  Option Explicit

  dim sName, sEmail, sMessage
    dim oCdoMail, oCdoConf, sConfURL

  if Request.Form("Action") <> "" then
    sName = Request.Form("Name")
    sEmail = Request.Form("Email")
    sMessage = Request.Form("Message")

        Set oCdoMail = Server.CreateObject("CDO.Message")
        Set oCdoConf = Server.CreateObject("CDO.Configuration")

        sConfURL = "http://schemas.microsoft.com/cdo/configuration/"

        with oCdoConf
            .Fields.Item(sConfURL & "sendusing") = 2
            .Fields.Item(sConfURL & "smtpserver") = "localhost"
            .Fields.Item(sConfURL & "smtpserverport") = 25
            .Fields.Update
        end with

        with oCdoMail
            .From = sEmail
            .To = "SUCORREO@SERVIDOR.COM"
            .Subject = "Este seria el titulo del mensaje"
            .TextBody = sMessage
            .HTMLBody = sMessage
            .Configuration = oCdoConf
            .Send
        end with

        Set oCdoConf = Nothing
        Set oCdoMail = Nothing

    response.write "Gracias por su mensaje!"
  else
%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<p>Nombre:<br /><input type="text" name="Name" /></p>
<p>Su email:<br /><input type="text" name="Email" /></p>
<p>Mensaje:<br /><textarea name="Message"></textarea></p>
<p><input type="submit" name="Action" value="Send" /></p>
</form>
<%
  end if
%>