% if Request.Form("process") ="yes" then promocode=Request.Form("promocode") '==== GCD=Request.Form("GCD") G4_2_channelx100W=Request.Form("G4_2_channelx100W") Gpt5_2x100Watts=Request.Form("Gpt5_2x100Watts") G4pt5_4_channelx250W=Request.Form("G4pt5_4_channelx250W") G1Preamp=Request.Form("G1Preamp") G6_2_channelx135W=Request.Form("G6_2_channelx135W") G2Preamp_Battery=Request.Form("G2Preamp_Battery") G8_2_channelx175W=Request.Form("G8_2_channelx175W") G3Integrated80Watts_Channel=Request.Form("G3Integrated80Watts_Channel") G8plus_2_channelx200W_laser_2_chassis=Request.Form("G8plus_2_channelx200W_laser_2_chassis") G3pt5_3_channelx250W=Request.Form("G3pt5_3_channelx250W") '==== G8MAV1x250W=Request.Form("G8MAV1x250W") G8MAV1x250W_Inputs=Request.Form("G8MAV1x250W_Inputs") GAV2x500W_1x250W=Request.Form("GAV2x500W_1x250W") GAV2x500W_1x250W_Inputs=Request.Form("GAV2x500W_1x250W_Inputs") G8AV2x250W=Request.Form("G8AV2x250W") G8AV2x250W_Inputs=Request.Form("G8AV2x250W_Inputs") GAV4x250W=Request.Form("GAV4x250W") GAV4x250W_Inputs=Request.Form("GAV4x250W_Inputs") G8AV2x500W=Request.Form("G8AV2x500W") G8AV2x500W_Inputs=Request.Form("G8AV2x500W_Inputs") GAV2x250W_1x500W=Request.Form("GAV2x250W_1x500W") GAV2x250W_1x500W_Inputs=Request.Form("GAV2x250W_1x500W_Inputs") GAV3x250W=Request.Form("GAV3x250W") GAV3x250W_Inputs=Request.Form("GAV3x250W_Inputs") GAV3x250W_1x500W=Request.Form("GAV3x250W_1x500W") GAV3x250W_1x500W_Inputs=Request.Form("GAV3x250W_1x500W_Inputs") GAV3x500W_2x250W=Request.Form("GAV3x500W_2x250W") GAV3x500W_2x250W_Inputs=Request.Form("GAV3x500W_2x250W_Inputs") GAV3x250W_3x500W=Request.Form("GAV3x250W_3x500W") GAV3x250W_3x500W_Inputs=Request.Form("GAV3x250W_3x500W_Inputs") GAV4x250W_2x500W=Request.Form("GAV4x250W_2x500W") GAV4x250W_2x500W_Inputs=Request.Form("GAV4x250W_2x500W_Inputs") GAV5x250W_2x500W=Request.Form("GAV5x250W_2x500W") GAV5x250W_2x500W_Inputs=Request.Form("GAV5x250W_2x500W_Inputs") GAV5x250W=Request.Form("GAV5x250W") GAV5x250W_Inputs=Request.Form("GAV5x250W_Inputs") GAV2x250W_2x500W=Request.Form("GAV2x250W_2x500W") GAV2x250W_2x500W_Inputs=Request.Form("GAV2x250W_2x500W_Inputs") GAV6x250W=Request.Form("GAV6x250W") GAV6x250W_Inputs=Request.Form("GAV6x250W_Inputs") GAV1x500W_4x250W=Request.Form("GAV1x500W_4x250W") GAV1x500W_4x250W_Inputs=Request.Form("GAV1x500W_4x250W_Inputs") GAV7x250W=Request.Form("GAV7x250W") GAV7x250W_Inputs=Request.Form("GAV7x250W_Inputs") GAV1x500W_4x250W=Request.Form("GAV1x500W_4x250W") GAV1x500W_4x250W_Inputs=Request.Form("GAV1x500W_4x250W_Inputs") GAV3x500W=Request.Form("GAV3x500W") GAV3x500W_Inputs=Request.Form("GAV3x500W_Inputs") GAV1x500W_4x250W=Request.Form("GAV1x500W_4x250W") GAV1x500W_4x250W_Inputs=Request.Form("GAV1x500W_4x250W_Inputs") GAV4x500W=Request.Form("GAV4x500W") GAV4x500W_Inputs=Request.Form("GAV4x500W_Inputs") GAV1x500W_4x250W=Request.Form("GAV1x500W_4x250W") GAV1x500W_4x250W_Inputs=Request.Form("GAV1x500W_4x250W_Inputs") GAV5x500W=Request.Form("GAV5x500W") GAV5x500W_Inputs=Request.Form("GAV5x500W_Inputs") GAV1x500W_4x250W=Request.Form("GAV1x500W_4x250W") GAV1x500W_4x250W_Inputs=Request.Form("GAV1x500W_4x250W_Inputs") GAV6x500W=Request.Form("GAV6x500W") GAV6x500W_Inputs=Request.Form("GAV6x500W_Inputs") Other_NotSpecified=Request.Form("Other_NotSpecified") model_other_details=Request.Form("model_other_details") model_other_details=Replace(model_other_details,"'","") '==== GAV_NL_10_1_Amplifier=Request.Form("GAV_NL_10_1_Amplifier") GAV_NL_Signature_One_Preamplifier=Request.Form("GAV_NL_Signature_One_Preamplifier") GAV_NL_Signature_One_Amplifier=Request.Form("GAV_NL_Signature_One_Amplifier") GAV_NL_Reference_Amp=Request.Form("GAV_NL_Reference_Amp") GAV_NL_12_1_Amplifier=Request.Form("GAV_NL_12_1_Amplifier") '==== ACF_1_Filter_Box=Request.Form("ACF_1_Filter_Box") NL_Amp_Stands=Request.Form("NL_Amp_Stands") G_Series_Rack_2_tier=Request.Form("G_Series_Rack_2_tier") Clear_top_for_NL_Series_Amp_or_Preamp=Request.Form("Clear_top_for_NL_Series_Amp_or_Preamp") G_Series_Rack_3_tier=Request.Form("G_Series_Rack_3_tier") Power_Cubed_2pt5_KV_Power_Conditioner=Request.Form("Power_Cubed_2pt5_KV_Power_Conditioner") '==== Voltage=Request.Form("Voltage") '==== chkNewUsed=Request.Form("chkNewUsed") '==== txtNotes=Request.Form("txtNotes") txtNotes=Replace(txtNotes,"'","") '==== txtName=Request.Form("txtName") txtName=Replace(txtName,"'","") txtEmail=Request.Form("txtEmail") txtEmail=Replace(txtEmail,"'","") txtPhone=Request.Form("txtPhone") txtPhone=Replace(txtPhone,"'","") txtState=Request.Form("txtState") txtCountry=Request.Form("txtCountry") txtSubscribe=Request.Form("txtSubscribe") '==== txtDealer =Request.Form("txtDealer") Call BUILD_EMAIL_BODY() Sub BUILD_EMAIL_BODY() strText=strText & "==============" & vbcrlf strText=strText & "CONTACT INFO" & vbcrlf strText=strText & "==============" & vbcrlf strText=strText & "Name :" & txtName & vbcrlf & vbcrlf strText=strText & "Email :" & txtEmail & vbcrlf & vbcrlf strText=strText & "Phone :" & txtPhone & vbcrlf & vbcrlf strText=strText & "State :" & txtState & vbcrlf & vbcrlf strText=strText & "Country :" & txtCountry & vbcrlf & vbcrlf strText=strText & "Subscribe :" & txtSubscribe & vbcrlf & vbcrlf strText=strText & "Dealer Code :" & txtDealer & vbcrlf & vbcrlf strText=strText & "Promo Code: " & promocode & vbcrlf & vbcrlf strText=strText & "==============" & vbcrlf strText=strText & "TWO CHANNEL" & vbcrlf strText=strText & "==============" & vbcrlf if GCD <> "0" then strText=strText & "GCD :" & GCD & vbcrlf & vbcrlf end if if G4_2_channelx100W<>"0" then strText=strText & "G4_2_channelx100W :" & G4_2_channelx100W & vbcrlf & vbcrlf end if if Gpt5_2x100Watts<>"0" then strText=strText & "Gpt5_2x100Watts :" & Gpt5_2x100Watts & vbcrlf & vbcrlf end if if G4pt5_4_channelx250W<>"0" then strText=strText & "G4pt5_4_channelx250W :" & G4pt5_4_channelx250W & vbcrlf & vbcrlf end if if G1Preamp<>"0" then strText=strText & "G1Preamp :" & G1Preamp & vbcrlf & vbcrlf end if if G6_2_channelx135W<>"0" then strText=strText & "G6_2_channelx135W :" & G6_2_channelx135W & vbcrlf & vbcrlf end if if G2Preamp_Battery<>"0" then strText=strText & "G2Preamp_Battery :" & G2Preamp_Battery & vbcrlf & vbcrlf end if if G8_2_channelx175W<>"0" then strText=strText & "G8_2_channelx175W :" & G8_2_channelx175W & vbcrlf & vbcrlf end if if G3Integrated80Watts_Channel<>"0" then strText=strText & "G3Integrated80Watts_Channel :" & G3Integrated80Watts_Channel & vbcrlf & vbcrlf end if if G8plus_2_channelx200W_laser_2_chassis<>"0" then strText=strText & "G8plus_2_channelx200W_laser_2_chassis :" & G8plus_2_channelx200W_laser_2_chassis & vbcrlf & vbcrlf end if if G3pt5_3_channelx250W <> "0" then strText=strText & "G3pt5_3_channelx250W :" & G3pt5_3_channelx250W & vbcrlf & vbcrlf end if strText=strText & vbcrlf & "==============" & vbcrlf strText=strText & "MULTICHANNEL" & vbcrlf strText=strText & "==============" & vbcrlf if G8MAV1x250W<>"0" then strText=strText & "G8MAV1x250W :" & G8MAV1x250W & vbcrlf end if if G8MAV1x250W_Inputs<>"" then strText=strText & "G8MAV1x250W_Inputs :" & G8MAV1x250W_Inputs & vbcrlf & vbcrlf end if if GAV2x500W_1x250W<>"0" then strText=strText & "GAV2x500W_1x250W :" & GAV2x500W_1x250W & vbcrlf end if if GAV2x500W_1x250W_Inputs<>"" then strText=strText & "GAV2x500W_1x250W_Inputs :" & GAV2x500W_1x250W_Inputs & vbcrlf & vbcrlf end if if G8AV2x250W<>"0" then strText=strText & "G8AV2x250W :" & G8AV2x250W & vbcrlf end if if G8AV2x250W_Inputs<>"" then strText=strText & "G8AV2x250W_Inputs :" & G8AV2x250W_Inputs & vbcrlf & vbcrlf end if if GAV4x250W<>"0" then strText=strText & "GAV4x250W :" & GAV4x250W & vbcrlf end if if GAV4x250W_Inputs<>"" then strText=strText & "GAV4x250W_Inputs :" & GAV4x250W_Inputs & vbcrlf & vbcrlf end if if G8AV2x500W<>"0" then strText=strText & "G8AV2x500W :" & G8AV2x500W & vbcrlf end if if G8AV2x500W_Inputs<>"" then strText=strText & "G8AV2x500W_Inputs :" & G8AV2x500W_Inputs & vbcrlf & vbcrlf end if if GAV2x250W_1x500W<>"0" then strText=strText & "GAV2x250W_1x500W :" & GAV2x250W_1x500W & vbcrlf end if if GAV2x250W_1x500W_Inputs<>"" then strText=strText & "GAV2x250W_1x500W_Inputs :" & GAV2x250W_1x500W_Inputs & vbcrlf & vbcrlf end if if GAV3x250W<>"0" then strText=strText & "GAV3x250W :" & GAV3x250W & vbcrlf end if if GAV3x250W_Inputs<>"" then strText=strText & "GAV3x250W_Inputs :" & GAV3x250W_Inputs & vbcrlf & vbcrlf end if if GAV3x250W_1x500W<>"0" then strText=strText & "GAV3x250W_1x500W :" & GAV3x250W_1x500W & vbcrlf end if if GAV3x250W_1x500W_Inputs<>"" then strText=strText & "GAV3x250W_1x500W_Inputs :" & GAV3x250W_1x500W_Inputs & vbcrlf & vbcrlf end if if GAV5x250W<>"0" then strText=strText & "GAV5x250W :" & GAV5x250W & vbcrlf end if if GAV5x250W_Inputs<>"" then strText=strText & "GAV5x250W_Inputs :" & GAV5x250W_Inputs & vbcrlf & vbcrlf end if if GAV2x250W_2x500W<>"0" then strText=strText & "GAV2x250W_2x500W :" & GAV2x250W_2x500W & vbcrlf end if if GAV2x250W_2x500W_Inputs<>"" then strText=strText & "GAV2x250W_2x500W_Inputs :" & GAV2x250W_2x500W_Inputs & vbcrlf & vbcrlf end if if GAV6x250W<>"0" then strText=strText & "GAV6x250W :" & GAV6x250W & vbcrlf end if if GAV6x250W_Inputs<>"" then strText=strText & "GAV6x250W_Inputs :" & GAV6x250W_Inputs & vbcrlf & vbcrlf end if if GAV1x500W_4x250W<>"0" then strText=strText & "GAV1x500W_4x250W :" & GAV1x500W_4x250W & vbcrlf end if if GAV1x500W_4x250W_Inputs<>"" then strText=strText & "GAV1x500W_4x250W_Inputs :" & GAV1x500W_4x250W_Inputs & vbcrlf & vbcrlf end if if GAV7x250W<>"0" then strText=strText & "GAV7x250W :" & GAV7x250W & vbcrlf end if if GAV7x250W_Inputs<>"" then strText=strText & "GAV7x250W_Inputs :" & GAV7x250W_Inputs & vbcrlf & vbcrlf end if if GAV3x500W_2x250W<>"0" then strText=strText & "GAV3x500W_2x250W :" & GAV3x500W_2x250W & vbcrlf end if if GAV3x500W_2x250W_Inputs<>"" then strText=strText & "GAV3x500W_2x250W_Inputs :" & GAV3x500W_2x250W_Inputs & vbcrlf & vbcrlf end if if GAV3x500W<>"0" then strText=strText & "GAV3x500W :" & GAV3x500W & vbcrlf end if if GAV3x500W_Inputs<>"" then strText=strText & "GAV3x500W_Inputs :" & GAV3x500W_Inputs & vbcrlf & vbcrlf end if if GAV3x250W_3x500W<>"0" then strText=strText & "GAV3x250W_3x500W :" & GAV3x250W_3x500W & vbcrlf end if if GAV3x250W_3x500W_Inputs<>"" then strText=strText & "GAV3x250W_3x500W_Inputs :" & GAV3x250W_3x500W_Inputs & vbcrlf & vbcrlf end if if GAV4x500W<>"0" then strText=strText & "GAV4x500W :" & GAV4x500W & vbcrlf end if if GAV4x500W_Inputs<>"" then strText=strText & "GAV4x500W_Inputs :" & GAV4x500W_Inputs & vbcrlf & vbcrlf end if if GAV4x250W_2x500W<>"0" then strText=strText & "GAV4x250W_2x500W :" & GAV4x250W_2x500W & vbcrlf end if if GAV4x250W_2x500W_Inputs<>"" then strText=strText & "GAV4x250W_2x500W_Inputs :" & GAV4x250W_2x500W_Inputs & vbcrlf & vbcrlf end if if GAV5x500W<>"0" then strText=strText & "GAV5x500W :" & GAV5x500W & vbcrlf end if if GAV5x500W_Inputs<>"" then strText=strText & "GAV5x500W_Inputs :" & GAV5x500W_Inputs & vbcrlf & vbcrlf end if if GAV5x250W_2x500W<>"0" then strText=strText & "GAV5x250W_2x500W :" & GAV5x250W_2x500W & vbcrlf end if if GAV5x250W_2x500W_Inputs<>"" then strText=strText & "GAV5x250W_2x500W_Inputs :" & GAV5x250W_2x500W_Inputs & vbcrlf & vbcrlf end if if GAV6x500W<>"0" then strText=strText & "GAV6x500W :" & GAV6x500W & vbcrlf end if if GAV6x500W_Inputs<>"" then strText=strText & "GAV6x500W_Inputs :" & GAV6x500W_Inputs & vbcrlf & vbcrlf end if if Other_NotSpecified<>"" then strText=strText & "Other Product :" & Other_NotSpecified & vbcrlf end if if model_other_details<>"" then strText=strText & "Other Product - Details :" & model_other_details & vbcrlf & vbcrlf end if strText=strText & vbcrlf & "==============" & vbcrlf strText=strText & "TWO CHANNEL" & vbcrlf strText=strText & "==============" & vbcrlf if GAV_NL_10_1_Amplifier <> "0" then strText=strText & "GAV_NL_10_1_Amplifier :" & GAV_NL_10_1_Amplifier & vbcrlf & vbcrlf end if if GAV_NL_Signature_One_Preamplifier <> "0" then strText=strText & "GAV_NL_Signature_One_Preamplifier :" & GAV_NL_Signature_One_Preamplifier & vbcrlf & vbcrlf end if if GAV_NL_Signature_One_Amplifier <> "0" then strText=strText & "GAV_NL_Signature_One_Amplifier :" & GAV_NL_Signature_One_Amplifier & vbcrlf & vbcrlf end if if GAV_NL_Reference_Amp <> "0" then strText=strText & "GAV_NL_Reference_Amp :" & GAV_NL_Reference_Amp & vbcrlf & vbcrlf end if if GAV_NL_12_1_Amplifier <> "0" then strText=strText & "GAV_NL_12_1_Amplifier :" & GAV_NL_12_1_Amplifier & vbcrlf & vbcrlf end if strText=strText & vbcrlf & "==============" & vbcrlf strText=strText & "ACCESSORIES" & vbcrlf strText=strText & "==============" & vbcrlf if ACF_1_Filter_Box <> "0" then strText=strText & "ACF_1_Filter_Box :" & ACF_1_Filter_Box & vbcrlf & vbcrlf end if if NL_Amp_Stands <> "0" then strText=strText & "NL_Amp_Stands :" & NL_Amp_Stands & vbcrlf & vbcrlf end if if G_Series_Rack_2_tier <> "0" then strText=strText & "G_Series_Rack_2_tier :" & G_Series_Rack_2_tier & vbcrlf & vbcrlf end if if G_Series_Rack_3_tier <> "0" then strText=strText & "G_Series_Rack_3_tier :" & G_Series_Rack_3_tier & vbcrlf & vbcrlf end if if Clear_top_for_NL_Series_Amp_or_Preamp <> "0" then strText=strText & "Clear_top_for_NL_Series_Amp_or_Preamp :" & Clear_top_for_NL_Series_Amp_or_Preamp & vbcrlf & vbcrlf end if if Power_Cubed_2pt5_KV_Power_Conditioner <> "0" then strText=strText & "Power_Cubed_2.5_KV_Power_Conditioner :" & Power_Cubed_2pt5_KV_Power_Conditioner & vbcrlf & vbcrlf end if strText=strText & vbcrlf & "==============" & vbcrlf strText=strText & "EXTRA INFO" & vbcrlf strText=strText & "==============" & vbcrlf if Voltage <> "9999" then strText=strText & "Desired Voltage :" & Voltage & vbcrlf & vbcrlf end if strText=strText & "New or Used Equipment :" & chkNewUsed & vbcrlf & vbcrlf strText=strText & "==============" & vbcrlf strText=strText & "ADDITIONAL NOTES" & vbcrlf strText=strText & "==============" & vbcrlf strText=strText & "Additional Notes :" & vbcrlf & txtNotes & vbcrlf & vbcrlf Call SEND_EMAIL(strText) 'Response.Write("
" & strText & "
") End Sub Sub SEND_EMAIL(strText) Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "sales@edgeamps.com" objCDO.From = "sales@edgeamps.com" objCDO.bcc = "edgeamps@maksys.com" strHeading="=========================================" & vbcrlf strHeading=strHeading & "EdgeAmps.com Price Request" & vbcrlf strHeading=strHeading & Date() & ": " & Time() strHeading=strHeading & vbcrlf & "=========================================" & vbcrlf & vbcrlf objCDO.Subject = "EdgeAmp.com Pricing Request" objCDO.Body = strHeading & strText objCDO.Send End Sub End if %>
<%=Request.Form("txtDealer")%>
<% end if %>