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