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 SkipVought 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.
Now, simply submit your form's imformation to the email processing page then enter it to the database.
[sup]
[sup]
Got ASP Error(s)? = [/sup]
[sup]
Got ASP Error(s)? = [/sup]
- 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