simple message>Hi not working

[pinkpanther]

Can you please see why the Message>tech errors out
It says compilation error

VBSTART
set ShipDB = CreateObject("ADODB.Connection")
ShipDB.Open "maketickets"
SQLString = "select * from FLINLAND"
set rsPickList = ShipDB.Execute(SQLString)
rsPickList.MoveFirst
Function GetNextRecord
If Not rsPickList.EOF then
tech = rsPickList.Fields("Technician")
Message>tech
else
GetNextRecord = 0
end if
End Function
ShipDB.Close
VBEND

[support]

You're confusing VBScript code with native Macro Scheduler code. Replace Message>tech line with:

MsgBox tech

VBSTART
set ShipDB = CreateObject("ADODB.Connection")
ShipDB.Open "maketickets"
SQLString = "select * from FLINLAND"
set rsPickList = ShipDB.Execute(SQLString)
rsPickList.MoveFirst

Function GetNextRecord
If Not rsPickList.EOF then
tech = rsPickList.Fields("Technician")
MsgBox tech
else
GetNextRecord = 0
end if
End Function

ShipDB.Close
VBEND

[pinkpanther]