% Response.Buffer=true usrid=Request.QueryString("id1") email=Request.QueryString("id2") yourname = Request.Form("yourname") youremail= Request.Form("youremail") mailcont = "Message - " & VbCrLf & Request.Form("mailcont") but1 = Request.Form("but1") Response.Write but1 if but1 = "Send" then usrid=Request.Form("orusrid") email=Request.Form("oremail") if not usrid="" then RegDetails="------------------------------------" & VbCrLf & "Registration Details:" & VbCrLf & "User Id: " & usrid & VbCrLf & "Email : " & email & VbCrLf RegDetails=RegDetails & "------------------------------------" & VbCrLf else RegDetails="" end if mailhead="Personal Message from : "& yourname&"("&youremail&")" & VbCrLf & RegDetails & mailcont & VbCrLf Set objMail=CreateObject("CDONTS.Newmail") objMail.From=yourname&"("&youremail&")" objMail.To="webmaster@orangepie.com" objMail.Subject="Contact Orangepie" objMail.Body=mailhead objMail.Send Set objMail=Nothing redurl="./register/regthnk.asp?result=contactus&usrid=" & usrid Response.redirect(redurl) end if %>
|
|
|
||||||||||||||||||||||||||
| Free Fun eCards | Friendship Connection | Poetry Contest | Deutsche | Help | Recommend Orangepie | |||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||
|
|
|
Emails us at webmaster@orangepie.com E-Cards From Orangepie Copyright © 1999 by Orangepie. All Rights Reserved. Website Created & Designed by Astrosoft _______________________________________________________________________________________________________ User Agreement | Privacy Policy | Register Now! | Advertise With Us | Add Orangepie Link |