<% Const BOLD = True Const STYLE = "color:black;font-size:9pt;font-family:" Dim quote quote = chr(34) '***************generic wizard global vars*************** Dim sSystemFontSize, iThisPage, iNextPage, iPrevPage sSystemFontSize = "SMALL" iThisPage = CInt(Request("iThisPage")) if iThisPage = 0 then iThisPage = 1 end if iNextPage = iThisPage + 1 iPrevPage = iThisPage - 1 '***************generic wizard functions*************** Function sStaticText(sDesc,BOLD) Dim sOutputStr sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) if BOLD then sOutputStr = sOutputStr & "" end if sOutputStr = sOutputStr & sDesc sOutputStr = sOutputStr & "

" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sStaticText = sOutputStr End Function Function sTextBox(sName, sDesc, iSize, onBlur) Dim sOutputStr sOutputStr = sTextBoxwChange(sName, sDesc, iSize, onBlur,"") sTextBox = sOutputStr End Function Function sTextBoxwChange(sName, sDesc, iSize, onBlur,onChange) Dim sOutputStr sOutputStr = sTextBoxwDefault(sName, sDesc, iSize, onBlur, onChange, "") sTextBoxwChange = sOutputStr End Function Function sTextBoxwDefault(sName, sDesc, iSize, onBlur, onChange, sDefault) Dim sOutputStr Dim sValue ' Don't let default overwrite persisted info sValue = Request(sName) if sValue = "" then sValue = sDefault end if sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & sDesc & "
" sOutputStr = sOutputStr & " "" then sOutputStr = sOutputStr & " onBlur=" & quote & onBlur & quote end if if onChange <> "" then sOutputStr = sOutputStr & " onChange=" & quote & onChange & quote end if if Session("hasStyles") then sOutputStr = sOutputStr & Session("DEFINPUTSTYLE") end if sOutputStr = sOutputStr & ">

" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sTextBoxwDefault = sOutputStr End Function Function sHidden(sName, sValue) Dim sOutputStr sOutputStr = "" sOutputStr = sOutputStr & "

" sOutputStr = sOutputStr & "" sHidden = sOutputStr End Function Function sCheckBox(sName, sDesc) Dim sOutputStr sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & " " & sDesc & "
" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sCheckBox = sOutputStr End Function Function sRadio(sName, sVal, sDesc, sDefault, onClick) Dim sOutputStr, lastval sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & " "" then sOutputStr = sOutputStr & " OnClick=" & quote & onClick & quote end if sOutputStr = sOutputStr & ">" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & sDesc & "
" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sRadio = sOutputStr End Function Function sSelect(sName, iSize, onChange, bMultiple) Dim sOutputStr sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & "" closeSelect = sOutputStr End Function Function sOption(sCaption,sValue, bIsSelected) Dim sOutputStr sOutputStr = sOutputStr & " "" then sOutputStr = sOutputStr & " VALUE=" & quote & sValue & quote end if if bIsSelected then sOutputStr = sOutputStr & " SELECTED" end if sOutputStr = sOutputStr & ">" & sCaption sOutputStr = sOutputStr & "" sOption = sOutputStr End Function Function sTextArea(sName, sDesc, sText, iRows, iCols, bEnabled) Dim sOutputStr sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & sDesc & "
" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" sTextArea = sOutputStr End Function Function sSpace(iNumRows) Dim sOutputStr sOutputStr = "" For i = 0 to iNumRows sOutputStr = "" sOutputStr = sOutputStr & sFont("","","",True) sOutputStr = sOutputStr & " " sOutputStr = sOutputStr & "" sOutputStr = sOutputStr & "" Next sSpace = sOutputStr End Function %>