SQL VarChar: Should i change anything?

I'm just enquiring, i have a page full of functions in which would be alot of time and money to migrate to asp.net

I'm just wondering would i need to change anything about the following source code?

##############Code Start############

function

k_f_getUserConfiguration(byVal strKey)

dim aryAdminUserConfiguration

aryAdminUserConfiguration = session(

"aryAdminUserConfiguration")

select

case strKeycase"kernel_userType_intCode"

k_f_getUserConfiguration = aryAdminUserConfiguration(0)

case"kernel_user_intKernel_user_PK"

k_f_getUserConfiguration = aryAdminUserConfiguration(1)

caseelse

k_f_getAdminUserConfiguration =

null

end select

end

function

k_f_getPageConfiguration(byVal strKey)

select

case strKeycase"intKernel_page_PK"

k_f_getPageConfiguration = k_v_aryThisPageConfiguration(0)

case"kernel_page_nvcharFileName"

k_f_getPageConfiguration = k_v_aryThisPageConfiguration(1)

case"intKernel_menuItem_PK"

k_f_getPageConfiguration = k_v_aryThisPageConfiguration(2)

case"intKernel_menuItem_PK_parent"

k_f_getPageConfiguration = k_v_aryThisPageConfiguration(3)

caseelse

k_f_getPageConfiguration =

null

end select

end

function

'retrieves values from the request

function

k_f_getRequest(byVal strVariableName)if lCase(request.serverVariables("request_method")) ="post" then

k_f_getRequest = trim(request.form(strVariableName))

else

k_f_getRequest = trim(request.queryString(strVariableName))

end

function

k_f_isEmail(byVal strValue)

dim regEx

set regEx =new regExp

regEx.ignoreCase =

true

regEx.pattern =

"^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]@dotnet.itags.org.[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

k_f_isEmail = regEx.test(strValue)

set regEx = nothing

end

function

'evaluates whether the input is an integer or not

function

k_f_isInteger(byVal value)

dim intRoundedNumber

if isNumeric(value) then

intRoundedNumber = cLng(value)

if intRoundedNumber = cDbl(value) then

k_f_isInteger =

trueelse

k_f_isInteger =

false

end

ifelse

k_f_isInteger =

false

end

function

'saves a client message in an array

sub k_f_saveClientMessage(byVal intMessageType, byVal strMessage)

session(

"aryClientMessage") = array(intMessageType, strMessage)

end sub

'dumps any existing client message

sub k_f_dumpClientMessage(byVal intMessageType, byVal strMessage)

session(

"aryClientMessage") =null

end sub

'renders a message out to the client

sub k_f_renderClientMessage()

dim intMessageType, strMessage

dim aryClientMessage

aryClientMessage = session(

"aryClientMessage")if isArray(aryClientMessage) then

intMessageType = aryClientMessage(0)

strMessage = aryClientMessage(1)

select

case intMessageTypecase k_v_intInformationMessage

response.write(

"<p class=""information"">" & strMessage &"</p>")case k_v_intErrorMessage

response.write(

"<p class=""error"">" & strMessage &"</p>")

end select

session(

"aryClientMessage") =nullelse

session(

"aryClientMessage") =null

end

end sub

sub k_f_renderHTMLOutput(byVal strText)

if not(isNull(strText)) then

response.write(server.htmlEncode(strText))

end

end sub

'sets the selected item in a check / select box

function

k_f_isSelected(byVal valueA, byVal valueB, byVal returnString)

dim strTempValueA, strTempValueB

if isNull(valueA) then

strTempValueA =

""else

strTempValueA = lCase(cStr(valueA))

end

ifif isNull(valueB) then

strTempValueB =

""else

strTempValueB = lCase(cStr(valueB))

end

ifif strTempValueA = strTempValueB then

k_f_isSelected = returnString

else

k_f_isSelected =

end

function

k_f_generatePassword()

dim intCharacterNumber, strPassword, i

dim intFirstNumberLocation, intSecondNumberLocation

randomize

intFirstNumberLocation =

int((k_v_intPasswordLength - 1 + 1) * rnd + 1)

randomize

intSecondNumberLocation =

int((k_v_intPasswordLength - 1 + 1) * rnd + 1)if (intSecondNumberLocation = intFirstNumberLocation) and (intFirstNumberLocation = k_v_intPasswordLength) then

intSecondNumberLocation = intSecondNumberLocation - 1

elseif (intSecondNumberLocation = intFirstNumberLocation) then

intSecondNumberLocation = intSecondNumberLocation + 1

end

iffor i = 1 to k_v_intPasswordLength

randomize

if (i = intFirstNumberLocation) or (i = intSecondNumberLocation) then

strPassword = strPassword & cstr(

int((9 - 0 + 1) * rnd + 0))else

intCharacterNumber =

int((122 - 97 + 1) * rnd + 97)

'l as a strPassword character is causing confusion - prevent l from being accepted

if (intCharacterNumber = 108) then

