wsendmail and CDONTS are probably almost the same thing. Can you explain your "security/spam" reasons? Dont pick on CDONTS he's a good friend of mine!! ;)
Sam Thompson ---------------------------------------------- 2cs Communications Ltd http://www.2cs.com [EMAIL PROTECTED] T: 01473 622263 F: 01473 622515 ----------------------------------------------- ----- Original Message ----- From: "Alex Elger" <[EMAIL PROTECTED]> To: "ActiveServerPages" <[EMAIL PROTECTED]> Sent: Thursday, August 01, 2002 3:33 PM Subject: FW: Inserting a record and posting the to sendmail equiv. > I am trying to insert a record in an access database and post the info to a > cgi-bin style sendmail program called wsendmail. (I don't like the idea of > using cdonts for security/spam reasons) > I can insert the record no problem, however i am having difficulties finding > out how to post to the program without any user having to click a second > submit button. > I have included the 2 asp pages that are used so far to do the record > insert. > In the second page (updaterecord.asp) at the bottom is the info needed to > post the e-mail message. > The html page is an example page of how to use the wsendmail program. > Thanks in advance for your help. > Alex Elger > Micronage Ltd > [EMAIL PROTECTED] > > :Updaterecords.asp > > <% @LANGUAGE = VBSCRIPT %> > <%option explicit%> > <%response.buffer=true%> > <!-- #INCLUDE FILE="../adovbs.inc" --> > <!-- #INCLUDE FILE="../connection.asp" --> > > <% > 'LOCAL VARIABLES > dim objCon ' Connection object > dim objCommand ' Command object > dim objRS ' Recordset object > dim intRows ' Number of matches found > dim intGroup ' Group > dim blnGotRows ' Flag indicating if anything was found > dim strRecordArray ' Array for holding Records > dim strRecordArrayMain ' Array for holding Main Records > dim intMaxCount ' Upper bound for loop > dim intCounter ' Loop counter > dim MessageFor > dim From > dim Time > dim Message > dim InsertType > dim UserName > > ' GET THE DATA FROM THE FORM > MessageFor = Request.Form("MessageFor") > >From = Request.Form("From") > Time = Request.Form("Time") > Message = Request.Form("Message") > InsertType = Request.QueryString("InsertType") > UserName = Request.Cookies("Micronage")("UserName") > > Message = Replace(Message, """","""""") > > ' FIRSTLY CHECK THE DATABASE FOR MATCHING DATA AND REDIRECT TO a "No > Matches" PAGE IF NONE FOUND > ' Create Connection > Set objCon = Server.CreateObject( "ADODB.Connection" ) > objCon.Open strConnectionMessages > > 'Define Command object > Set objCommand = Server.CreateObject( "ADODB.Command" ) > Set objCommand.ActiveConnection = objCon > objCommand.CommandType = adcmdText > objCommand.CommandText = "INSERT INTO ActivityLog (UserName, InsertType, > Area) SELECT " + chr(34) + UserName + chr(34) + ", " + chr(34) + InsertType > + chr(34) + ", 'Documents';" > > ' Execute the Command object and store the return code > objCommand.Execute > > ' Immediately Clear the command object > set objCommand = nothing > > 'Define Command object > Set objCommand = Server.CreateObject( "ADODB.Command" ) > Set objCommand.ActiveConnection = objCon > objCommand.CommandType = adcmdText > > if InsertType = "edit" Then > objCommand.CommandText = "Update Wire SET Title=" + chr(34) + Title + > chr(34) + ", Catagory=" + chr(34) + Catagory + chr(34) + ", Country=" + > chr(34) + Country + chr(34) + ", Source=" + chr(34) + Source + chr(34) + ", > ArticleDte=#" + chr(32) + Date + chr(32) + "#, Summary=" + chr(34) + Summary > + chr(34) + ", Link=" + chr(34) + Link + chr(34) + " WHERE WireNo = " + > chr(32) + WireNo + chr(32) + ";" > else > if InsertType = "add" then > objCommand.CommandText = "INSERT INTO Wire (Catagory, Country, Title, > Source, ArticleDte, Summary, Link) SELECT " + chr(34) + Catagory + chr(34) + > ", " + chr(34) + Country + chr(34) + ", " + chr(34) + Title + chr(34) + ", " > + chr(34) + Source + chr(34) + ", #" + chr(32) + Date + chr(32) + "#, " + > chr(34) + Summary + chr(34) + ", " + chr(34) + Link + chr(34) + ";" > else > if InsertType = "delete" then > objCommand.CommandText = "DELETE DISTINCT from Wire WHERE WireNo = " + > chr(32) + WireNo + chr(32) + ";" > else > if InsertType = "addmessage" then > objCommand.CommandText = "INSERT INTO Messages (UserName, Caller, > MessageTime, Message, TakenBy) SELECT " + chr(34) + MessageFor + chr(34) + > ", " + chr(34) + From + chr(34) + ", " + chr(34) + Time + chr(34) + ", " + > chr(34) + Message + chr(34) + ", " + chr(34) + UserName + chr(34) + ";" > end if > end if > end if > end if > > > ' Execute the Command object and store the return code > objCommand.Execute > > ' Immediately Clear the command object > set objCommand = nothing > > objCon.close > set objCon = nothing > > if InsertType = "addmessage" then > sendmessage() > end if > > Response.Redirect "../update_success.htm" > > > %> > > > <html> > <head> > <script language="JavaScript"> > <!-- > function MM_swapImgRestore() { //v3.0 > var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) > x.src=x.oSrc; > } > > function MM_preloadImages() { //v3.0 > var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); > var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; > i++) > if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} > } > > function MM_findObj(n, d) { //v3.0 > var p,i,x; if(!d) d=document; > if((p=n.indexOf("?"))>0&&parent.frames.length) { > d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} > if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) > x=d.forms[i][n]; > for(i=0;!x&&d.layers&&i<d.layers.length;i++) > x=MM_findObj(n,d.layers[i].document); return x; > } > > function MM_swapImage() { //v3.0 > var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; > for(i=0;i<(a.length-2);i+=3) > if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) > x.oSrc=x.src; x.src=a[i+2];} > } > function validation() { > if (formgroup.MessageFor.value == null || formgroup.MessageFor.value == > ""){alert("Sorry, you must enter who you are passing the message on to") > return > } > if (formgroup.From.value == null || formgroup.From.value == > ""){alert("Sorry, you must enter who the message is From") > return > } > if (formgroup.Time.value == null || formgroup.Time.value == > ""){alert("Sorry, you must enter the Message Time") > return > } > if (formgroup.Message.value == null || formgroup.Message.value == > ""){alert("Sorry, you must enter the Message") > return > } > > formgroup.submit() > } > //--> > </script> > <title>BPSD User Admin</title> > <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> > </head> > > <body bgcolor="#FFFFFF" text="#000000" onLoad=""> > <table width="600" border="0" cellpadding="0" cellspacing="0" > align="center"> > <tr valign="top"> > <td colspan="2" height="30" valign="middle"> > <div align="center"> </div> > </td> > </tr> > </table> > <div align="left"></div> > </body> > </html> > > > > > > > 'This is the info that needs posting > ' <FORM METHOD="POST" ACTION="../../cgi-bin/wsendmail.exe" name=sendmessage> > ' <INPUT TYPE=hidden NAME="RCPT" Value="[EMAIL PROTECTED]"> > ' <INPUT TYPE=hidden NAME="from" Value="[EMAIL PROTECTED]"> > ' <INPUT TYPE=hidden NAME="Subject" Value="Telephone Message"> > ' <INPUT TYPE=hidden NAME="Contents" Value="<%Response.Write Message%>"> > > > > > > > > > :Addmessage.asp > > > <% @LANGUAGE = VBSCRIPT %> > <%option explicit%> > <%response.buffer=true%> > <!-- #INCLUDE FILE="../adovbs.inc" --> > <!-- #INCLUDE FILE="../connection.asp" --> > <!-- #INCLUDE FILE="permissions_login.asp" --> > <% > 'LOCAL VARIABLES > dim objCon ' Connection object > dim objCommand ' Command object > dim objRS ' Recordset object > dim intRows ' Number of matches found > dim intGroup ' Group > dim blnGotRows ' Flag indicating if anything was found > dim blnGotRowsOther > dim strRecordArrayWireEdit ' Array for holding Records > dim strRecordArrayMain ' Array for holding Main Records > dim strRecordArray > dim strRecordArrayType > dim intMaxCount ' Upper bound for loop > dim intCounter ' Loop counter > dim hidGroup > > ' FIRSTLY CHECK THE DATABASE FOR MATCHING DATA AND REDIRECT TO a "No > Matches" PAGE IF NONE FOUND > ' Create Connection > Set objCon = Server.CreateObject( "ADODB.Connection" ) > objCon.Open strConnection > > ' Define Command object > Set objCommand = Server.CreateObject( "ADODB.Command" ) > Set objCommand.ActiveConnection = objCon > 'objCommand.CommandType = adcmdStoredProc > objCommand.CommandText = "SELECT WireNo, Title FROM Wire;" > > ' Execute the Command object and store the return code > objCommand.Execute > > ' Create the Recordset > set objRS = Server.CreateObject( "ADODB.Recordset" ) > objRS.CursorType = adOpenForwardOnly > objRS.LockType = adLockReadOnly > objRS.Open objCommand > > ' Immediately Clear the command object > set objCommand = nothing > > > ' Are then any Rows returned ? > if objRS.EOF then > blnGotRows = False > else > strRecordArrayWireEdit = objRS.Getrows > blnGotRows = True > end if > > ' Housekeeping > objRS.close > set objRS = nothing > > ' Define Command object > Set objCommand = Server.CreateObject( "ADODB.Command" ) > Set objCommand.ActiveConnection = objCon > 'objCommand.CommandType = adcmdStoredProc > objCommand.CommandText = "SELECT DocNo, DocTitle FROM DocRep;" > > If blnGotRows = False then Response.Redirect "../nomatches.htm" > > ' Execute the Command object and store the return code > objCommand.Execute > > ' Create the Recordset > set objRS = Server.CreateObject( "ADODB.Recordset" ) > objRS.CursorType = adOpenForwardOnly > objRS.LockType = adLockReadOnly > objRS.Open objCommand > > ' Immediately Clear the command object > set objCommand = nothing > > > ' Are then any Rows returned ? > if objRS.EOF then > blnGotRows = False > else > strRecordArrayMain = objRS.Getrows > blnGotRows = True > end if > > ' Housekeeping > objRS.close > set objRS = nothing > > ' Define Command object > Set objCommand = Server.CreateObject( "ADODB.Command" ) > Set objCommand.ActiveConnection = objCon > 'objCommand.CommandType = adcmdStoredProc > objCommand.CommandText = "SELECT * FROM Catagory;" > > ' Execute the Command object and store the return code > objCommand.Execute > > ' Create the Recordset > set objRS = Server.CreateObject( "ADODB.Recordset" ) > objRS.CursorType = adOpenForwardOnly > objRS.LockType = adLockReadOnly > objRS.Open objCommand > > ' Immediately Clear the command object > set objCommand = nothing > > > ' Are then any Rows returned ? > if objRS.EOF then > blnGotRows = False > else > strRecordArray = objRS.Getrows > blnGotRows = True > end if > > ' Housekeeping > objRS.close > set objRS = nothing > objCon.close > set objCon = nothing > > If blnGotRows = False then Response.Redirect "../nomatches.htm" > > %> > > <html> > <head> > <title>Administration</title> > <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> > <script language="JavaScript"> > <!-- > function MM_swapImgRestore() { //v3.0 > var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) > x.src=x.oSrc; > } > > function MM_preloadImages() { //v3.0 > var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); > var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; > i++) > if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} > } > > function MM_findObj(n, d) { //v3.0 > var p,i,x; if(!d) d=document; > if((p=n.indexOf("?"))>0&&parent.frames.length) { > d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} > if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) > x=d.forms[i][n]; > for(i=0;!x&&d.layers&&i<d.layers.length;i++) > x=MM_findObj(n,d.layers[i].document); return x; > } > > function MM_swapImage() { //v3.0 > var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; > for(i=0;i<(a.length-2);i+=3) > if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) > x.oSrc=x.src; x.src=a[i+2];} > } > function validation() { > if (formgroup.MessageFor.value == null || formgroup.MessageFor.value == > ""){alert("Sorry, you must enter who you are passing the message on to") > return > } > if (formgroup.From.value == null || formgroup.From.value == > ""){alert("Sorry, you must enter who the message is From") > return > } > if (formgroup.Time.value == null || formgroup.Time.value == > ""){alert("Sorry, you must enter the Message Time") > return > } > if (formgroup.Message.value == null || formgroup.Message.value == > ""){alert("Sorry, you must enter the Message") > return > } > > formgroup.submit() > } > //--> > </script> > <script language="JavaScript"> > function PressNumber(e) { > var charCode = e.keyCode > if ((charCode != 13 || charCode != 8) && (charCode < 48 || charCode > > 57 )){ e.keyCode=0 > } > if (charCode == 13){ newtest() > } > return true > } > </script> > <script language="JavaScript"> > function PressQuote(e) { > var charCode = e.keyCode > if (charCode == 34){ e.keyCode=0 > } > return true > } > </script> > </head> > <table width="95%" border="0" cellpadding="3" cellspacing="0" > align="center"> > <tr valign="top"> > <td width="95%"> > </td> > <td height="30"></td> > </tr> > </table> > <table width="95%" border="0" cellspacing="0" cellpadding="3" > align="center"> > <tr valign="top"> > <td colspan="4" height="424"> > <form method="post" action="updaterecords.asp?InsertType=addmessage" > name="formgroup"> > <table width="100%" border="1" cellspacing="0" cellpadding="0" > bordercolor="#000000"> > <tr> > <td><font face="Arial, Helvetica, sans-serif" size="3">Add a > Message</font></td> > </tr> > <tr> > <td> > <table width="100%" border="0" cellspacing="0" > cellpadding="5"> > <tr bgcolor="#999999"> > <td width="20%" valign="middle"> </td> > <td valign="middle"> </td> > </tr> > > <tr bgcolor="#999999"> > <td> > <div align="right"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF">For:</font></div> > </td> > <td valign="middle"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF"><b><font size="3"> > <input type="text" name="MessageFor" size="40" > maxlength="40"> > </font></b></font></td> > </tr> > > <tr bgcolor="#999999"> > <td width="40%" valign="middle"> > <div align="right"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF">From:</font></div> > </td> > <td><font face="Arial, Helvetica, sans-serif" size="2" > color="#FFFFFF"><b><font size="3"> > <input type="Text" name="From" size="40" maxlength="60"> > </font></b></font></td> > > <tr bgcolor="#999999"> > <td width="40%" valign="middle"> > <div align="right"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF">Time:</font></div> > </td> > <td><font face="Arial, Helvetica, sans-serif" size="2" > color="#FFFFFF"><b><font size="3"> > <input type="Number" name="Time" size="10" > maxlength="10"> > </font></b></font></td> > > <tr bgcolor="#999999"> > <td width="40%" valign="middle"> > <div align="right"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF">Message:</font></div> > </td> > <td><font face="Arial, Helvetica, sans-serif" size="2" > color="#FFFFFF"><b><font size="3"> > <textarea name="Message" cols="50" rows="5" > onKeyPress="PressQuote(event)"></textarea> > </font></b></font></td> > > <tr bgcolor="#999999"> > <td width="20%" valign="middle"> > <div align="right"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF"> > </font></div> > </td> > <td valign="middle"> > <div align="left"><font face="Arial, Helvetica, > sans-serif" size="2" color="#FFFFFF"><b><font size="3"> > <div align="Center"><img src="../media/continue.gif" > width="88" height="26" onClick="validation()" name="continue1" > onMouseOut="MM_swapImgRestore()" > onMouseOver="MM_swapImage('continue1','','../media/continue_f2.gif',1)"></fo > nt></div> > </td> > </tr> > </table> > </td> > </tr> > </table> > </form> > > <CENTER> > <A HREF="changepass.asp" TARGET="MAIN-WINDOW" onMouseOver = "self.status = > 'Change Your Password'; return true">Change Your Password</A><br></td> > </body> > </html> > > > > :exampleform.html > > > <!-- Origin: file:E:\USR\JARLE\SRC\MSVC4\cgi\wsendmail\forms.htm !--> > <HTML><TITLE>wSendmail CGI demo page</TITLE> > <BODY BGCOLOR="White"> > > <H1 ALIGN=center>Demo page demonstrating wSendmail for Windows used in CGI > mode</H1> > > <HR WIDTH=70% ALIGN=Center> > > <center> > <TABLE WIDTH=70% ALIGN=center> > <tr><td><FONT COLOR="red" FACE="ARIAL"><strong>NOTE:</strong> You will have > to manually edit the HTML source for this page, > and the <font color="gray" face="courier">"\windows\wsendmail.ini"</font> > file before > these forms will work. Also, you must have a running HTTP server and access > to one or several Email addresses.</FONT> > </td></tr> > <tr><td><FONT COLOR="#004080" FACE="ARIAL">You can get the latest version of > wSendmail at</FONT> > <a href="http://home.sol.no/jgaa/";>Jgaa's Internet</a> <FONT COLOR="#004080" > FACE="ARIAL">Look in the</font> > <i>"Jgaa's Freeware"</i> <FONT COLOR="#004080" FACE="ARIAL">section.</font> > </TABLE></center> > > <HR WIDTH=70% ALIGN=Center> > > <H3><LEFT>This field is for your posive feedback</font></LEFT></H3> > > <!-- Replace the action with your cgi-bin http !--> > > <p><LEFT><FORM METHOD="POST" > ACTION="http://jgaa.ldp.no/cgi-bin/wsendmail.exe";> > > <!-- There should *ALWAYS* be a topic !--> > <INPUT TYPE=hidden NAME="subject" VALUE="Test Feedback"> > > <!-- This is the receiver of the emails sent from this form. !--> > <!-- The "nick" must be defined in "\windows\wsendmail.ini" !--> > <INPUT TYPE=hidden NAME="RCPT" VALUE="jgaa"> > Positive feedback <P> > > <TEXTAREA NAME="Positive feedback" ROWS=10 COLS=60></TEXTAREA> <P> > > Possible improvements <P> > > <TEXTAREA NAME="Possible improvements" ROWS=10 COLS=60></TEXTAREA> <P> > > Please give your email address: > <input NAME="from" size=40></input> <P> > > If you would like to receive more information, you can provide us with your > Fax number. > > <input NAME="fax" size=40></input> <P> > > <INPUT TYPE="submit" > VALUE="Submit Feedback"> <INPUT TYPE="reset" VALUE="Clear Form">. > </FORM> > <HR WIDTH=70% ALIGN=Center> > > </CENTER> > > <H3>Demo of ordering form</H3> > > <BLOCKQUOTE><TABLE> > > <!-- Replace the action with your cgi-bin http !--> > > <FORM METHOD="POST" ACTION="http://jgaa.ldp.no/cgi-bin/wsendmail.exe";> > <!-- There should *ALWAYS* be a topic !--> > <INPUT TYPE=hidden NAME="subject" VALUE="Test Order"> > > <!-- This is the receiver of the emails sent from this form. !--> > <!-- The "nick" must be defined in "\windows\wsendmail.ini" !--> > <INPUT TYPE=hidden NAME="RCPT" VALUE="jgaa"> > > <TR><TD><B>Pricing:</B></TD><TD>7 days</TD><TD>6 days > </TD><TD>Weekend</TD></TR> > <TR><TD>1 mnd.</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="1 mnd - 7 > dager">160,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="1 mnd - 6 > days">130,-</TD><TD></TD><TD></TD></TR> > <TR><TD>3 mnd.</TD><TD><INPUT CHECKED TYPE="radio" NAME="abtype" VALUE="3 > mnd - 7 days">435,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="3 mnd - > 6 days">360,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="3 mnd - > weekend (saturday - sunday)">209,-</TD><TD></TD></TR> > <TR><TD>4 mnd.</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="4 mnd - 7 > days">560,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="4 mnd - 6 > days">470,-</TD><TD></TD><TD></TD></TR> > <TR><TD>6 mnd.</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="6 mnd - 7 > days">799,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="6 mnd - 6 > days">670,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="6 mnd - > weekend">395,-</TD></TR> > <TR><TD>12 mnd.</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="12 mnd - 7 > days">1510,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="12 mnd - 6 > days">1260,-</TD><TD><INPUT TYPE="radio" NAME="abtype" VALUE="12 mnd - > weekend">770,-</TD></TR> > </TABLE> > > <TABLE CELLSPACING=0 CELLPADDING=0> > <TR><TD>Name:</TD><TD><INPUT TYPE="text" NAME="name" SIZE=40></TD></TR> > <TR><TD>Address:</TD><TD><INPUT TYPE="text" NAME="address" > SIZE=40></TD></TR> > <TR><TD>Postal code:</TD><TD><INPUT TYPE="text" NAME="postal code" > SIZE=40></TD></TR> > <TR><TD>Floor:</TD><TD><INPUT TYPE="text" NAME="floor" SIZE=40></TD></TR> > <TR><TD>Entrence:</TD><TD><INPUT TYPE="text" NAME="entrence" > SIZE=40></TD></TR> > <TR><TD>E-mail:</TD><TD><INPUT TYPE="text" NAME="from" SIZE=40></TD></TR> > </TABLE><P> > > <INPUT TYPE="submit" VALUE="Order"><INPUT TYPE="reset" VALUE="Clear"> > </form> > > <HR WIDTH=70% ALIGN=Center> > > <!-- Replace the action with your cgi-bin http !--> > > <FORM METHOD="POST" ACTION="http://jgaa.ldp.no/cgi-bin/wsendmail.exe";> > <!-- There should *ALWAYS* be a topic !--> > <INPUT TYPE=hidden NAME="subject" VALUE="Test Email"> > > <H3>Demo of mailing form</H3> > > <INPUT TYPE="radio" NAME="RCPT" VALUE="jgaa-at-telepost">Jgaa's official > mail account > <INPUT TYPE="radio" NAME="RCPT" VALUE="jgaa">Jgaa's internal mail account > <INPUT TYPE="radio" NAME="RCPT" VALUE="jgaa-test">Jgaa's experimental mail > account > <p><font color="red">Note: If you don't click on one of the options, the > message will fail, > and the server error message will be forwarded to the confirmation > sheet.</font><p> > > My Email Message:<BR> > > <TEXTAREA NAME="contents" ROWS=8 COLS=75></TEXTAREA><P> > > <TABLE CELLSPACING=0 CELLPADDING=0> > <TR><TD>Name:</TD><TD><INPUT TYPE="text" NAME="name" SIZE=40></TD></TR> > <TR><TD>Address:</TD><TD><INPUT TYPE="text" NAME="address" > SIZE=40></TD></TR> > <TR><TD>Postal code:</TD><TD><INPUT TYPE="text" NAME="postal code" > SIZE=40></TD></TR> > <TR><TD>Phone:</TD><TD><INPUT TYPE="text" NAME="phone" SIZE=40></TD></TR> > <TR><TD>E-mail:</TD><TD><INPUT TYPE="text" NAME="from" SIZE=40></TD></TR> > </TABLE><P> > > <INPUT TYPE="submit" VALUE="Send Email"><INPUT TYPE="reset" VALUE="Clear"> > > </FORM> > > <HR WIDTH=70% ALIGN=Center> > > <!-- Replace the action with your cgi-bin http !--> > <FORM METHOD="POST" ACTION="http://jgaa.ldp.no/cgi-bin/wsendmail.exe";> > > <H3>Demo of generic mail Form</H3> > <font color=red>This form require you to modify <font > color=gray>wsendmail.ini</font> "Restrict Email=No"</font><p> > <table><tr><td> > <tr><td>To:</td><td> <INPUT NAME="RCPT" Value="Test" SIZE=40></td></tr> > <tr><td>From:</td><td><INPUT TYPE="text" NAME="from" SIZE=40></td></tr> > <tr><td>Subject:</td><td><INPUT TYPE="text" NAME="subject" > SIZE=40></td></tr> > <tr><td>Message: </td><td><TEXTAREA NAME="contents" ROWS=8 > COLS=75></TEXTAREA></td><tr></table> > <INPUT TYPE="submit" VALUE="Send Email"><INPUT TYPE="reset" VALUE="Clear"> > > </BODY> > </HTML> > > > --- > You are currently subscribed to activeserverpages as: [EMAIL PROTECTED] > To unsubscribe send a blank email to %%email.unsub%% > --- You are currently subscribed to activeserverpages as: [email protected] To unsubscribe send a blank email to [EMAIL PROTECTED]
