[godo.se]

Okej, då kommer det här.
Jag valde att behålla alla kommentarer jag hade i dokumentet om det skulle vara till någon nytta

Processing.asp - Skickar data till paynovas server och behandlar svaren

<%
'###################################################
'################# PAYNOVA START ###################
'###################################################
icpaccountid = "xxxxxx" 'Replace with your own
secretkey = "xxxxxxxxxxxx"  ' Replace with your own. It's more secure to read this from a database.

ShopBaseUrl = "https://www.domän.se/"
PNserverUrl = "https://www.paynova.com/"

notifypage = ShopBaseUrl & "teknik/paynova/notifypage.asp"
redirecturlok = ShopBaseUrl & "order_kvitto.asp?ID="& intOrderId
redirecturlcancel = ShopBaseUrl & "teknik/payment.asp?data="& intOrderId &"&status=cancelled"
strCurrency = "SEK"
amount = CInt(intPris * 100) ' = 10,00
orderid = intOrderId 
paymentdata = session("siteuserid") &"|"& session("AffiliateID")


'Contract text. This text is displayed in the wallet and should describe what the customer is paying for.
strContractText = request.form("contracttext")

' Create a MD5 checksum on all values
strData = icpaccountid & amount & strCurrency & notifypage & redirecturlok & redirecturlcancel _
 	& orderid & paymentdata & strContractText & secretkey
checksum = MD5(strData)




'*************** Construct POST String ************************

'IcpAccountID
strPostData = strPostData & "icpaccountid=" & icpaccountid

'Amount
strPostData = strPostData & "&amount=" & amount

'Currency
strPostData = strPostData & "&currency=" & strCurrency

' The web page that will recieve the payment confirmation post. Send a complete Use with http:// or https://
strPostData = strPostData & "&notifypage=" & Server.URLEncode(notifypage)

' The web page that the customer will be redirected to if the payment has been successful. Use a complete URL with http:// or https://
strPostData = strPostData & "&redirecturlok=" & Server.URLEncode(redirecturlok)

' The web page that the customer will be redirected to if the payment has not been successful. Use a complete URL with http:// or https://
strPostData = strPostData & "&redirecturlcancel=" & Server.URLEncode(redirecturlcancel)

'OrderID from the shop.
' This is stored by Paynova and can be used as a search criteria in Merchant Services.
strPostData = strPostData & "&orderid=" & Server.URLEncode(orderid)

'Payment data
' This field could be used for some kind of session data.
' Not stored by Paynova.
' It will be sent back in the notifypage call.
' In this example we will send the customer's email.
strPostData = strPostData & "&paymentdata=" & paymentdata

'Contract
strPostData = strPostData & "&contracttext=" & Server.URLEncode(strContractText)

'Checksum
strPostData = strPostData & "&checksum=" & checksum

'*********************************************************************

'	Printa(strPostData)


'Make the payment request (IcpPOST) and read the sessionkey returned.
strSessionKey = http_post(PNserverUrl & "payment/startpayment.asp", strPostData)


'Check that the sessionkey is correct. Always 37 characters.
'If the sessionkey <> 37 characters, it may contain an error message.
if len(strSessionKey) = 37 then
	Response.Redirect(PNserverUrl & "wallet/?sessionKey=" & strSessionKey)
else
	' Illegal sessionkey
	Response.Write("An error occurred. Please contact the shop administrator.")
	Response.Write("<br>" & strSessionKey)
end if

' Finished!

'************** Helper functions *************************************
function http_post(Url,DataToSend)
	dim xmlhttp 
	'Microsoft XML Core Services 4.0 RTM
	'http://msdn.microsoft.com/library/default.asp?url=/downloads/list/xmlgeneral.asp
	set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
	xmlhttp.Open "POST",Url,false
	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	xmlhttp.send DataToSend
	http_post = xmlhttp.responseText
	Set xmlhttp = nothing
end function
%>

////////////////////////////////////////////////////////////////////////////////////////

Notifypage.asp - Behandlar resultatet från Processing.asp

<%
Response.ContentType = "text/html; charset=iso-8859-1"

dim strTransID
dim strName
dim strPaymentData
dim strBody
dim lngStatus
dim strFromAddress
dim strPass
dim strOrderID
dim strChecksumRec 'Recieved checksum
dim strChecksumComp 'Computed checksum
dim bolChecksumOK
dim strDataCrypt
dim secretkey
dim logfilename
dim msg


logfilename = server.MapPath("confirmation.log")
secretkey = "****************"            ' Replace with your own. It's more secure to read this from a database.

lngStatus = Request.Form("paymentstatus")  ' 1 = OK , -1 = Failed
strOrderID = Request.Form("order_id")    ' Not used in this example.
strPaymentData = Request.Form("paymentdata") ' In this example the customer's email address.
strTransID = Request.Form("trans_id")    ' The Paynova transaction ID. Length 18 characters.
strChecksumRec = Request.Form("checksum")  ' Checksum 

strDataCrypt = lngStatus & strOrderID & strPaymentData & strTransID & secretkey
strChecksumComp = MD5(strDataCrypt)

dumplog logfilename, "*************************************************************************"
dumplog logfilename, strTransID & "|" & lngStatus & "|" & strPaymentData & "|" & strOrderID
dumplog logfilename, strChecksumRec
dumplog logfilename, strChecksumComp

if strChecksumRec = strChecksumComp then
	dumplog logfilename, "checksum match OK"
	if lngStatus = "1" then
 '###################################################
 '###### SKAPAR ORDERBEKRÄFTELSE TILL KUND ########
 '###################################################
 varArray = Split(strPaymentData, "|") 'Array från Paynova
 
 'HÄR SKAPAS MAIL ELLER VAD MAN NU KA TÄNKAS VILJA GÖRA
 '###################################################
 '###################################################
 response.write("OK|OK") 
 dumplog logfilename, "Mail sent"
	else
 '###################################################
 '############### DIVERSE FELKODER ################
 '###################################################
 Response.Write("FEL!")
 '###################################################
 '###################################################
 response.write("OK|Cancelled")
 dumplog logfilename, "Payment cancelled"
	end if
else 
	dumplog logfilename, "Checksum mismatch"
	response.write("Error|Checksum mismatch!")
end if

function dumplog(strFilename,strMsg)
	dim sFile, fso, f
	Const ForReading = 1, ForWriting = 2, ForAppending = 8

	sFile = strFilename
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(sFile, ForAppending, True)
	f.WriteLine Now() & "|" & strMsg
	f.Close
end function
%>

Inte säkert att detta ger dig någon hjälp över huvudtaget, men lycka till!