intCharacterNumber = 109

end

strPassword = strPassword & chr(intCharacterNumber)

end

k_f_generatePassword = strPassword

end

function

sub k_f_renderDoubleURLOutput(byVal strText)

if not(isNull(strText)) then

response.write(server.urlEncode(server.urlEncode(strText)))

end

end sub

function

k_f_renderTextForSQL(byVal strText)if not(isNull(strText)) then

k_f_renderTextForSQL = replace(strText,

"'","''")else

k_f_renderTextForSQL =

end

function

'creates a recordset sorting string

function

k_f_createSortString(byVal strPrimarySortColumn, byVal strPrimarySortOrder, byVal strDefaultSort, byVal rst)

dim objField, blnColumnExists, strSortOrder

if len(strPrimarySortColumn) > 0 and len(strPrimarySortOrder) > 0 then

blnColumnExists =

falsefor each objFieldin rst.fieldsif lCase(strPrimarySortColumn) = lCase(objField.name) then

blnColumnExists =

true

exit

for

end

if blnColumnExists thenif (len(strPrimarySortOrder) = 0) or ((lCase(strPrimarySortOrder) <>"asc") and (lCase(strPrimarySortOrder) <>"desc")) then

k_f_createSortString = strDefaultSort

elseif len(strDefaultSort) > 0 then

strSortOrder = strPrimarySortColumn &

" " & strPrimarySortOrder &", " & strDefaultSortelse

strSortOrder = strPrimarySortColumn &

" " & strPrimarySortOrder

end

k_f_createSortString = strSortOrder

end

ifelse

k_f_createSortString = strDefaultSort

end

ifelse

k_f_createSortString = strDefaultSort

end

function

'returns the primary sort parameters of a given sort string

function

k_f_getPrimarySort(byVal strSort)

dim strPrimaryColumn, strPrimaryOrder

dim strPrimarySort

if inStr(strSort,",") > 0 then

strPrimarySort = trim(left(strSort, (inStr(strSort,

",")-1)))if inStr(strPrimarySort," ") > 0 then

strPrimaryColumn = trim(left(strPrimarySort, inStr(strPrimarySort,

" ")))

strPrimaryOrder = right(strPrimarySort, (len(strPrimarySort) - inStr(strPrimarySort,

" ")))else

strPrimaryColumn = trim(strPrimarySort)

strPrimaryOrder =

"asc"

end

ifelse

strPrimarySort = trim(strSort)

if inStr(strPrimarySort," ") > 0 then

strPrimaryColumn = trim(left(strPrimarySort, inStr(strPrimarySort,

" ")))

strPrimaryOrder = right(strPrimarySort, (len(strPrimarySort) - inStr(strPrimarySort,

" ")))else

strPrimaryColumn = trim(strPrimarySort)

strPrimaryOrder =

"asc"

end

k_f_getPrimarySort = array(strPrimaryColumn, strPrimaryOrder)

end

function

'returns a valid scroll to page

function

k_f_createValidScrollToPage(byVal intScrollToPage, byVal rst)if len(intScrollToPage) > 0 thenif isNumeric(intScrollToPage) then

intScrollToPage = cInt(intScrollToPage)

if intScrollToPage < 1 then

k_f_createValidScrollToPage = 1

elseif intScrollToPage> rst.pageCount then

k_f_createValidScrollToPage = rst.pageCount

else

k_f_createValidScrollToPage = intScrollToPage

end

ifelse

k_f_createValidScrollToPage = 1

end

ifelse

k_f_createValidScrollToPage = 1

end

function

'renders the header of a standard paging recordset

sub k_f_renderPagingRecordsetHeader(byVal rst)

if not(rst.bof and rst.eof) thenif rst.recordCount = 1 then

response.write(rst.recordCount &

" record found.")else

response.write(rst.recordCount &

" records found.")

end

ifif rst.pageCount > 1 then

response.write(

" Showing page " & rst.absolutePage &" of " & rst.pageCount &".")

end

end sub

'renders the footer of a standard paging recordset

sub k_f_renderPagingRecordsetFooter(byVal rst, byVal strPagingURL, byVal strThisPrimarySortColumn, byVal strThisPrimarySortOrder)

dim strRecordsetFooter, i

dim intPagesToDisplay, intCurrentPage

intPagesToDisplay = 4

'set the current page

if rst.absolutePosition = adPosEOF then

intCurrentPage = rst.pageCount

else

intCurrentPage = rst.absolutePage - 1

end

ifif not(rst.bof and rst.eof) thenif inStr(strPagingURL,"?") > 0 then

strPagingURL = strPagingURL &

"&strPrimarySortColumn=" & strThisPrimarySortColumn &"&strPrimarySortOrder=" & strThisPrimarySortOrderelse

strPagingURL = strPagingURL &

"?strPrimarySortColumn=" & strThisPrimarySortColumn &"&strPrimarySortOrder=" & strThisPrimarySortOrder

end

ifif rst.pageCount > 1 then