Run ASP script as a scheduled job?

<%
Dim Conn, Rs2, rs, pager

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open xDb_Conn_Str

set pager = Conn.Execute ("SELECT count(*) AS rc3 FROM WEBASGN_FULL GROUP BY CFSNUM HAVING count(*) > 5")

' Set up Record Set
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
nTotalRecs1 = rs.RecordCount
If nDisplayRecs <= 0 Then ' Display All Records
	nDisplayRecs = nTotalRecs1
End If
nStartRec = 1
SetUpStartRec() ' Set Up Start Record Position

if not(pager.BOF and pager.EOF) then


Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "xxxxx"
Flds.Item(schema & "sendpassword") =  "xxxxx"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "xxxxx"
.From = "xxxxx"
.Subject = "PGR - Calls have reached a critical threshold"
.HTMLBody = "Check BB for details<br><br>"
.Sender = "xxxxx"
.Organization = "xxxxx"
.ReplyTo = "xxxxx"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

Response.Redirect("WEBASGN_FULLlist_threshhold.asp")

%>

<% End If %>