Sure! Here are some classic ASP (VBScript) examples demonstrating common tasks you might want to do in Classic ASP:

1. Hello World Example

<%Response.Write "Hello, World!"%>

2. Display Current Date and Time

<%Response.Write "Current date and time: " & Now()%>

3. Get Query String Parameter

URL: page.asp?name=John

<%Dim namename = Request.QueryString("name")If name <> "" Then    Response.Write "Hello, " & Server.HTMLEncode(name) & "!"Else    Response.Write "Hello, Guest!"End If%>

4. Simple Form Processing

form.asp

<form method="post" action="submit.asp">    Name: <input type="text" name="username" />    <input type="submit" value="Submit" /></form>

submit.asp

<%Dim userNameuserName = Request.Form("username")If userName <> "" Then    Response.Write "Welcome, " & Server.HTMLEncode(userName)Else    Response.Write "Please enter your name."End If%>

5. Reading from a Database (Using ADO)

<%Dim conn, rs, sqlSet conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=SQLOLEDB;Data Source=SERVERNAME;Initial Catalog=DBNAME;User ID=USER;Password=PASS;"sql = "SELECT TOP 10 * FROM Customers"Set rs = conn.Execute(sql)Do While Not rs.EOF    Response.Write rs("CustomerName") & "<br>"    rs.MoveNextLooprs.CloseSet rs = Nothingconn.CloseSet conn = Nothing%>

6. Set and Read Cookies

<%' Set cookieResponse.Cookies("User") = "Alice"Response.Cookies("User").Expires = DateAdd("d", 7, Now())' Read cookieIf Request.Cookies("User") <> "" Then    Response.Write "Welcome back, " & Server.HTMLEncode(Request.Cookies("User"))Else    Response.Write "Hello, new visitor!"End If%>

7. Redirect to Another Page

<%Response.Redirect "http://www.example.com"%>

8. Include Another ASP File (Content Linking)

<!--#include file="header.asp"--><p>This is the main content.</p><!--#include file="footer.asp"-->

9. Error Handling Example

<%On Error Resume NextDim x, y, zx = 10y = 0z = x / y  ' This will cause division by zero errorIf Err.Number <> 0 Then    Response.Write "Error: " & Err.Description    Err.ClearElse    Response.Write "Result: " & zEnd IfOn Error GoTo 0%>

10. Using Dictionary Object

<%Dim dict, keySet dict = Server.CreateObject("Scripting.Dictionary")dict.Add "Name", "John"dict.Add "Age", 30For Each key In dict.Keys    Response.Write key & ": " & dict(key) & "<br>"NextSet dict = Nothing%>

If you want a sample for any specific topic — database CRUD, file operations, sessions, email sending, or anything else — just ask!