Writing out a Function??

[snowboardr]

How can I get this to write out the link right now it doesnt output any link.

Function WriteLink(strPlan, optionORorder)
		
Select Case strPlan
		
Case 0
If optionORorder = 0 then
strPlan = "?view=Hosting+Packages&option=w.basic" 			'pkg details
Else
strPlan = "?view=Hosting+Packages&order=w.basic"
End If

Case 1
...

plan = "0"

Response.write &quot;<td height=&quot;&quot;13&quot;&quot;><font face=&quot;&quot;Verdana, Arial, Helvetica, sans-serif&quot;&quot; size=&quot; & Chr(34) & &quot;1&quot; &  Chr(34) &&quot; color=&quot; & Chr(34) & FontColor & Chr(34) & &quot;><a href=&quot; & Chr(34) & WriteLink(plan, 1) & Chr(34) & &quot;Title=&quot; & Chr(34) & &quot;more info..&quot; & Chr(34) & &quot;>&quot; & &quot;more..&quot; & &quot;</a></font></td>&quot;

 

[JuanitaC]

At the end of your function, set your function name equal to the value you want to pass back:

Function WriteLink(strPlan, optionORorder)

Select Case strPlan

Case 0
If optionORorder = 0 then
strPlan = "?view=Hosting+Packages&option=w.basic" 'pkg details
Else
strPlan = "?view=Hosting+Packages&order=w.basic"
End If

Case 1
...

End Select

WriteLink = strPlan
End Function

 

[trollacious]

Where's the end of the Select Case statement, and the end of the Function?

 

[snowboardr]

Thanks Juan!

Troll :


Case 1
...

the dots represent the code goes on...