<%
Function SendFieldVal(recordSet, varName, addnew, defaultValue)
	if addnew then
		if defaultValue = Null then
			SendFieldVal = ""
		else
			SendFieldVal = defaultValue
		end if
	else
		SendFieldVal = recordSet(varName)
	end if
End Function
'------------------------------------------------
function CheckTheBox(instring)

	if isnull(instring) then
		instring = false
	end if

	if CBool(instring) then
		CheckTheBox = "checked"
	end if

end function
'-----------------------------------------------
function MakeNull(instring)

	if instring = "" or instring = "Null" then
		MakeNull = Null
	else
		MakeNull = instring
	end if

end function
'------------------------------------------------
Function CheckBoxVal(instring)

  If instring = "on" or instring = "true"  or instring = true Then
    CheckBoxVal = 1
  Else
    CheckBoxVal = 0
  End If

End Function

sub checkError(SPError, returnCode)

	if len(SPError) > 1 then
		writeJSDebug(SPError)
	elseif returnCode > 0 then
		dim oConnRC, oCmdRC

		set oConnRC = Server.CreateObject("ADODB.Connection")
		oConnRC.Open strConn
		set oCmdRC = Server.CreateObject("ADODB.Command")

		oCmdRC.ActiveConnection = oConnRC
		oCmdRC.CommandText = "sp_Get_ReturnCode"
		oCmdRC.CommandType = adCmdStoredProc
		oCmdRC.Parameters.Append oCmdRC.CreateParameter("@ret", adInteger, adParamReturnValue)
		oCmdRC.Parameters.Append oCmdRC.CreateParameter("@pCode", adInteger, adParamInput, , returnCode)
		oCmdRC.Parameters.Append oCmdRC.CreateParameter("@pDescription", adVarChar, adParamOutput, 255)

		oCmdRC.Execute

		writeJSDebug("ERROR " & returnCode & ": " & oCmdRC("@pDescription"))
	end if
end sub
'----------------------
Sub BuildUploadRequest(RequestBin)
  dim PosBeg, PosEnd, boundary, boundaryPos, Pos, Name, PosFile, PosBound, fileName
	dim contentType, Value
	'Get the boundary
	on error resume next
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
	'Get all data inside the boundaries
	Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		'Members variable of objects are put in a dictionary object
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'Get an object name
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
		'Test if object is of file type
		If  PosFile<>0 AND (PosFile<PosBound) Then
			'Get Filename, content-type and content of file
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			'Add filename to dictionary object
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			'Add content-type to dictionary object
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			'Get content of object
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			'Get content of object
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		'Add content to dictionary object
	UploadControl.Add "Value" , Value
		'Add dictionary object to main dictionary
	UploadRequest.Add name, UploadControl
		'Loop to next object
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop

End Sub

'String to byte string conversion
Function getByteString(StringStr)
 dim i, char
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function

'Byte string to string conversion
Function getString(StringBin)
 dim intCount
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
 Next
End Function

