<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_ProductRegistration_STRING MM_editCmd.CommandText = "INSERT INTO ProductRegistration (regFirstName, regLastName, regCompany, regAddress, regCity, regState, regZip, regPhone, regFax, regEmail, purchasedFrom, purchasedDate, dumpModel, dumpSeriaNumber, truckModel, truckYear, regDate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("FirstName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("LastName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Company")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 150, Request.Form("Address")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("City")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("State")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("Zip")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 12, Request.Form("Phone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 12, Request.Form("Fax")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 100, Request.Form("Email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 150, Request.Form("purchasedFrom")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, Request.Form("purchasedDate")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 50, Request.Form("dumpModel")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 50, Request.Form("dump_Serial")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 50, Request.Form("truckModel")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 50, Request.Form("truckYear")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 135, 1, -1, MM_IIF(Request.Form("RegDate"), Request.Form("RegDate"), null)) ' adDBTimeStamp MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "http://web.dumperdogg.com/buyersproductscom-agsak/pages/hlnydvb2eewgfwbqvqeaaa.html ?Success=Yes" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> DumperDogg Dump Inserts Videos
Steel Features & OptionsPolymer Features & OptionsContact UsFind a DistributorProduct RegistrationTechnical SupportWatch our Videos

 

 

 

DUMPERDOGG VIDEOS

 

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

Loading Video

 

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

Dumping Video


Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player


The DumperDogg was shown on the DIY network show CoolTools

 

 

 

Back to Home page Go to Buyers Products website Go to ScoopDogg Pushers website Go to SnowDogg Snow Plows website Go to SaltDogg Salt Spreaders website


Copyright© 2012 | All Rights Reserved DumperDogg.com | Site by the Dudash Factory