<form name=a method=post action=wsendmail.exe> <input type=hidden name=name value=value> </form>
<script> document.a.submit() </script> HTH 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 4:45 PM Subject: RE: Inserting a record and posting the to sendmail equiv. > Thanks, do you know the JavaScript that I'd have to use to be able to > accomplish that? > And where in my asp I'd insert it? > Thanks > Alex Elger > Micronage Ltd > [EMAIL PROTECTED] > > > -----Original Message----- > From: Sam Thompson [mailto:[EMAIL PROTECTED]] > Sent: 01 August 2002 4:15 PM > To: ActiveServerPages > Subject: Re: Inserting a record and posting the to sendmail equiv. > > > Fair enough. Yes you are correct about the SMTP service. > > You could install a component on your server which sends the email through a > server which you specify, or (going back to your original question) you > could create a form containing hidden inputs and automatically submit it to > wsendmail using javascript without the need for user interaction. > > HTH > 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 4:00 PM > Subject: RE: Inserting a record and posting the to sendmail equiv. > > > > I was under the assumption that cdonts used the SMTP service that comes > with > > IIS 4 etc. > > I do not want to install that service, the less i have running on iis the > > better i feel. > > If i am completely wrong then please tell me. > > Thanks again > > Alex Elger > > Micronage Ltd > > [EMAIL PROTECTED] > > > > > > -----Original Message----- > > From: Sam Thompson [mailto:[EMAIL PROTECTED]] > > Sent: 01 August 2002 3:43 PM > > To: ActiveServerPages > > Subject: Re: Inserting a record and posting the to sendmail equiv. > > > > > > 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 nd - > 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.unsub%% > > > > > > --- > > 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.unsub%% > > > --- > 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]
