Evagoras Charalambous evagoras

Software Developer

evagoras / recaptcha.spec.ts

Last active January 5, 2025 17:30

How to test reCaptcha forms in Playwright using TypeScript

	import { expect, test } from '@playwright/test'
	import { RecaptchaSection } from '../page-sections/recaptchaSection'

	test('displays no errors when everything is correctly completed and form is submitted', async ({ page }, testInfo) => {
	const recaptchaInstance = new RecaptchaSection(page, testInfo)
	// go to the form page
	await page.goto('/contact-us')
	// fill out any form fields and click the submit button
	await page.locator('#btnSubmit').click()
	// this solves the reCAPTCHA if shown

evagoras / before-2021

Created September 28, 2023 16:12

Clarifying the use of the DateFormat ‘D’ mask for ACF2021+

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

evagoras / .wsh

Last active September 28, 2023 15:33

The Windows 2000 Indexing Service

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

evagoras / class

Created September 28, 2023 15:25

A Generic GetRows VBScript 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

evagoras / checkbox

Last active September 28, 2023 15:05

Web-based Content Editor using IFrame

evagoras / new-mail

Created September 28, 2023 14:22

Formatting complex ASP output using HTML templates

	...
	Set objEmail = Server.CreateObject("CDONTS.NewMail")
	objEmail.BodyFormat = 0 'CdoBodyFormatHTML objEmail.MailFormat = 0 'CdoMailFormatMime
	objEmail.From = strEmail
	objEmail.To = "[email protected]"
	objEmail.Subject = strSubject
	objEmail.Body = ReadFile("template.htm")
	objEmail.Send
	Set objEmail = Nothing

evagoras / add-output

Last active September 28, 2023 14:13

A Generic GetRows VBScript Class – Part II: Adding Update and AddNew functions

	<%
	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"

evagoras / asp-multipleparamquery

Created September 28, 2023 14:06

Calling MS Access Parameterized Queries from ASP

	...
	strQuery = "faq_qry_sub_categories '" & numCategoryID & "', '" & secondparam & "'"
	...

evagoras / download.asp

Created September 28, 2023 14:03

Downloading any file using ASP, FSO and the ADODB Stream object

	<%@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