Evagoras Charalambous evagoras

## before-2021
<cfscript>
writeOutput( dateFormat( createDate( "2023", "01", "01" ), "YYYY-MM-DD" ) );
</cfscript>

## .wsh
[ScriptFile]
Path=C:\ServerScripts\SendEmailOnServiceFail.vbs
[Options]
Timeout=20
DisplayLogo=1

## class
Class Database

   Dim i_dbConnection
   Dim i_objConn
   Dim i_objRS

   Private Sub Class_Initialize()
      Const MAX_TRIES = 10
      Dim intTries
      On Error Resume Next

## checkbox
<input type="checkbox" onclick="setMode(this.checked)">

## new-mail
...
Set objEmail = Server.CreateObject("CDONTS.NewMail")
   objEmail.BodyFormat = 0 'CdoBodyFormatHTML objEmail.MailFormat = 0 'CdoMailFormatMime
   objEmail.From = strEmail
   objEmail.To = "someone@somewhere.com"
   objEmail.Subject = strSubject
   objEmail.Body = ReadFile("template.htm")
   objEmail.Send
Set objEmail = Nothing

## add-output
<%
Dim arrFields
Dim arrValues
Dim clsDatabase
Dim numNewID
Dim numCategoryID,strQuestion,strAnswer,numPosterID
numCategoryID = "5"
strQuestion = "What is this?"
strAnswer = "This is the answer."
numPosterID = "10"

## asp-multipleparamquery
...
strQuery = "faq_qry_sub_categories '" & numCategoryID & "', '" & secondparam & "'"
...

## download.asp
<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
On Error Resume Next
Dim strPath
strPath = CStr(Request.QueryString("file"))
'-- do some basic error checking for the QueryString
If strPath = "" Then
   Response.Clear

## call-download
<a href="download.aspx?file=/images/logo.gif">Download the logo image</a>

## create-variables
<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
'-- set a 600 second timeout value in case it hangs
Server.ScriptTimeOut = 600
On Error Resume Next

Dim strRootFolder
Dim intLenRootFolder
	<cfscript>
	writeOutput( dateFormat( createDate( "2023", "01", "01" ), "YYYY-MM-DD" ) );
	</cfscript>
	[ScriptFile]
	Path=C:\ServerScripts\SendEmailOnServiceFail.vbs
	[Options]
	Timeout=20
	DisplayLogo=1
	Class Database

	Dim i_dbConnection
	Dim i_objConn
	Dim i_objRS

	Private Sub Class_Initialize()
	Const MAX_TRIES = 10
	Dim intTries
	On Error Resume Next
	...
	Set objEmail = Server.CreateObject("CDONTS.NewMail")
	objEmail.BodyFormat = 0 'CdoBodyFormatHTML objEmail.MailFormat = 0 'CdoMailFormatMime
	objEmail.From = strEmail
	objEmail.To = "someone@somewhere.com"
	objEmail.Subject = strSubject
	objEmail.Body = ReadFile("template.htm")
	objEmail.Send
	Set objEmail = Nothing
	<%
	Dim arrFields
	Dim arrValues
	Dim clsDatabase
	Dim numNewID
	Dim numCategoryID,strQuestion,strAnswer,numPosterID
	numCategoryID = "5"
	strQuestion = "What is this?"
	strAnswer = "This is the answer."
	numPosterID = "10"
	...
	strQuery = "faq_qry_sub_categories '" & numCategoryID & "', '" & secondparam & "'"
	...
	<%@Language="VBScript"%>
	<%Option Explicit%>
	<%Response.Buffer = True%>
	<%
	On Error Resume Next
	Dim strPath
	strPath = CStr(Request.QueryString("file"))
	'-- do some basic error checking for the QueryString
	If strPath = "" Then
	Response.Clear