<%@LANGUAGE="VBSCRIPT"%> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% if request.form("email")<>"" then Dim rs1 Dim rs1_cmd Dim rs1_numRows Set rs1_cmd = Server.CreateObject ("ADODB.Command") rs1_cmd.ActiveConnection = MM_Rsource1_STRING rs1_cmd.CommandText = "SELECT * FROM tblpayments WHERE payeremail='" & trim(request.form("email"))&"'" rs1_cmd.Prepared = true Set rs1 = rs1_cmd.Execute rs1_numRows = 0 registered = "" fine = 0 if rs1.eof then else registered = rs1.fields.item("payeremail") if rs1.fields.item("keycode") <> "" then haskey = 1 else haskey = 0 fine = 1 end if end if %> <% if (Request.Form("Email")<>"" and instr(Request.Form("Email"),"@")>2 and request.form("ucode")<>"" ) and fine=1 then goodresult = 1 driveinfo = trim(request.form("ucode")) validatecode = Abs(Int((Right(driveinfo, 5)) * 2 + 788 * 1.667) + Right(driveinfo, 2)) validatecode = (Right(validatecode, 3) * 6) + validatecode if haskey = 1 then validatecode = rs1.fields("keycode") strEmailFrom = "info@drivingschoolprofessional.com" strEmailTo = registered strEmailTo2 = "info@drivingschoolprofessional.com" strEmailSubject = "Driving School Pro - Activation Key (Payment Confirmed)" strEmailBody = "Dear ADI," & vbcrlf & "We hope you enjoy your new licence of Driving School Professional." &vbcrlf & vbcrlf & "Your activation code is : " & validatecode & vbcrlf & vbcrlf strEmailBody = strEmailBody & "You will be eligible for any updates over the next 6 months." & vbcrlf strEmailBody = strEmailBody & "We hope you enjoy the software application and that you will participate in offering suggestions for future features." & vbcrlf 'strEmailBody = strEmailBody & "http://www.drivingschoolprofessional.com" & vbcrlf strEmailBody = strEmailBody & "" & vbcrlf strEmailBody = strEmailBody & "Thank you," & vbcrlf strEmailBody = strEmailBody & "Driving School Pro" & vbcrlf strEmailBody = strEmailBody & "http://www.drivingschoolprofessional.com" & vbcrlf Set objEmailMsg = Server.CreateObject("Persits.MailSender") objEmailMsg.Host = "smtp1r.cp.blacknight.com" '78.153.209.161 objEmailMsg.Port = 25 objEmailMsg.From = strEmailFrom objEmailMsg.AddAddress strEmailTo objEmailMsg.AddAddress strEmailTo2 objEmailMsg.Subject = strEmailSubject objEmailMsg.Body = strEmailBody 'objEmailMsg.Username = "info@goldenireland.ie" 'objEmailMsg.Password = "ger1234" On Error Resume Next objEmailMsg.Send 'response.redirect "signup.asp?send=1" Set objEmailMsg = Nothing If Err <> 0 Then Response.Write "Error encountered: " & Err.Description end if ' Update the current payer with key code if not already done. if haskey = 0 then keycode = validatecode Set Command1 = Server.CreateObject ("ADODB.Command") Command1.ActiveConnection = MM_Rsource1_STRING Command1.CommandText = "UPDATE tblpayments SET keycode = ? WHERE Payeremail = ?" Command1.Parameters.Append Command1.CreateParameter("MMkey", 200, 1, 50, MM_IIF(keycode, keycode, Command1__MMkey & "")) Command1.Parameters.Append Command1.CreateParameter("MMemail", 200, 1, 120, MM_IIF(request.form("email"), request.form("email"), Command1__MMemail & "")) Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() end if end if if (Request.Form("Email")<>"" and instr(Request.Form("Email"),"@")>2 and request.form("ucode")<>"" ) and fine=0 then goodresult = 2 'driveinfo = trim(request.form("ucode")) ' 'validatecode = Abs(Int((Right(driveinfo, 5)) * 2 + 788 * 1.667) + Right(driveinfo, 2)) 'validatecode = (Right(validatecode, 3) * 6) + validatecode ' 'strEmailFrom = "info@drivingschoolprofessional.com" 'strEmailTo = request.form("email") 'strEmailTo2 = "info@drivingschoolprofessional.com" 'strEmailSubject = "Driving School Pro - Activation Key (Unpaid)" 'strEmailBody = "Dear ADI," & vbcrlf & "We hope you enjoy the new version of Driving School Professional." &vbcrlf & vbcrlf & "Your activation code is : " & validatecode & vbcrlf & vbcrlf & strEmailto ' 'Set objEmailMsg = Server.CreateObject("Persits.MailSender") ' 'objEmailMsg.Host = "smtp1r.cp.blacknight.com" '78.153.209.161 'objEmailMsg.Port = 25 'objEmailMsg.From = strEmailFrom ''objEmailMsg.AddAddress strEmailTo 'objEmailMsg.AddAddress strEmailTo2 'objEmailMsg.Subject = strEmailSubject 'objEmailMsg.Body = strEmailBody ' 'On Error Resume Next 'objEmailMsg.Send ' ' Set objEmailMsg = Nothing ' 'If Err <> 0 Then ' Response.Write "Error encountered: " & Err.Description ' ' 'end if ' Send SECOND EMAIL TO NOTIFY CUSTOMER strEmailSubject = "Driving School Pro - Payment Confirmation" strEmailBody = "Dear ADI," & vbcrlf & "Our records show you still have to pay for your version of Driving School Pro." &vbcrlf &"When the payment is confirmed, your Activation Key will be forwarded to you." & vbcrlf & "You can pay by visiting this page: " & vbcrlf & "http://www.drivingschoolprofessional.com/features-PC-Version.html" & vbcrlf & vbcrlf &"Thank you and we hope you enjoy the product." & vbcrlf & "Regards," & vbcrlf & vbcrlf & "Driving School Pro Team " Set objEmailMsg = Server.CreateObject("Persits.MailSender") objEmailMsg.Host = "smtp1r.cp.blacknight.com" '78.153.209.161 objEmailMsg.Port = 25 objEmailMsg.From = strEmailFrom objEmailMsg.AddAddress strEmailTo objEmailMsg.AddAddress strEmailTo2 objEmailMsg.Subject = strEmailSubject objEmailMsg.Body = strEmailBody 'objEmailMsg.Username = "info@goldenireland.ie" 'objEmailMsg.Password = "ger1234" On Error Resume Next objEmailMsg.Send 'response.redirect "signup.asp?send=1" Set objEmailMsg = Nothing If Err <> 0 Then Response.Write "Error encountered: " & Err.Description end if end if 'if request.form("formsubmit")="1" and (request.form("email")="" or request.form("ucode")="") then result = "Error in form, Please fill out correctly." %> Driving School Software for Driving Instructors and Driving Schools, Track Students, Generate Logbook. Free Trial

