executegobal-sub

Jag har gjort en liten sub för att kunna exekvera aspkod, jag undrar nu om det är; dumt, fel eller att det ev. finns ett bättre sätt att göra det samma på.

sub exec(str)
      Dim strTextL, strTextR, strASP
	if instr(str,"[%") and instr(str,"%]") then
		strTextL=left(str,instr(str,"[%")-1)
		strTextR=mid(str,instr(str,"%]")+2)
		strASP = mid(str,instr(str,"[%")+2)
		strASP = left(strASP,instr(strASP,"%]")-1)

   		Response.write strTextL
		ExecuteGlobal(strASP)
		Response.write strTextR
		
	else
		Response.write str
	end if
end sub