<% set CLASS_cLink = new CLink set CLASS_cCategory = new CCategory set CLASS_cEmail = new CEmail set CLASS_cEmailtemplate = new CEmailtemplate CLASS_cLink.FillFromForm("CLink_fld") %> <% PARAM.ErrorHTML = CLASS_cLink.Validate(CLASS_cLink.ResolveType(CLASS_cLink.IDType,"reverse")) If PARAM.ErrorHTML = "True" then CLASS_cLink.StoreData 'Save Payment Data - as much as you can as this is a manual payment to be amended later CLASS_cPayment.idowner = CLASS_cLink.ID CLASS_cPayment.ItemName = CLASS_cPayment.s_SDPaymentItemsDescription.item(CLASS_clink.paymentitemname) CLASS_cPayment.PaymentAmount = CLASS_cPayment.s_SDPaymentItems.item(CLASS_clink.paymentitemname) 'CLASS_cPayment.IDType - specified above, on previous page, fillfromform CLASS_cPayment.Invoice = CLASS_cPayment.GenerateInvoiceNumber("") CLASS_cPayment.PaymentCurrency = CONFIG.Setting("FeeCurrency") CLASS_cPayment.PayerEmail = CLASS_cLink.ContactEmail CLASS_cPayment.PaymentStatus = "Pending" CLASS_cPayment.TransactionDateTime = PARAM.SafeDateTime(now(),"0") If CONFIG.Setting("PAYMENT_Mode") = "Recurring" Then CLASS_cPayment.RecurringTimePeriod = CONFIG.Setting("PAYMENT_Recurring_TimePeriod") CLASS_cPayment.RecurringTimePeriodUnit = CONFIG.Setting("PAYMENT_Recurring_TimePeriodUnit") End If CLASS_cPayment.StoreData 'Email 'Load category based on the parent ID, to get category information for emails if CLASS_cLink.idparent > 0 then CLASS_cCategory.LoadFromID(CLASS_cLink.idparent) 'Get complete hierarchy of category location, to place in emails. CLASS_cCategory.categorylocation = CLASS_cCategory.getHTMLLocation(CLASS_cLink.idparent) if CLASS_cCategory.categorylocation = "" then CLASS_cCategory.categorylocation = "Top" CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent") CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName") CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat") 'Administrator Email if CONFIG.Setting("NotifyAdministrator") = True then 'Formulate Email CLASS_cEmail.EmailFrom=CLASS_cLink.ContactEmail CLASS_cEmail.EmailTo=CONFIG.Setting("AdministratorsEmail") CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Needs Approval") CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & ": "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content %> <% CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & CLASS_cEmailTemplate.footer 'Send an email to administrator CLASS_cEmail.sendEmail End If 'User Email CLASS_cEmail.EmailFrom=CONFIG.Setting("AdministratorsEmail") CLASS_cEmail.EmailTo=CLASS_cLink.ContactEmail CLASS_cEmailTemplate.LoadFromTemplateName("New Link Added And Needs Approval User") CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle") & ": "&CLASS_cEmailTemplate.subject&" " & CLASS_cLink.linkname CLASS_cEmail.EmailBody = CLASS_cEmailTemplate.header&CLASS_cEmailTemplate.content %> <% CLASS_cEmail.EmailBody=CLASS_cEmail.EmailBody & CLASS_cEmailTemplate.footer 'Send a copy to the person who submitted the link CLASS_cEmail.sendEmail 'Send order status/summary to user CLASS_cEmail.EmailSubject=CONFIG.Setting("META_SiteTitle")&": "&CLASS_cLink.linkname&" Order Summary" CLASS_cEmail.EmailBody=CLASS_cPayment.StatusMessage(CLASS_cPayment.IDType,CONFIG.Setting("PAYMENT_Mode")) CLASS_cEmail.sendEmail %>

Thank You

Thank you for submitting your <%=CONFIG.Setting("SiteWord")%> to <%=CONFIG.Setting("META_SiteTitle")%>

Your <%=CONFIG.Setting("SiteWord")%> will be added once we have received your payment

How to send your Payment

Address

<%=replace(CLASS_cCast.cast(CONFIG.Setting("PAYMENT_Address"),"str","screen"),",","
")%>

<% Else 'if its a post and a pay and also our link already exists, then this must be a back button 'so take users back to link submit screen, dont allow duplicates to be processed response.Redirect(CONFIG.Setting("URL_SiteRoot")&"/link_submit.asp") End If %> <% set CLASS_cLink = nothing set CLASS_cCategory = nothing set CLASS_cEmail = nothing set CLASS_cEmailtemplate = nothing %>