<%
dim appPath, connectionString
appPath = server.MapPath ("\inc\")
'connectionString = "file Name=" & appPath & "\db.udl"

connectionString ="file Name=C:/Domains/asiageml/asiagemlab.com/wwwroot/inc/db.udl"

'response.write appPath

'response.end

Function delQuote (strIn)
	delQuote=replace (strIn, "'", "''")
End Function

Function uFD(dDate, sFormat, sDeli)
	Dim nDay, nMonth, nYear

	If isNull(dDate) or dDate="" Then
		uFD = ""
		Exit Function 
	End If 
	
	nMonth = DatePart("m", dDate)
	If len(nMonth)=1 Then
		nMonth = "0" & nMonth
	ElseIf Len(nMonth) > 2 Then
		nMonth = Left(nMonth, 3)
	End If
	
	nDay =  DatePart("d", dDate)
	If len(nDay)=1 Then
		nDay = "0" & nDay
	End If

	nYear = DatePart("yyyy", dDate)

	Select Case sFormat
		Case "YMD"
			uFD = nYear & sDeli & nMonth & sDeli & nDay 
		
		Case "DMY"
			uFD = nDay & sDeli & nMonth & sDeli & nYear  
			
		Case "MDY"
			uFD = nMonth & sDeli & nDay & sDeli &  nYear

	End Select
End Function

Function getSelected(inVal, inVal2)
	If Not isnull(inVal2) Then
		If CStr(inVal) = CStr(inVal2) Then
			getSelected = "selected"
		Else
			getSelected = ""
		End If
	End If
End Function

Function getChecked(inVal, inVal2)
	If Not isnull(inVal2) Then
		If CStr(inVal) = CStr(inVal2) Then
			getChecked = "checked"
		Else
			getChecked = ""
		End If
	End If
End Function

Function Str2TitleCase(sValue)
	Dim iPos, sTemp, iSpace

	iPos = 1
	Do While InStr(iPos, sValue, " ", 1) <> 0
		iSpace = InStr(iPos, sValue, " ", 1)
		sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
		sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
			iSpace - iPos))
		iPos = iSpace + 1
	Loop

	sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
	sTemp = sTemp & LCase(Mid(sValue, iPos + 1))

	Str2TitleCase = sTemp
End Function
%>