Function GetSpecialInfo(SpecialID,FieldName) set GetSpecialInfoRs=server.CreateObject("adodb.recordset") GetSpecialInfoSql="select "&FieldName&" from PE_Special where SpecialID="&SpecialID GetSpecialInfoRs.open GetSpecialInfoSql,conn,3,1 GetSpecialInfo=GetSpecialInfoRs(FieldName) GetSpecialInfoRs.close set GetSpecialInfoRs=nothing End Function