[url]http://www.aspfaq.com/5003[/url] !!!

--
[url]http://www.aspfaq.com/[/url]
(Reverse address to reply.)




"Athmaus" <Athmaus@discussions.microsoft.com> wrote in message
news:7D654670-14D1-4B16-B684-04146EE5C31D@microsoft.com...
> Hey!
>
> I have my sign-in information that connects to the database, and deposits
the info in there.
>
> (except, anyone know how can i get verficiation on the username to where
only 1 unique username can be in that database column??)
>
> But now i need to send them an email cofirmation of the information they
entered. I have used this email bounceback code in the past, but i have
never combined the two before. Any help would be greatly appreciated!
>
> Thanks!!!
>
> Here is my code
>
> <%
> Function SendEmail()
> Dim myMail
> Set myMail = CreateObject("CDONTS.NewMail")
> HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
> HTML = HTML & "<html>"
> HTML = HTML & "<head>"
> HTML = HTML & "<title>Free Update Login Information</title>"
> HTML = HTML & "</head>"
> HTML = HTML & "<center><b>Free Update Login Information</b></center>"
> HTML = HTML & "<br>Dear: " & Request.Form("fname") &
Request.Form("lname")
> HTML = HTML & "<br>Thank you for signing up "
> HTML = HTML & "<br>Here is your login information:"
> HTML = HTML & "<br> <b>User Name: </b>" & Request.Form("username")
> HTML = HTML & "<br> <b>Password: </b>" & Request.Form("password")
> HTML = HTML & "<br><br> Please print this page for your records, and keep
this information in a safe place."
> HTML = HTML & "</body>"
> HTML = HTML & "</html>"
>
> myMail.From = "testing@abc.com"
> myMail.To = Request.Form("email")
> myMail.Subject = "Login Information"
> myMail.BodyFormat = 0
> myMail.MailFormat = 0
> myMail.Body = HTML
> myMail.Send
> End Function
> %>
>
> <%
> Response.Expires = -1000 'Make sure the browser doesnt cache this page
> Response.Buffer = True 'enables our response.redirect to work
>
> If Request.Form("valuepassed") ="true" Then
> CheckSignUpForm
> Else
> ShowSignUpForm
> End If
>
> Sub CheckSignUpForm
> Dim myconn, blnLoggedIn, first, last, email, order, user, pass
> Set myconn = Server.CreateObject("ADODB.Connection")
> myconn.open = "Provider=SQLOLEDB.1;Password=XXX;Persist Security
Info=True;User ID=XXX;Initial Catalog=XXX;Data Source=XXX"
>
> first = Request.Form("fname")
> last = Request.Form("lname")
> email = Request.Form("email")
> order = Request.Form("order")
> user = Request.Form("username")
> pass = Request.Form("password")
> site = 2
>
>
> information = "INSERT INTO regfreeup(ordernum, firstname, lastname, email,
username, pass, site, signup) VALUES('" & order & "', '" & first & "', '" &
last & "', '" & email & "', '" & user & "', '" & pass & "', '" & site & "',
'" & Now() & "')"
>
> Set Recordset = myconn.execute(information)
> 'myconn.execute("INSERT INTO regfreeup set firstname = '" & first & "' ,
lastname = '" & last & "' , email = '" & email & "' , ordernum = '" & order
& "', username = '" & user & "' , pass = '" & pass & "' , site = '" & site &
"' , signup = '" & Now() & "';")
> Response.Redirect "http://ps2.ign.com"
>
> myconn.close
> set myconn = nothing
>
> SendEmail()
>
> ShowSignUpForm
> End Sub
> %>
>
> <% Sub ShowSignUpForm %>
> All the form info is help below here...
> <% End Sub %>