<% Dim wPrm Dim wFile wPrm = Request.QueryString("prm") wFile = Request.QueryString("file") If Len(wPrm) = 0 Then Call SUB_Shop Else If Len(wFile) <> 0 Then Call SUB_ReadFile(wPrm, wFile) Else Call SUB_Chiku(wPrm) End If End If %>