Posted By

jlvallelonga on 01/29/09

Tagged

format

Versions (?)

Last Edited at 01/29/09 03:06pm

Statistics

Viewed 599 times

Favorited by 2 user(s)

Related snippets

Format Web Address

/ Published in: ASP

this function formats a web address for use in a link

Highlighted TextExpand

'This function returns a formatted version of the given web address
function formatWebAddress(byval webAddress)
	webAddress = Replace(webAddress, " ", "")'remove all spaces
	if webAddress <> "" then
		newWebAddress = "*" & webAddress
		if inStr(newWebAddress, "http://") = 0 then 'if http:// is not in the web address
			firstDotPos = inStr(newWebAddress, ".")
			if firstDotPos <> 0 then 'there is at least one dot
				secondDotPos = inStr(firstDotPos + 1, newWebAddress, ".")
				if secondDotPos <> 0 then 'there are at least two dots
					thirdDotPos = 0
					thirdDotPos = inStr(secondDotPos + 1, newWebAddress, ".")
					if thirdDotPos <> 0 then 'if there are more than two dots then it is treated as invalid
						webaddress = ""
					else 'only two dots meaning it's something like www.example.com
						webAddress = "http://" & webAddress & "/"
					end if
				else 'only one dot meaning it's something like example.com
					webAddress = "http://www." & webAddress & "/"
				end if
			else 'if there are no dots then it's not an address
				webAddress = ""
			end if
		else
			if inStrRev(newWebAddress, "/") <> len(newWebAddress) then
				webAddress = webAddress & "/"
			end if
		end if
	end if
	formatWebAddress = webAddress
end function

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.