Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Email and database registration from forms
- Thread starter ALILL
- Start date
When you say, "I have managed to do both but not at the same time" I assume your have entered the form's data into a database them pulled the recordset and emailed it.
Now, simply submit your form's imformation to the email processing page then enter it to the database.
Got ASP Error(s)? =
Now, simply submit your form's imformation to the email processing page then enter it to the database.
Got ASP Error(s)? =
- Thread starter
- #4
Have finally found the answer after a lot of searching,this code will send an e mail and enter the details in access on submit.
<html>
<head>
<title>Input Form</title>
</head>
<body>
<%
if request.form("Submit"
<> "Submit" then
%>
<form action="rfi.asp" method="POST">
<table width="483">
<tr>
<td align="right" width="104">Type of Input</td>
<td width="369"> <select size="1" name="Type" tabindex="1">
<option value="Comment" selected>Comment</option>
<option value="Suggestion">Suggestion</option>
<option value="Question">Question</option>
</select></td>
</tr>
<tr>
<td align="right" width="104">Area</td>
<td width="369"> <select size="1" name="Area" tabindex="2">
<option value="Advertising" selected>Advertising</option>
<option value="Programs">Programs</option>
<option value="Sales">Sales</option>
<option value="Support">Support</option>
<option value="Web Site">Web Site</option>
</select></td>
</tr>
<tr>
<td align="right" width="104">First Name</td>
<td width="369">
<input name="FirstName" type="text" size="20" tabindex="3"></td>
</tr>
<tr>
<td align="right" width="104">Last Name</td>
<td width="369">
<input name="LastName" type="text" size="20" tabindex="4"></td>
</tr>
<tr>
<td align="right" width="104">email address</td>
<td width="369">
<input name="email" type="text" size="50" tabindex="5"></td>
</tr>
<tr>
<td align="right" valign="top" width="104">Comments</td>
<td width="369">
<textarea rows="5" name="Comments" cols="42" tabindex="7"></textarea></td>
</tr>
<tr>
<td align="right" width="104"><input name="Submit" type=submit value="Submit"></td>
<td width="369"><input name="reset" type=reset value="Reset"></td>
</tr>
</table>
</form>
<%
else
strType=Request.form("Type"
strArea=Request.form("Area"
strFirstName=Request.form("FirstName"
strLastName=Request.form("LastName"
stremail=Request.form("email"
strDate=Date
strComments=Request.form("Comments"
Set objConn = Server.CreateObject("ADODB.Connection"
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comments.mdb"
objConn.Open ConnectionString
sqlQuery = "SELECT * FROM Comments"
Set objRS = Server.CreateObject("ADODB.Recordset"
objRS.Open sqlQuery, objConn, 1, 2
objRS.AddNew
objRS("Type"=strType
objRS("Area"=strArea
objRS("FirstName"=strFirstName
objRS("LastName"=strLastName
objRS("email"=stremail
objRS("SubmitDate"=strDate
objRS("comments"=strcomments
objRS.Update
objRS.Close
Set objRS = Nothing
strBody = "Type ------> " & strType & chr(10) & chr(13)
strBody=strBody & "Area ------> " & strArea & chr(10) & chr(13)
strBody=strBody & "Name ------> " & strFirstName & " " & strLastName & chr(10) & chr(13)
strBody=strBody & "email -----> " & stremail & chr(10) & chr(13)
strBody=strBody & "Comments --> " & strComments & chr(10) & chr(13)
strBody=strBody & "Date ------> " & strDate & chr(10) & chr(13)
strBody=strBody & "--------------- " & chr(10) & chr(13)
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail"
objCDO.From = "youremail@yourwebsite.com"
objCDO.To = "youremail@yourwebsite.com"
objCDO.Subject = "Comments, Suggestions & Questions"
objCDO.Body = strBody
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Server.CreateObject("CDONTS.NewMail"
objCDO.From = "youremail@yourwebsite.com"
objCDO.To = stremail
objCDO.Subject = "Comments, Suggestions & Questions"
objCDO.Body = strBody
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Response.Write "Record Added Succesfully<BR><BR>"
Response.Write strFirstName & " " & strLastName
Response.Write ", Thanks for the " & strType
Response.Write " about our " & strArea
end if
%>
</body>
</html>
<html>
<head>
<title>Input Form</title>
</head>
<body>
<%
if request.form("Submit"
<> "Submit" then%>
<form action="rfi.asp" method="POST">
<table width="483">
<tr>
<td align="right" width="104">Type of Input</td>
<td width="369"> <select size="1" name="Type" tabindex="1">
<option value="Comment" selected>Comment</option>
<option value="Suggestion">Suggestion</option>
<option value="Question">Question</option>
</select></td>
</tr>
<tr>
<td align="right" width="104">Area</td>
<td width="369"> <select size="1" name="Area" tabindex="2">
<option value="Advertising" selected>Advertising</option>
<option value="Programs">Programs</option>
<option value="Sales">Sales</option>
<option value="Support">Support</option>
<option value="Web Site">Web Site</option>
</select></td>
</tr>
<tr>
<td align="right" width="104">First Name</td>
<td width="369">
<input name="FirstName" type="text" size="20" tabindex="3"></td>
</tr>
<tr>
<td align="right" width="104">Last Name</td>
<td width="369">
<input name="LastName" type="text" size="20" tabindex="4"></td>
</tr>
<tr>
<td align="right" width="104">email address</td>
<td width="369">
<input name="email" type="text" size="50" tabindex="5"></td>
</tr>
<tr>
<td align="right" valign="top" width="104">Comments</td>
<td width="369">
<textarea rows="5" name="Comments" cols="42" tabindex="7"></textarea></td>
</tr>
<tr>
<td align="right" width="104"><input name="Submit" type=submit value="Submit"></td>
<td width="369"><input name="reset" type=reset value="Reset"></td>
</tr>
</table>
</form>
<%
else
strType=Request.form("Type"
strArea=Request.form("Area"
strFirstName=Request.form("FirstName"
strLastName=Request.form("LastName"
stremail=Request.form("email"
strDate=Date
strComments=Request.form("Comments"
Set objConn = Server.CreateObject("ADODB.Connection"
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comments.mdb"
objConn.Open ConnectionString
sqlQuery = "SELECT * FROM Comments"
Set objRS = Server.CreateObject("ADODB.Recordset"
objRS.Open sqlQuery, objConn, 1, 2
objRS.AddNew
objRS("Type"
=strTypeobjRS("Area"
=strAreaobjRS("FirstName"
=strFirstNameobjRS("LastName"
=strLastNameobjRS("email"
=stremailobjRS("SubmitDate"
=strDateobjRS("comments"
=strcommentsobjRS.Update
objRS.Close
Set objRS = Nothing
strBody = "Type ------> " & strType & chr(10) & chr(13)
strBody=strBody & "Area ------> " & strArea & chr(10) & chr(13)
strBody=strBody & "Name ------> " & strFirstName & " " & strLastName & chr(10) & chr(13)
strBody=strBody & "email -----> " & stremail & chr(10) & chr(13)
strBody=strBody & "Comments --> " & strComments & chr(10) & chr(13)
strBody=strBody & "Date ------> " & strDate & chr(10) & chr(13)
strBody=strBody & "--------------- " & chr(10) & chr(13)
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail"
objCDO.From = "youremail@yourwebsite.com"
objCDO.To = "youremail@yourwebsite.com"
objCDO.Subject = "Comments, Suggestions & Questions"
objCDO.Body = strBody
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Server.CreateObject("CDONTS.NewMail"
objCDO.From = "youremail@yourwebsite.com"
objCDO.To = stremail
objCDO.Subject = "Comments, Suggestions & Questions"
objCDO.Body = strBody
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Response.Write "Record Added Succesfully<BR><BR>"
Response.Write strFirstName & " " & strLastName
Response.Write ", Thanks for the " & strType
Response.Write " about our " & strArea
end if
%>
</body>
</html>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question