<% @language=vbscript %> <% function curPageURL() dim s, protocol, port if Request.ServerVariables("HTTPS") = "on" then s = "s" else s = "" end if protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s if Request.ServerVariables("SERVER_PORT") = "80" then port = "" else port = ":" & Request.ServerVariables("SERVER_PORT") end if curPageURL = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_ port & Request.ServerVariables("SCRIPT_NAME") end function function strLeft(str1,str2) strLeft = Left(str1,InStr(str1,str2)-1) end function %> <% dim con,objcon,rs set objcon=Server.CreateObject("ADODB.Connection") objcon.Open "Provider=MSDASQL ;Driver={SQL Server};server=216.15.231.200;uid=aspirelg;pwd=Aspire24#;database=aspiredb; Connect Timeout=30" response.expires=-1 dim FirstName, LastName, EmailAddress,TelephoneNo,Message,cc FirstName = "" LastName = "" EmailAddress="" TelephoneNo = "" Message = "" cc="" if request.form("button") <> "" then FirstName = Request.Form("FirstName") LastName = Request.Form("LastName") EmailAddress = Request.Form("EmailAddress") TelephoneNo=Request.Form("TelephoneNo") Message = Request.Form("Message") objcon.execute("Execute PLFutureEdge @mode='InsertContact',@FirstName='"& FirstName & "',@LastName='" & LastName & "',@EmailAddress='" & EmailAddress &"',@TelephoneNo='" & TelephoneNo &"',@Message='" & Message &"'") response.write "Saved Successfully " mTo = "deepesh@futureedge.in" 'mTo = "ashish@futureedge.in" 'mTo = "sandeep.singh@mothersprideonline.com" 'mFrom = "Amit.mishra@mothersprideonline.com" 'mFrom = "sandeep.singh@mothersprideonline.com" mFrom = EmailAddress mSub = "Future Edge Contact Us form details" cc= "websitequeries@iammarvel.com" mRedirect = curPageURL() mMsg1="" mMsg1= "Name = " + FirstName + " " + LastName mMsg1 =mMsg1 + "

Email Address = "+ EmailAddress mMsg1 =mMsg1 + "

Telephone No = "+TelephoneNo mMsg1 =mMsg1 + "

Message: " mMsg1 =mMsg1 + "

"+Message 'response.write mMsg1 Response.Redirect "SendMailDynamic.asp?mTo=" + mTo + "&mFrom=" + mFrom + "&mSub=" + mSub + "&MsgDisplay=" + mMsg1 + "&mRedirect=" + mRedirect + "&cc=" + cc +"" end if %>

CONTACT

<% if Request.QueryString("Ok") = "1" then %>

Mail Sent Successfully.

<% end if %>