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 PROTECTED]