"Managing my driving school is much

  easier with this software tool. I look forward to future

  updates" - James,Driving Instructor

Driving School Pro

Thank you for choosing to purchase "Driving School Pro".

How to get your unique code

If your have not already done so, you need to download, install and run the application and click the "Register" button at the top right of the screen. Then click the "Get Code" button to generate your unique code for that computer. This is the code you will use below to generate your application Key code.

Click here to download the latest version (if required)

What to do with the unique code

You should enter the code below and click "Generate Key" to get the activation key for your copy of the program.

Product
" maxlength="30" /> (code is populated if page is opened from the application main screen)
Email  
   
  

<% if goodresult = 2 then %> <% response.Write("Your Activation Key will be forwarded on to you once payment is verified." & vbcrlf & result) %>

EURO €69

(If not already paid)
USD $85
(If not already paid)

<% else %> <% if goodresult=1 then response.Write("Thank you. Your payment was received. Your Activation Key has been sent to the email address you provided." & vbcrlf ) %> <% end if %>

What to do with the Key

Once you receive the key, open the application. Click the "Register" or "Update" button on the main screen and type (or paste) the code into the "Activation Key" field. Click the Save button and Quit the application.

Now close and re-open the application and the message below the Register button should show you have have a valid copy of the application.

Is the fee just a once off?

Yes the fee is only a once off fee, however, new updates outside of your 6 month purchase period will incur a small upgrade cost. No more than 10 or 15 euro. Updates to fix errors or any bugs are free.

Problems?

Contact us on the support email here

 


You think that you are getting a decent-quality product for a cheap replica watches sale, only to find out later that you have been ripped off by the rolex replica uk. You should certainly be able to identify good-quality replica watches for men in today’s market. There are many well-renowned brand names that rolex replica all over the globe but you should be able to identify the best models. Lack of knowledge about the products is what results in premature buying of rolex replica sale. Today you are living in a world where there are tons of men’s watches being made every single day. Similarly, there are also bad ones being made on replica watches uk as well. It is all up to the people to decide what they would like to wear the most and what they find more comfortable to use.
<% if request.form("email")<>"" then rs1.Close() Set rs1 = Nothing end if %>