<% '--------Get VARS----------- Dim strDemoBG, strFlashFile, strFlashWidth, strFlashHeight strDemoBG = Request.QueryString("pColor") strFlashFile = Request.QueryString("pFile") strFlashWidth = Request.QueryString("pWidth") strFlashHeight = Request.QueryString("pHeight") If strDemoBG = "white" Then strDemoBG = "ffffff" ElseIf strDemoBG = "black" Then strDemoBG = "000000" End If %>