Function SkinSelect(strType)  'Link - Textlinks, Drop - Dropdown list
 Response.Write("<div align=""center"">")
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(Server.MapPath("skin_files\"))
  intNumOfSkins = CInt((objFolder.Files.Count - 1) / 2)
  If intNumOfSkins = 1 Then Response.Write(intNumOfSkins & strTxtSkinInstalled & ".") Else Response.Write(intNumOfSkins & strTxtSkinsInstalled & ".")
  If intNumOfSkins > "0" Then
   If strType = "Drop" Then
    Response.Write("<br />")
    Response.Write("<select size=""1"" name=""skin"">")
    Response.Write("<option selected>---" & strTxtSelectSkin & "---</option>")
    For Each objFile In objFolder.Files
     If Right(objFile.Name, 5) = ".skin" Then
      Set objTextStream = objFSO.OpenTextFile(Server.MapPath("skin_files\" & objFile.Name))
      objTextStream.ReadLine
       Response.Write("<opti on value=""" & objFSO.GetBaseName(objFile) & """>")
       Response.Write(objTextSt ream.ReadLine)
       Response.Write("</opt ion>")
      objTextStream.Close
      Set objTextStream = Nothing
     
     End If
    Next
    Response.Write("</select>")
   ElseIf strType = "Link" Then
    Response.Write("<br />")
    For Each objFile In objFolder.Files
     If Right(objFile.Name, 5) = ".skin" Then
      Set objTextStream = objFSO.OpenTextFile(Server.MapPath("skin_files\" & objFile.Name))
      objTextStream.ReadLine
      Response.Write("-<a href=" & Request.ServerVariables("URL") & "?Skin=" & objFSO.GetBaseName(objFile) & ">")
       Response.Write(objTextSt ream.ReadLine)
       Response.Write("</a&g t;-<br />")
      objTextStream.Close
      Set objTextStream = Nothing
     
     End If
    Next
   End If
  End If
  Set objFolder = Nothing
  Set objFSO = Nothing
 Response.Write("</div>")
 
End Function