post to database AND send values into email and redirect user

1 New Member

Hey,

I am having a user fill out a form then the fields are going to uploaded to my database. So, at this point, when the user hits the submit button I want three things to happen:

1. The form uploads to a database (the following code does this)

2. An e-mail is sent to my sales team as well as the customer, which contains the form values .

3. I want the user to then be directed automatically to another webpage, after they hit the submit button. (This page will read something like "Thank you for submitting your application).

I am able to do this on 2 seperate asp pages but when i try to do this on one asp page,its not working.

Please help me to solve this.

is it possible that once user hits submit button values of the form goes to insertintodatabase.asp and then somehow these values can move to sendemail.asp.please help me.

Expand|Select|Wrap|Line Numbers

  
<%>
 
<% 

Dim thedate,Email,Customer,Contact,Phone,Fax,Address,City,State,Zip,part1,qty1,invoice1,po1,date1,serial1,problem1,part2,qty2,invoice2,po2,date2,serial2,problem2

Dim part3,qty3,invoice3,po3,date3,serial3,problem3,part4,qty4,invoice4,po4,date4,serial4,problem4,terms,delivery,comments

Dim sConnString, conn, sSQL, stSQL

Dim MyNewRandomNum

Randomize

MyNewRandomNum = Int(Rnd * 10000000)+1
 
thedate=Request.form("thedate")

Email=Request.form("Email")

Customer=Request.form("Customer")

Contact=Request.form("Contact")

Phone=Request.form("Phone")

Fax=Request.form("Fax")

Address=Request.form("Address")

City=Request.form("City")

State=Request.form("State")

Zip=Request.form("Zip")

part1=Request.form("part1")

qty1=Request.form("qty1")

invoice1=Request.form("invoice1")

po1=Request.form("po1")

date1=Request.form("date1")

serial1=Request.form("serial1")

problem1=Request.form("problem1")

part2=Request.form("part2")

qty2=Request.form("qty2")

invoice2=Request.form("invoice2")

po2=Request.form("po2")

date2=Request.form("date2")

serial2=Request.form("serial2")

problem2=Request.form("problem2")

part3=Request.form("part3")

qty3=Request.form("qty3")

invoice3=Request.form("invoice3")

po3=Request.form("po3")

date3=Request.form("date3")

serial3=Request.form("serial3")

problem3=Request.form("problem3")

part4=Request.form("part4")

qty4=Request.form("qty4")

invoice4=Request.form("invoice4")

po4=Request.form("po4")

date4=Request.form("date4")

serial4=Request.form("serial4")

problem4=Request.form("problem4")

terms=Request.form("terms")

delivery=Request.form("delivery")

comments=Request.form("comments")
 
sSQL = "INSERT into rmarequest (req_no, date, email, company, contact, phone, fax, address, city, state, zip, part1, qty1, inv1, po1, inv_date1, serial1, problem1, part2, qty2, inv2, po2, inv_date2, serial2, problem2, part3, qty3, inv3, po3, inv_date3, serial3, problem3, part4, qty4, inv4, po4, inv_date4) values('" & MyNewRandomNum & "', '" & thedate & "','" & Email & "','" & Customer & "','" & Contact & "','" & Phone & "', '" & Fax & "', '" & Address & "', '" & City & "', '" & State & "','" & Zip & "', '" & part1 & "', '" & qty1 & "', '" & invoice1 & "', '" & po1 & "', '" & date1 & "', '" & serial1 & "', '" & problem1 & "', '" & part2 & "', '" & qty2 & "', '" & invoice2 & "', '" & po2 & "', '" & date2 & "', '" & serial2 & "', '" & problem2 & "', '" & part3 & "', '" & qty3 & "', '" & invoice3 & "', '" & po3 & "', '" & date3 & "', '" & serial3 & "', '" & problem3 & "', '" & part4 & "', '" & qty4 & "', '" & invoice4 & "', '" & po4 & "', '" & date4 & "')" 

stSQL= "INSERT into rmarequest (serial4, problem4, terms, delivery, comments)values( '" & serial4 & "', '" & problem4 & "', '" & terms & "', '" & delivery & "', '" & Comments & "')"
 
Set conn = server.CreateObject("ADODB.connection")

sConnString = "DRIVER=SQL Server;SERVER={};UID={}; PWD={};APP=;DATABASE={}" 

conn.Open sConnString

conn.execute(sSQL)

conn.execute(stSQL)

connection.Close

Set conn = Nothing

%><%
 
bodytext = ""

bodytext = bodytext& "<HTML><HEAD><title>RMA Request Recieved@A3Net</title>"

bodytext = bodytext&"<meta http-equiv=Content-Type content=text/css; charset=UTF-8>" 

bodytext = bodytext&"<style fprolloverstyle>"

bodytext = bodytext&"A:hover {color: #F6D271; font-weight: bold}.style6 {font-size: 10pt;font-weight: bold;}"

bodytext = bodytext&".style7 {font-family: MS Sans Serif}.style8 {font-size: 10pt; font-weight: bold; font-family: MS Sans Serif; }"

bodytext = bodytext&".style10 {font-family: MS Sans Serif;font-size: 1pt;color: #000066;font-weight: bold;}"

bodytext = bodytext&".style13 {font-size: 10pt}.style14 {font-size: 1pt; color: #000066; font-family: MS Sans Serif;}"

bodytext = bodytext&".style16 {font-family: MS Sans Serif;color: #003333;font-weight: bold;font-size: medium;}"

bodytext = bodytext&".style17 {color: #336699}.style20 {font-family: Webdings; color: #DFAE0E;}"

bodytext = bodytext&".style21 {font-size: 1pt}.style22 {font-size: 1pt; font-family: MS Sans Serif; }"

bodytext = bodytext&".style24 {    font-family: Verdana, Arial, Helvetica, sans-serif;color: #000000;font-size: 9pt;}"

bodytext = bodytext&".style25 { color: #000000;    font-size: 9px;}"

bodytext = bodytext&"</style>"

bodytext = bodytext&"</HEAD>"

bodytext = bodytext&"<BODY BGCOLOR=#FFFFFF leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 link=#FFFFFF vlink=#FFFFFF alink=#FFFFFF>" 

     bodytext = bodytext&"<span class=bodyplaingrey></span> <span class=bodyplainred></span> <span class=credit></span> "

     bodytext = bodytext&"<span class=boldwhiteCopy></span> <span class=boldwhite></span> <span class=bodyplain></span> "

     bodytext = bodytext&"<center>"

     bodytext = bodytext&"<table border=1 cellpadding=0 cellspacing=0>"

bodytext = bodytext&"<tr BGCOLOR=#cccccc><td align=center valign=middle><span class=style16>RMA Request Recieved@A3net</span></td>"

bodytext = bodytext&"</tr><tr BGCOLOR=#e4e4e4><td align=center valign=middle><span class=style7>RMA Request Number:</span><span class=style24 style7 style13>&nbsp;&nbsp;"

     bodytext = bodytext&MyNewRandomNum

     bodytext = bodytext&"</span></td></tr><tr><td align=left valign=middle>"

     bodytext = bodytext&"<table width=574 border=0 align=left cellpadding=0 cellspacing=0 bordercolor=#e2e2e2><tr>"

bodytext = bodytext&"<td align=left valign=top class=style7>&nbsp;</td>"

bodytext = bodytext&"<td align=left valign=top class=style6>&nbsp;</td></tr>"

     bodytext = bodytext&"<tr><td align=left valign=top class=style7>&nbsp;</td>"

bodytext = bodytext&"<td align=left valign=top class=style6>&nbsp;</td></tr>"

bodytext = bodytext&"<tr bgcolor=#E4E4E4 height=30><td width=279 align=left valign=top class=style7><span class=style13><span class=style10>&nbsp;&nbsp;Request Date :</span></span><br><span class=style13>&nbsp;&nbsp;"

bodytext = bodytext&thedate

     bodytext = bodytext&"<br></span></td>"

bodytext = bodytext&"<td width=288 align=left valign=top><span class=style10>&nbsp;&nbsp;Email:</span><br><span class=style24 style7 style13>&nbsp;&nbsp;"
 
bodytext = bodytext&"</table>"

                                            bodytext = bodytext&"</td></tr><tr align=left valign=top><td colspan=2 class=style8>&nbsp;</td>"

        bodytext = bodytext&"</tr><tr align=left valign=middle bgcolor=#E4E4E4><td height=30 colspan=2><span class=style10>&nbsp;&nbsp;Term of Exchange:</span><br><span class=style24 style7 style13>&nbsp;&nbsp;"

                                            bodytext = bodytext&terms

bodytext = bodytext&"</span></td></tr>"

                                            bodytext = bodytext&"<tr align=left valign=top><td colspan=2 class=style8>&nbsp;</td></tr>"

        bodytext = bodytext&"<tr align=left valign=top bgcolor=#E4E4E4 height=30><td colspan=2><span class=style10>&nbsp;&nbsp;Delivery Method:</span> <br><span class=style24 style7 style13>"

        bodytext = bodytext&"&nbsp;&nbsp;"

                                             bodytext = bodytext&delivery

                                             bodytext = bodytext&"</span></td></tr><tr align=left valign=top><td colspan=2 class=style8>&nbsp;</td>"

        bodytext = bodytext&"</tr><tr align=left valign=top bgcolor=#E4E4E4 height=20>"

        bodytext = bodytext&"<td colspan=2><span class=style10>&nbsp;&nbsp;Explain Problem:</span><br>"

         bodytext = bodytext&"&nbsp;&nbsp;<span class=style24 style7 style13>"

                                            bodytext = bodytext&comments

                                            bodytext = bodytext&"</span></td></tr><tr align=left valign=top><td colspan=2 class=style8>&nbsp;</td>"

        bodytext = bodytext&"</tr><tr align=left valign=top><td colspan=2 class=style8>&nbsp;&nbsp;</td></tr></table>"

                                             bodytext = bodytext&"</td></tr></table>"

                                             bodytext = bodytext&"</center>"                                                                     

bodytext = bodytext&"</BODY>" 

bodytext = bodytext&"</HTML>"
 
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    Mailer.FromAddress = "sales@a3net.com"

    Mailer.Cc = Email

    Mailer.RemoteHost = "scriptmail.intermedia.net"

    Mailer.AddRecipient "A3Net Servers Inc","rma@a3net.com"

    Mailer.Subject = "A3net RMA Request("&MyNewRandomNum&")"

    Mailer.ContentType = "text/html"

    Mailer.BodyText = bodytext
 
if Mailer.SendMail then    'Message sent sucessfully

    Response.Redirect "rmarequestsuccess.asp"

else

    Response.Redirect "rmarequestfailure.asp"

end if

%>
 
<%>

Jul 15 '08 #1

Subscribe Reply

2284

DrBunchman

979

Recognized Expert Contributor

Hi sindhudixit,

Welcome to Bytes.com! I hope you find the site useful.

What do you mean by "it's not working" when you try to do it all on one page? Is it throwing an error or are you not seeing the results you expect?

There's no reason why you can't do this all on one page but you could equally do it on two by passing the form values through the QueryString when you do a response.redirect.

Dr B

Jul 15 '08 #2

jhardman

3,406

Recognized Expert Specialist

There's no reason why you can't do this all on one page but you could equally do it on two by passing the form values through the QueryString when you do a response.redirect

or you could put them all in session variables (I keep saying to do this, but the truth is, I am more likely to use DrBunchman's method)

Expand|Select|Wrap|Line Numbers

 for each x in request.form

   session(x) = request.form(x)

next

Jared

Jul 16 '08 #3

by: TG | last post by:

Dear PHP Group, I have two forms that are used to collect user information. The first one takes user inputted values such as fullname, city, address etc. I want these values to display in the...

PHP

Problem using 'Post' with Integrated Windows Authentication

by: Pete Mahoney | last post by:

I am trying to 'POST' values from a form in a ASP file that has anonymous access permissions. I can retrieve the form values when I redirect to this page from another page which has also has...

ASP / Active Server Pages

Pull info from database than send that info via email?

by: Kenshin | last post by:

Hey! I have another script where i pull all the information from the database and I want to send it to the person. What they do is they enter in their email, and if the email matches, than it will...

ASP / Active Server Pages

Post array values (beginner's question)

by: brian_mckracken | last post by:

This might not be the right group for this question, since its kind of a pure html question... Given the html construct: <form action='index.php?expand=0,10000' method='post'> Email: <input...

PHP

Session state lost after accessing database

by: William | last post by:

Hi I have an ASP.NET application that connects to an Access database. Everything works fine except for the Session object. Data in the session object is lost after I've made a call to the...

ASP.NET

Problem with sending data via the Post method. (URGENT)

by: Vishal | last post by:

Hello, I already asked this question in the ASP.NET forums, but no help came. So I am hoping that somebody can help me out. This is really very URGENT me. For my e-commerce application, I...

ASP.NET

asp question about post vars

by: glenn | last post by:

I am use to programming in php and the way session and post vars are past from fields on one page through to the post page automatically where I can get to their values easily to write to a...

ASP.NET

how to get values of a redirected a POST request ?

by: Carl | last post by:

these are three files below : submit.html <html> <head> </head> <body> <form action="redirect.php" method="POST" > <input type="text" name="value" value="test" > <input type="submit" >...

PHP

Post with redirect?

by: UKuser | last post by:

Hi, I'm not sure if this can be done as I've searched the web and this forum. I am using an online merchant provider and I must post certain variables to their webforms through a form on my...

PHP

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...

C# / C Sharp

post to database AND send values into email and redirect user

Similar topics