<% function tabit(intIn) 'generates a string of intIn tabs dim t, strOut for t=0 to intIn strOut=strOut & vbTab next tabit=strOut end function function trimtoSize(strIn, intSize) dim strOut strOut=strIn if len(strOut)>intSize then strOut=left(strOut, intSize) & "..." end if trimtoSize=strOut end function function GenericPulldown(strSQL, strIDField, strLabelField, strQueryVariableName, intThis, strASP, strFormName) dim strOut, rst, strSel, intLocationID set rst=LaunchProdRst(strSQL) if strASP<>"" and strFormName<>"" then strOut=vbNewLine & "" & vbNewLine end if strOut=strOut & vbTab & "