VBScript Functions optional parameters - DevShed Discussion Forums

★ wanayoo — archive 1999 http://www.devshed.com/Talk/Forums/Forum1/HTML/000197.html

Nouvelle recherche | Portail wanayoo

DevShed Menu

* DevShed Home

* Developer News

* DevShed Brain Dump

UBBFriend: Email This Page to Someone!

DevShed Discussion Forums

HTML / DHTML

VBScript Functions optional parameters

profile | register | preferences | faq | search

next newest topic | next oldest topic

Author

Topic: VBScript Functions optional parameters

Kerschi
Junior Member

posted March 14, 2000 07:46 AM

Can anyone help me how to write a function which have a argument which can be optional, that meens there should be a default value when not given.
But this does not work. I always get a errormessage from the .ASP page.

Foolowing Source:
<%
FUNCTION GetUserID(cOrgUserID)
GetUserID = ""

' Here i check for existance of the parameter
' But without success!!
IF cOrgUserID = NULL THEN
cOrgUserID = Request.ServerVariables("AUTH_USER")
cOrgUserID = "\MEGA"
END IF

pos = INSTR(cOrgUserID,"\")

IF pos > 0 THEN
USERID = UCASE(MID(cOrgUserID, pos+1))
ELSE
USERID = UCASE(cOrgUserID)
END IF

GetUserId = USERID

END FUNCTION
%>

All times are MST (US)	next newest topic \| next oldest topic
Administrative Options: Close Topic \| Archive/Move \| Delete Topic
	Hop to:

Contact Us | DevShed.com