Enkel retur
=====================================================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% response.write "Hej, Världen, jag kommer från en ASP-sida" %>

Boards
=====================================================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% response.write "351936" %>

Resebyrå
=====================================================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
manad = request.querystring("manad")
select case manad
	case "jan"
		response.write "20"
	case "feb"
		response.write "30"
	case "mar"
		response.write "40"
	case "apr"
		response.write "20"
	case "maj"
		response.write "30"
	case "jun"
		response.write "40"
	case "jul"
		response.write "20"
	case "aug"
		response.write "30"
	case "sep"
		response.write "40"
	case "okt"
		response.write "20"
	case "nov"
		response.write "30"
	case "dec"
		response.write "40"	
	case else
		response.write "0"
	
end select
%>


Svenska namn
=====================================================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
namn = request.querystring("namn")
fil = laesFil("svenskaNamn.txt")

filarray = split(fil,vbnewline)
outputStr = ""
for each  key in filarray
	radArray =  split(key," ")
	if left(lCase(radArray(0)),len(namn)) = trim(lcase(namn)) then
		outputStr = outputStr & lCase(radArray(0)) & ", "
	end if
next
if len(outputStr) > 1 then
	outputStr = left(outputStr, len(outputStr)-2)
end if
response.write outputStr


' Läs företags textfil --------------------------------------
function laesFil(filnamn)
	dim filobjektet
	dim fil_txt
	openMode = 1
	teckentyp = 0   ' ASCII
	filnamn = Server.Mappath (filnamn)
	Set filobjektet = Server.CreateObject("Scripting.FileSystemObject")
	Set fil_txt = filobjektet.OpenTextFile(filnamn, openMode, True)
	'Sätt en session med aktuell börskurs
	do  while not fil_txt.AtEndOfStream
		ftg_text = ftg_text & fil_txt.readline() & vbnewline
	loop
	ftg_text = left(ftg_text, len(ftg_text)-1)
	fil_txt.Close
	set fil_txt=nothing
	set objFile = nothing
	laesFil = ftg_text
end function 

%>