MRI Prop Repair
<%
@LANGUAGE="VBSCRIPT"
%>
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "Name~Email~Phone~Make_of_boat~Length_of_boat~Year_of_boat~Make_of_engine~HP_of_engine~Year_of_engine~Recommended_RPM~Actual_RPM~CurrentTopEnd~Prop_manuf~Prop_part_number~Prop_dia~Prop_pitch~Number_of_Blades~Better_hole_shot~Better_top_end_speed~Better_fuel_efficiency~Better_Handling_or_Reduced_steering_torque~Better_load_carrying_ability~Type_of_Boat~Number_of_engines~Type_of_Engine~Prop_material~comments"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "gary@deltaprop.com"
objCDO.To = "gary@deltaprop.com"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "Delta Propeller Performance Request Form"
BodyString = Replace("","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
Next
End If
objCDO.Body = BodyString
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
RedirectURL = "results.asp"
If RedirectURL <> "" then
If Request.QueryString <> "" Then
response.redirect(RedirectURL & "?" & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>
<%
MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>