[rkctruepros]

not shure thats spelled right but i am looking for a programe that will completely code a contact form in asp script or for that matter aspx all i have been able to find is one that will code in perl and cgi i am trying the new visual studio web developer 2005 but that needs a data base to do every thing and this is highly sensitve information i am not allowed to keep it for more than 3 days and i dont have time to go an empty a dat base every 3 days but the form i want it to submit right to my email using my secure email server line

[toth]

Here's a CDOSYS mail system.

Youre ASP mail script, let's call it MailScript.asp:

Code:

<%
Dim MyMail
Dim MyBody
Dim MyName
Dim MyEmail
Dim MyComments

MyName = Request.Form("name")
MyEmail = Request.Form("email")
MyComments = Request.Form("comments")

MyBody = "Name: "& MyName & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Comments: "& vbcrlf
MyBody = MyBody & MyComments

Set MyMail = CreateObject("CDO.Message")
MyMail.From = "You@YourDomain.com"
MyMail.To = "YouAgain@YourOtherAddress.com"
MyMail.Subject = "Test message using CDOSYS"
MyMail.Body = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write("Your e-mail has been sent")
%>

Youre Mailform should be something like this, I called it MailForm.asp:

Code:

<form action="MailScript.asp" method="post" name="MyForm" id="MyForm">
<strong>Name</strong><br>
<input name="name" type="text" id="name" size="30"><br>

<strong>Email</strong><br>
<input name="email" type="text" id="email" size="30"><br>

<strong>Comments</strong><br>
<textarea name="comments" id="comments" cols="28" rows="6" wrap="VIRTUAL"></textarea><br>

<input type="submit" name="Submit" value="Send">
</form>

Make sure that the form fields have the same name as in your mailing script after the code Request.Form(" ....
This script doesn't need any DB. Your server has to accept CDOSYS.

If you want to use CDONTS you just need to change one line of code in your MailScript.asp.
change this

Code:

Set MyMail = CreateObject("CDO.Message")

into this

Code:

Set myMail = Server.CreateObject ("CDONTS.NewMail")

greetz, toth