<%@LANGUAGE="VBSCRIPT"%> <% 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")) = "basketform") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_RemovalBoxes2_STRING MM_editCmd.CommandText = "INSERT INTO dbo.quotation (Cost, TypeOfShipping, ORDERTIME, IPADDRESS, Email, PhoneNumber, Name, Address1, Address2, AddressTown, Postcode, Country, TypeOfCard, CreditCardNum, CCVD, IssueNumber, NameOnCard, ExpiryMonth, ExpiryYear, AmexCardSD, AmexCardSY, UserNotes, OrderedItems, QuotationDate, YX42, SITE) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("showtotal"), Request.Form("showtotal"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("Shipping_Method")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("time")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("IPADDRESS")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("Tel")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("bbfirstname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("ddaddress1")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("eevillage")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 50, Request.Form("ffcity")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 50, Request.Form("ggzip")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("Country")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 50, Request.Form("iicreditcard")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 50, Request.Form("jjccnumber")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 10, Request.Form("CCVD")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 50, Request.Form("ssswitch")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 50, Request.Form("kkccname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 202, 1, 50, Request.Form("startmonth")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 202, 1, 50, Request.Form("startyear")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 202, 1, 50, Request.Form("ammmonth")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 202, 1, 50, Request.Form("annyear")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 202, 1, 4000, Request.Form("comments")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 202, 1, 4000, Request.Form("QuoItems")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 135, 1, -1, MM_IIF(Request.Form("todaysDate"), Request.Form("todaysDate"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 202, 1, 100, Request.Form("YX42")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 202, 1, 100, Request.Form("SITE")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "freethankyou.asp" 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 %> LEARN SPANISH ONLINE

Contact

I am available to teach Spanish 6 days a week Monday to Saturday 9am to 9pm online with Zoom or FaceTime.

Lessons can be taken at any time during my time table. Everyone has the greatest flexibility to learn Spanish at their own pace.

To find out more about my one to one lessons a1 to c2 or holiday Spanish, conversational Spanish for those who live in Spain and children's Spanish lessons contact me below.

 

Monday-Saturday 9am-9pm

Tel 07597 055504

Click here for your FREE lesson

© Learn Spanish Online