<% Dim sequence Dim amount Dim ret ' *** IF YOU WANT TO PASS CURRENCY CODE uncomment the next 2 lines ** ' Dim currencycode ' Assign the transaction currency (from your shopping cart) to currencycode variable ' Trim $ dollar sign if it exists amount = Request("x_amount") ' Just a test so we use a hard-coded amount of 19.99 ' NOTE: You must make absolutely sure that you are ' passing a number to the "amount" variable; otherwise, ' the fingerprint calculation will not work ' So, if you are gathering the amount value from a field ' or any other user input, make sure you collect it as or ' convert it to a number, using either VBScript, JScript or ' JavaScript. 'amount = 19.99 If Mid(amount, 1,1) = "$" Then amount = Mid(amount,2) End If ' Seed random number for more security and more randomness Randomize sequence = Int(1000 * Rnd) '*** for testing only: ********************************* 'sequence = 931 ' Now add the SIM related data, such as the fingerprint, ' to the HTML form. ' Response.Write ("" & vbCrLf) Response.Write ("" & vbCrLf) Response.Write("
") ' Again, make sure all required values are properly declared ' in their respective places ret = InsertFP (loginid, txnkey, amount, sequence) ' *** IF YOU ARE PASSING CURRENCY CODE uncomment and use the following instead of the InsertFP function above *** ' ret = InsertFP (loginid, txnkey, amount, sequence, currencycode) Response.Write ("" & vbCrLf) Response.Write("
") Response.Write ("" & vbCrLf) Response.Write("
") ' *** IF YOU ARE PASSING CURRENCY CODE uncomment the line below ***** ' Response.Write ("" & vbCrLf) %>