<%
function check(vaRval,varCkval)
check=false
if vaRval <> "" then
arrVals=split(replace(vaRval," ",""),",")
for i = 0 to ubound(arrVals)
if cstr(arrVals(i)) = cstr(varCkval) then
check=true
exit for
end if
next
end if
end function
sub GetGroup(vaRval)
response.Write ""
end sub
Sub GetTypes()
Set rsTypeCode = Server.CreateObject("ADODB.Recordset")
Set rsTypeCode = conn.Execute("SELECT * FROM TypeCode ORDER BY TypeCode")
Do While Not rsTypeCode.EOF
Response.Write("")
rsTypeCode.MoveNext
Loop
End Sub
%>
