|
|
|
Técnicas de
Campo
Sinais de Pista
<%
' UltraApps Portal - FREE edition, Version 1.5
' (C) Copyright 2001 by UltraApps
' This program may be used and modified for your own use
' so long as this copyright notice and this comment remain intact.
' You are not permitted to sell or distribute modified version of this software
' View files/license.html for full Legal Information
'
' Filename:AdConfirmation.asp
' Generated with CodeCharge 2.0.1
'-------------------------------
' AdConfirmation CustomIncludes begin
%>
<%
' AdConfirmation CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "AdConfirmation.asp"
sTemplateFileName = "tecnicas_torres.html"
'===============================
'===============================
' AdConfirmation PageSecurity begin
' AdConfirmation PageSecurity end
'===============================
'===============================
' AdConfirmation Open Event begin
' AdConfirmation Open Event end
'===============================
'===============================
' AdConfirmation OpenAnyPage Event begin
' AdConfirmation OpenAnyPage Event end
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' AdConfirmation Show begin
'===============================
' Display page
'-------------------------------
' Load HTML template for this page
'-------------------------------
LoadTemplate sAppPath & sTemplateFileName, "main"
'-------------------------------
' Load HTML template of Header and Footer
'-------------------------------
LoadTemplate sHeaderFileName, "Header"
LoadTemplate sFooterFileName, "Footer"
'-------------------------------
SetVar "FileName", sFileName
'-------------------------------
' Step through each form
'-------------------------------
Header_Show
Footer_Show
Confirm_Show
'-------------------------------
' Process page templates
'-------------------------------
Parse "Header", False
Parse "Footer", False
Parse "main", False
'-------------------------------
' Output the page to the browser
'-------------------------------
Response.write PrintVar("main")
' AdConfirmation Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' AdConfirmation Close Event begin
' AdConfirmation Close Event end
cn.Close
Set cn = Nothing
UnloadTemplate
'===============================
'===============================
' Display Menu Form
'-------------------------------
Sub Confirm_Show()
Dim sFormTitle: sFormTitle = ""
'-------------------------------
' Confirm Open Event begin
' Confirm Open Event end
'-------------------------------
'-------------------------------
' Set URLs
'-------------------------------
fldField1 = "Classifieds.asp"
'-------------------------------
' Confirm Show begin
'-------------------------------
SetVar "FormTitle", sFormTitle
'-------------------------------
' Confirm BeforeShow Event begin
' Confirm BeforeShow Event end
'-------------------------------
'-------------------------------
' Show fields
'-------------------------------
SetVar "Field1", fldField1
Parse "FormConfirm", False
'-------------------------------
' Confirm Show end
'-------------------------------
End Sub
'===============================
%>
|
Sinais de Pistas ajudam
a deixar mensagens e avisos para outras pessoas que forem passar pelo
local que você passou
|
|