% if request.Form("email_") ="send_" then str="Name: " + request.form("name") & vbCrLf str=str +"Address1: " + request.form("address1") & vbCrLf str=str +"Address2: " + request.form("address2") & vbCrLf str=str +"City: " + request.form("city") & vbCrLf str=str +"Pin: " + request.form("pin_code") & vbCrLf str=str +"Country: " + request.form("country") & vbCrLf str=str +"Mobile No: " + request.form("mobile") & vbCrLf str=str +"E-mail Address: " + request.form("email") & vbCrLf str=str +"Organization: " + request.form("organization") & vbCrLf str=str +"Feedback: " + request.form("comments") & vbCrLf sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = request.Form("email") .To = "sukantadas007@yahoo.com" .cc = "sukantadas007@gmail.com" .bcc = "pampidas007@yahoo.in" .Subject = "Feedback to GASANDGADGETS" .TextBody = str .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("feedback.asp") end if %>
|
|
|