28 svar · 1 125 visningar · startad av immelnmats
Hur gör jag om detta till ett jmail? Tacksam för svar. :)
Har fått ett svar men filen fungerar inte ändå, kanske är det något annat i programmerinen som behöver ändras, jag lägger ut hela filen den med cdonts. Hoppas att någon har en lösning på det hela.
<!--#include file="md5.asp"-->
<%
' This page recieves the payment confirmation (PaymentPOST) from Paynova.
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 objMessage
logfilename = "c:\confirmation.log"
secretkey = "jgnmhjyujgmgm" ' 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
strPass = "paynovatestpassword" & now()
strBody = "Your password:" & vbcrlf _
& strPass & vbcrlf & vbcrlf _
& "Thank you!" & vbcrlf
set objMessage = server.CreateObject("CDONTS.NewMail")
objMessage.To = strPaymentData
objMessage.From = "aspshop@mydomain.com"
objMessage.Subject = "Aspshop password"
objMessage.Body = strBody
objMessage.Send
set objMessage = nothing
' To be able to confirm that the merchant has recieved the POST,
' Paynova requires the first two characters in the response to be "OK".
response.write("OK\|OK")
dumplog logfilename, "Mail sent"
else
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
%>
Välkommen till Webforum! :)
<%
Set objMessage = Server.CreateOBject("JMail.Message")
objMessage.From = "aspshop@mydomain.com"
objMessage.FromName = "Avsändarens namn"
objMessage.AddRecipient strPaymentData
objMessage.Subject = "Aspshop password"
objMessage.Body = strBody
objMessage.ContentType = "text/plain"
objMessage.Send("mail.server.nu")
Set objMessage = nothing
%>
Om du är nöjd med mitt svar, acceptera det som slutgiltligt svar.
Du skickade ett PM och sa att det inte fungerade. I stället för att skriva PM skriv här i denna tråd. Detta är ett forum. :)
Nu till ditt problem...blir det något felmeddelande?
joel_joel88 skrev:
Du skickade ett PM och sa att det inte fungerade. I stället för att skriva PM skriv här i denna tråd. Detta är ett forum. :)
Nu till felet...blir det något felmeddelande?
Jag får bara att det är fel i den rad där cdonts börjar
Exakt vad för felmeddelande får du?
Och varför får du fel på cdonts, koden Joel visar har ju inget sådant i sig?
Slutligen:
* Använd gärna [kod]-taggar när du postar kod på forumet, så blir det lättare att läsa och följa koden.
* Välkommen till webForum! :bire
Jag får detta felmeddelande när cdonts koden är i programmeringen
Microsoft VBScript runtime error '800a0046'
Permission denied
/aspshop/notifypage.asp, line 109
Då har du inte ersatt CDONTS-koden med JMail-koden du fick av Joel.
Jag har provat att ersätta den också
... och då hände vad? :)
Nu fick jag ett felmeddelande igen, fel i nedanstående rad
objMessage.Send("mail.server.nu")
jmail.Message error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/aspshop/notifypage.asp, line 69
mail.server.nu, som står i Joels kodexempel, ska du ändra till adressen till den SMTP-server som ska skicka mailet.
En liten sak bara... Hoppas att det inte är din egen "secret key" som står i koden, inte så smart att lämna ut den...
Har för övrigt för mig att det finns nåt fel i den exempelkoden man får från paynova, men det lär du väl märka sen om det funkar eller inte. Tror det var nåt med variabelnamnen och parametrarna som skickas som inte överrensstämmer med dokumentationen. Men det kan vara så att de lagt in så att båda parametrarna fungerar.
Om du inte reder ut det tycker jag att du ska anlita nån att lösa det. Man vill ju inte direkt att det ska gå fel när man sysslar med betalningar. Har du förstått vad det är meningen att koden egentligen ska göra?
Fick följande meddelande nu
Microsoft VBScript runtime error '800a0046'
Permission denied
/aspshop/notifypage.asp, line 109
Fel i denna rad: Set f = fso.OpenTextFile(sFile, ForAppending, True
Det felmeddelandet tyder på att du (internetgästkontot) inte har tillräckliga rättigheter i mappen i fråga.
Det konstiga är att webhotellet säger att vi har alla skrivrättigheter.
Då kan jag dessvärre inte tolka det på annat sätt än att webhotellet har fel...
Jag har provat att lägga upp det på FS datas webhotell och där fungerar det, konstigt.
Är nog inte så konstigt, där har du förmodlingen alla rättigheter.
Ja men vad är det för rättigheter jag ska ha, web 10 (webhotell) säger att vi har alla rätigheterna. Kan du rekomendera något prisvärt hotell som kan fungera till Paynovas tjänster.
@nders skrev:
(internetgästkontot) inte har tillräckliga rättigheter i mappen i fråga.