sub writeSelectBox(table, IDfield, DesField, SetField, setValue, selectedValue, OrderField)

	dim oConnSelect, oCmdSelect, rsSelect, strSQL

	set oConnSelect = Server.CreateObject("ADODB.Connection")
	oConnSelect.Open strConn
	set oCmdSelect = Server.CreateObject("ADODB.Command")
	oCmdConfig.ActiveConnection = oConnSelect

	if setValue = "" then
		strSQL = "Select " & IDfield & "," & DesField & " from " & table & " order by " & orderField
	else
		strSQL = "Select " & IDfield &  "," & DesField & " from " & table & " where " & setField & "=" & setValue & " order by " & orderField
	end if

	oCmdConfig.CommandText = strSQL
	oCmdConfig.CommandType = adCmdText

	Set rsConfig = Server.CreateObject("ADODB.Recordset")

	rsConfig.Open oCmdConfig

	if SelectedValue <> "" then
		do while not rsConfig.EOF
			if trim(cstr(rsConfig("0"))) = trim(cstr(SelectedValue)) then
				response.write "<option selected value=""" & rsConfig(0) & """>" & rsConfig(1) & "</option>"
			else
				response.write "<option value=""" & rsConfig(0) & """>" & rsConfig(1) & "</option>"
	   end if
	   rsConfig.movenext
	  loop
	else
				do while not rsConfig.EOF
				response.write "<option value=""" & rsConfig(0) & """>" & rsConfig(1) & "</option>"
	  		rsConfig.movenext
	    	loop
	end if

	rsConfig.Close
	oConnSelect.Close
	set rsConfig = nothing
	set oConnSelect = nothing
	set oCmdConfig = nothing

end sub


Function RetCurDateTime()
    dim curDate
		Dim strYYYY
    Dim strMM
    Dim strDD
        curDate = date()
        strYYYY = CStr(DatePart("yyyy", curDate))

        strMM = CStr(DatePart("m", curDate))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        Select Case strMM

        Case "01"
        	strMM="Jan"
				Case "02"
        	strMM="Feb"
    		Case "03"
        	strMM="Mar"
				Case "04"
        	strMM="Apr"
        Case "05"
        	strMM="May"
        Case "06"
        	strMM="Jun"
        Case "07"
        	strMM="Jul"
        Case "08"
        	strMM="Aug"
        Case "09"
		     strMM="Sep"
				Case "10"
		     strMM="Oct"
				Case "11"
		     strMM="Nov"
				Case "12"
		     strMM="Dec"

        end select

        strDD = CStr(DatePart("d", curDate))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        RetCurDateTime = strMM & "/" & strDD & "/" & strYYYY & " " & time() & " EST"

End Function

Function FormatMediumDate(DateValue)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", DateValue))

        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        Select Case strMM

        Case "01"
        	strMM="Jan"
		Case "02"
        	strMM="Feb"
    	Case "03"
        	strMM="Mar"
		Case "04"
        	strMM="Apr"
        Case "05"
        	strMM="May"
        Case "06"
        	strMM="Jun"
        Case "07"
        	strMM="Jul"
        Case "08"
        	strMM="Aug"
        Case "09"
		     strMM="Sep"
		Case "10"
		     strMM="Oct"
		Case "11"
		     strMM="Nov"
		Case "12"
		     strMM="Dec"

        end select

        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatMediumDate = strMM & "/" & strDD & "/" & strYYYY

End Function

Function DoesUserHaveAccess(Page,GroupID)

Dim rs,sql,con
Page=replace(page,"/","")
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open strConn
sql="SELECT Permission_Page.GroupID,Page.Namez FROM Permission_Page,Page where Permission_Page.GroupID=" & GroupId & " and Page.Namez='" & Page & "' and Permission_Page.pageid=Page.pageid group by Permission_Page.GroupID,Page.Namez "

set rs= con.execute(sql)

if not rs.eof then
	DoesUserHaveAccess=True
else
	DoesUserHaveAccess=False
end if

On error resume next
rs.close
set rs=nothing
con.close
set con=nothing

End Function

Function UpdateChangeLog(ProjectId,UserID,Subject,Description)

Dim rs,sql,con
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open strConn
sql="INSERT into [ChangeLog] (ProjectId,UserId,Datez,Subject,Description) values (" & ProjectId & "," & userId & ",'" & date & "','" & subject & "','" & Description & "')"
set rs= con.execute(sql)

On error resume next

set rs=nothing
con.close
set con=nothing

End Function

Function GetSubgroupIds(GroupId)
Dim rs,sql,con,strGroups
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open strConn
sql="Select subgroupid from subgroup where groupid=" & groupid
set rs= con.execute(sql)

If not rs.eof then
strGroups=""
	While not rs.eof
		strGroups=strGroups & rs.fields("subgroupid") & ","
		rs.movenext
	wend
strGroups=left(strGroups,len(strgroups)-1)
Getsubgroupids=strGroups
else
	GetSubgroupIds=""
end if

On error resume next
rs.close
set rs=nothing
con.close
set con=nothing

End Function

function URequest(sName)
	if UploadRequest.Exists(sName) then
		URequest = UploadRequest(sName)("Value")
	end if
end function
%>