<%
debug1 = request.querystring("fg")
fg = Replace(Replace(Replace(Left(Trim(request.querystring("fg") & " "), 6), "/", ""), "\", ""), ".", "")
bg = Replace(Replace(Replace(Right(Trim(request.querystring("bg") & " "), 7), "/", ""), "\", ""), ".", "")
debug2 = fg
Function IsFileExists(byVal FilePath)
If FilePath = "" Then
IsFileExists = False
Exit Function
End If
Dim objFSO
FileName = Server.MapPath(FilePath)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists( FileName ) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
Set objFSO = Nothing
End Function
fg_url = "images/checks-758/fg/" & fg & ".png"
debug3 = fg_url
If Not IsFileExists(fg_url) Then
fg_url = "images/checks-758/fg/missing.png"
End If
bg_url = "images/checks-758/bg/" & bg & ".jpg"
If Not IsFileExists(bg_url) Then
bg_url = "images/checks-758/bg/missing.jpg"
End If
%>