<%
Dim cnn2
Dim cmd2
if not transaction = 1 then transaction = 2

Set cnn2 = Server.CreateObject("ADODB.Connection")
Set cmd2 = Server.CreateObject("ADODB.Command")
cnn2.Open Application("Connection1")
With cmd2
	.ActiveConnection = cnn2
	.CommandType = adCmdStoredProc
	.CommandText = "sp_update_currency"
	.Parameters.Append .CreateParameter("@id",adInteger, _
		adParamInput, 4, Session("ID"))
	.Parameters.Append .CreateParameter("@currency", adVarChar, _
		adParamInput, 50, Request.Form("txtCurrency"))
	.Parameters.Append .CreateParameter("@exchange_rate",adDouble, _
		adParamInput, 8, Request.Form("txtExchangeRate"))
	.Parameters.Append .CreateParameter("@as_of_date", adDate , _
		adParamInput, 8, Request.Form("txtAsOfDate"))
	.Execute status
End With
Set cnn2 = Nothing
Set cmd2 = Nothing
%>
<!-- #include file = "I_PopUp.asp" -->