<% SKINSTR = LoadSkin("./SKIN/" & SKIN &"/Skin.asp") SKINSTR = Replace(SKINSTR,"##SURVEYTITLE##",SURVEYTITLE) SKINSTR = Replace(SKINSTR,"##CLIENTIMG##",CLIENTIMAGE) SKINSTR = Replace(SKINSTR,"##SKIN_COLOR##",SKIN_COLOR) SKINSTR = Replace(SKINSTR,"##PERCENT##",FORMATNUMBER(CDbl((CInt(Request.Form("PVALUE"))+1)/TOTALCOUNT)*100,0)) If PARTSTR<>"" Then SKINSTR = Replace(SKINSTR,"","") End if Response.Write SKINSTR %>
<%If Trim(ST) <> "" Then%>
<%=ST%>
<%End If%>
<%=HTMLSCRIPT%>