BDG Scenario 3

Build.asp

<%@ Language=VBScript EnableSessionState=true%>
<% Option Explicit %>
<%
 ' to force authentication for connection to SQL Server
   If Request.ServerVariables("AUTH_USER") = "" Then
      Response.Status = "401 Access Denied"
      Response.End
   End If
%>

<% Response.Buffer = True %>

<%

Dim oLingo,srcPath,destPath,lingofile,rootPath,pos
'Debug: harcoded lingo file name
lingofile = "lingo.xml"
rootPath = Server.MapPath("..")
srcPath = rootPath & "\global"
destPath = Request.QueryString("langFolder")

If destPath =""  then
   'Debug Code: Hard Coded Value
    destPath = "en-us"
End If
destPath = rootPath & "\" & destPath

Set oLingo = Server.CreateObject("Litware.Lingo")

call oLingo.Build(srcPath,destPath,lingofile)

Set oLingo = Nothing 

%>