J
|
Jane 8/17/2006 |
Hi, if IsBinaryField(rs.Fields("JulVar")) or Format("JulVar")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "JulVar", "") else strData = GetData(rs.Fields("JulVar"), "Number") if Format("JulVar")<>FORMAT_HTML then if rs("JulVar")<0 then Response.Write "<font color=red>" end if Response.Write ProcessLargeText(strData,"picfield=" & Server.URLEncode("JulVar") & "&where=" & Server.URLEncode(strImageWhere),"",MODE_LIST) if rs("JulVar")<0 then Response.Write "</font>" end if else Response.Write strData end if end if |