FEROZE'S Real Estate Advisory :: Contact Us : Feedback

<%@ Language=VBScript %> <%option explicit 'Opening the Connection with the server%> <%Dim strSQL Dim strMode,strMessage strMode = Request.QueryString("Mode") If strMode = "Add" then Dim strName,strCompany,strAddress,strEmailId,strPhone,strFax,strComments strName = Request.Form("txtName") strCompany = Request.Form("txtCompany") strAddress = Request.Form("txtAddress") strEmailId = Request.Form("txtEmailId") strPhone = Request.Form("txtPhone") strFax = Request.Form("txtFax") strComments = Request.Form("txtComments") strSQL = "" strSQL ="INSERT INTO tblFeedbacks(fb_name,fb_company,fb_Address,fb_email,fb_phone,fb_fax,fb_details,fb_Created_Date)VALUES('"&Trim(Replace(strName,"'","`"))&"','"&Trim(Replace(strCompany,"'","`"))&"','"&Trim(Replace(strAddress,"'","`"))&"','"&Trim(Replace(strEmailId,"'","`"))&"','"&Trim(Replace(strPhone,"'","`"))&"','"&Trim(Replace(strFax,"'","`"))&"','"&Trim(Replace(strComments,"'","`"))&"','"&Trim(Date())&"')" objConn.Execute strSQL 'strMessage = "Thank you for providing your Feedback" Response.Redirect("feedback_thankyou.asp") End if %> FEROZE'S Real Estate Advisory :: Contact Us : Feedback

<%If strMessage <> "" then%> <%End if %>

<%=strMessage%>


	*Name

	Company

	Address

	*E-mail

	Phone

	Fax

	Comments


*Required fileds