<%

Response.Write "<input type='hidden' name='Var' value='" & VAR & "'/>" & VBCRLF 
Response.Write "<input type='hidden' name='PageName' value='" & PAGE & "'/>" & VBCRLF 
Response.Write "<input type='hidden' name='NextPage' value='" & NPAGE & "'/>" & VBCRLF 
Response.Write "<input type='hidden' name='IDKey' value='" & Request.Form("IDKey") & "'/>" & VBCRLF 
Response.Write "<input type='hidden' name='ResType' value='" & Request.Form("ResType") & "'/>" & VBCrLF
Response.Write "<input type='hidden' name='VC_ID' value='" & Request.Form("VC_ID") & "'/>" & VBCrLF
Response.Write "<input type='hidden' name='PVALUE' value='" & PVALUE & "'/>" & VBCrLF
Response.Write "<input type='hidden' name='ECODE' value='" & ECODE & "'/>" & VBCrLF
Response.Write "<input type='hidden' name='ENUMBER' value='" & ENUMBER & "'/>" & VBCrLF

If Request.ServerVariables("REMOTE_ADDR")="121.134.250.178" Or Request.ServerVariables("REMOTE_ADDR")="106.255.228.98" Then

	Response.Write vbCrLF
	Response.write "<script type=""text/javascript"" language=""javascript"">" & vbCrLF
	Response.Write "<!--" & vbCRLF
	Response.Write "	$(document).ready(function(){" & vbCrLf
	Response.Write "	var isAlt = false;" & vbCRLF
	Response.Write "	var action = """";" & vbCRLF
	Response.Write "	$(document).keyup(function(e){" & vbCRLF
	Response.Write "		if(e.which == 18) isAlt=false;" & vbCRLF
	Response.Write "	}).keydown(function(e){" & vbCRLF
	Response.Write "		if(e.which == 18) isAlt=true;" & vbCRLF
	Response.Write "		if(e.which == 74 && isAlt == true) {" & vbCRLF
	Response.Write "			//run code for CTRL+S -- ie, save!" & vbCRLF
	Response.Write "			action = prompt('Input Page Name\nOnly Name not valid .asp');" & vbCRLF
	Response.Write "			if (action==""""){" & vbCrLF
	Response.Write "				return;" & vbCRLF
	Response.Write "			}else{" & vbCrLF
	Response.Write "				$(""input[name=NextPage]"").val(action);" & vbCrLF
	Response.Write "			}" & vbCrLF
	Response.Write "		}" & vbCRLF
	Response.Write "	});" & vbCRLF
	Response.Write "	});" & vbCrLF
	Response.Write "//-->" & vbCRLF
	Response.Write "</script>" & vbCrLF
	Response.Write vbCrLF
End If
%>

