% dim strMessage dim strEmail dim objCon dim Str_query If Request.ServerVariables("content_length") <> 0 Then set objCon=server.CreateObject("ADODB.Connection") objCon.Open application("ConnectionString") strMessage=Trim(Request.Form("textareamsg")) strEmail=Trim(Request.Form("txtEmail")) Str_query = "Insert INTO tblFeedBack (ID,Userview,Email) values(NewID(),'" & strMessage & "','" & strEmail & "')" objcon.Execute (Str_query) '-----------------------Feedback Mail to Raj------------------- dim objMail Set ObjMail=Server.CreateObject("CDONTS.NewMail") objMail.To = "raj@cseindia.org" objMail.From = strEmail objMail.Subject = "FeedBack form Users" objMail.Body = strMessage objMail.Send Set objMail=Nothing '-------------------------------------------------------------- Response.Redirect "../index_files/thanks.htm" objCon.Close set objCon=Nothing End If %>
|