------=_NextPart_000_0012_01BFB779.4C317A20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Attached is a .asp that you can use. This is a modified version of one that
was published by ZD in Active Server Vol 2 No 5 May 1998. It does use the
Microsoft Sendmail component that came with Microsoft's Personalization
System.. Back then I downloaded a trial, and only installed that component..
it has worked every since then!!
Ronnie
> -----Original Message-----
> From: ntisp-request@iea-software.com
> [mailto:ntisp-request@iea-software.com]On Behalf Of Dave P.
> Sent: Saturday, May 06, 2000 4:18 PM
> To: ntisp
> Subject: [NTISP] Web form
>
>
> I would like to be able to have visitors to my web site submit a form
> from my webserver and email me the information.
> I am running 1 box as my dns server with iis 4.0 and another box for my
> mail server (using PostOffice 3.0) I tried using a script provided by
> the following site http://www.elementkjournals.com/asp/9905/asp9951.htm
> , with no luck. the email would not go thru. Any suggestions on how I
> might go about doing this.
>
> Dave
> . Dave Palazola
> The Gloucester Internet Connection ( TGIC )
> 186 Main Street
> Gloucester, MA. 01930
> phone: (978) 282-5150
>
>
>
> For more information about this list (including removal) go to:
> http://www.iea-software.com/support/maillists/liststart
>
------=_NextPart_000_0012_01BFB779.4C317A20
Content-Type: text/asp;
name="GenericEmail.asp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="GenericEmail.asp"
<%@ LANGUAGE=3D"VBSCRIPT" %>
Send Email to:=20
<% set sm=3DServer.CreateObject ("mps.sendmail") %><% If IsObject(sm) =3D FALSE then %>
An error has occured with the server. Please try later.<% else %><% email=3DRequest("email") %><% REM If no data has been posted to this page, collect the data. %><% if Request("Content_Length")=3D0 then %><% End If %><% If Request("Content_Length") <> 0 then %><% IF Request("comment") =3D "" then %>Your have not provided a message<% invaliddata =3D "yes" %><% end if %><% If Request("email") =3D "" then %>An Email address was not entered. Please re-type the information and =the Email address.=20<% invaliddata=3D"yes" %><% elseif (InStr(1, email, "@", 1) =3D 0) then %>
A message has been sent to you at <% =3D Request("email") %> =
confirming that your message has been=20emailed to <% =3D sendaddress %>.
<% end if %><% else %><% =3D err.description %> An error has occured while attempting to send =your message.
Please send the Webmaster a message reporting =this error.<% end if %><% end if %><% end if %>
------=_NextPart_000_0012_01BFB779.4C317A20--