如何在ASP中实现变量参数调用

我写了一个公用函数，想把“InfoSubGroup”作为一个变量。在ASP中如何把值传给InfoSubGroup呢？
因为我大类招商项目又分又好多子类，免得写好多过程，直接调用就可以了。
Public Sub ShowZsxm()
   Dim Sql, CharN
   Dim RsZsxm, TmpStr, TipStr
   CharN = 20
   Sql = ""
   Sql = Sql & " SELECT Top 5 * FROM Wyxx"
   Sql = Sql & " WHERE (ValidIf <> 0) AND (InfoGroup='招商项目') AND (InfoSubGroup = '" & InfoSubGroup & "')"
   Sql = Sql & " ORDER BY UpTime DESC, ID"
   Response.write sql 
   response.end
   Set RsZsxm = Server.CreateObject("ADODB.Recordset")
   RsZsxm.Open Sql, DBDat, adOpenKeyset, adLockReadOnly
   Do While Not RsZsxm.EOF
      With Response
         .Write "<p align='left'>&nbsp;·&nbsp;"
         .Write p0ShowInfoAHref(RsZsxm)
         TipStr = RsZsxm.Fields("Title") & "": TmpStr = p0HtmlDLeft(TipStr, CharN)
         If TipStr <> TmpStr Then
            .Write "<span title='" & p0HtmlEncode(TipStr) & "'>" & p0HtmlEncode(TmpStr) & "</span>"
         Else
            .Write p0HtmlEncode(TmpStr)
         End If
         .Write "</a>"
         If Not IsNull(RsZsxm.Fields("UpTime").Value) Then
             .Write "<span class='t'><font color='#999999'>(" & p0FormatDate(RsZsxm.Fields("UpTime").Value) & ")</font></span>"
          End If
          .Write "</p>" & vbCrLf
      End With
      RsZsxm.MoveNext
   Loop
   RsZsxm.Close: Set RsZsxm = Nothing
End Sub