Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

89 lines
2.7 KiB

<%@Language='JScript' CODEPAGE=1252%>
<!--METADATA TYPE="TypeLib" File="C:\Program Files\Common Files\System\ADO\msado15.dll"-->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=shift-jis" />
<!-- #INCLUDE file='include/SiteLang.asp' -->
<!-- #INCLUDE file="../include/constants.asp" -->
<!-- #INCLUDE file="../include/DataUtil.asp" -->
<!-- #INCLUDE file="../include/DBUtil.asp" -->
<!-- #INCLUDE File="../include/ServerUtil.asp" -->
<%
//Verify that were coming in from the response page, if not, redirect to the welcome page
var regCheckFromResponse = /response\.asp/gi
if ( !regCheckFromResponse.test( Request.ServerVariables("HTTP_REFERER") ) )
Response.Redirect( "welcome.asp" )
var bUnderstand = new Number( Request.Form( "rUnderstand" ) )
var bHelped = new Number( Request.Form( "rHelped" ) )
var szComments = new String( Request.Form( "taComments" ))
var sSolutionID = new String( Request.Cookies("OCAV3")("SID") )
var bType = new Number( Request.QueryString( "Type" ) )
var Query = false;
//trim additional spaces off the comment
szComments = fnTrim( szComments );
if ( !fnVerifyNumber ( bUnderstand, 0, 1 ) )
bUnderstand = "NULL";
if ( !fnVerifyNumber ( bHelped, 0, 1 ) )
bHelped = "NULL";
if ( szComments.length > 0 || !isNaN( bUnderstand ) || !isNaN( bHelped ) )
{
//This will change all single quotes (') to doubles for insertion into the db.
Response.Write("szComment: " + szComments )
//szComments = fnMakeDBText( szComments );
//Response.End()
if ( fnVerifyNumber( bType, 0, 1 ) )
{
if ( 0 == bType )
{
Query = "OCAV3_SetUserComments " + sSolutionID + "," + bUnderstand + "," + bHelped + ", N'" + szComments + "'";
//set it to a state that is undefined so that it won't display the survey or tacking info
Response.Cookies("OCAV3")("State") = STATE_SOLVED_ADDEDCOMMENT
}
else if ( 1 == bType )
{
Query = "OCAV3_SetUserReproSteps " + sSolutionID + ",N'" + szComments + "'"
//Set the state so we can still track but no repro box
Response.Cookies("OCAV3")("State") = STATE_GENERIC_ADDEDREPRO
}
}
if ( Query )
{
try
{
dbConn = GetDBConnection ( Application("L_OCA3_CUSTOMERDB_RW"), false );
dbConn.execute( Query );
}
catch ( err )
{
//don't really care if it failed, oh well, no comments for this guy.
//throw ( err )
}
if ( adStateOpen == dbConn )
dbConn.close()
}
}
else
{
//we fall through to here if the customer didn't fill out any of the fields.
if ( 0 == bType )
Response.Cookies("OCAV3")("State") = STATE_SOLVED_ADDEDCOMMENT
else if ( 1 == bType )
Response.Cookies("OCAV3")("State") = STATE_GENERIC_ADDEDREPRO
}
Response.Redirect( "Response.asp?SID=" + sSolutionID )
%>