---
title: "Från CDONTS till jmail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/137760-från-cdonts-till-jmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "immelnmats"
published: "2005-11-16T16:13:10.000Z"
updated: "2005-11-16T21:10:08.000Z"
replies: 28
views: 1152
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/137760-från-cdonts-till-jmail"
---

# Från CDONTS till jmail

_Sida 1 av 2._

## #1 — immelnmats, 2005-11-16T16:13Z

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

%\>

Permalänk: https://www.webforum.nu/p/137760

## #2 — joel_joel88, 2005-11-16T17:00Z

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.

Permalänk: https://www.webforum.nu/p/1711378

## #3 — joel_joel88, 2005-11-16T18:06Z

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?

Permalänk: https://www.webforum.nu/p/1711405

## #4 — immelnmats, 2005-11-16T18:09Z

> **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

Permalänk: https://www.webforum.nu/p/1711406

## #5 — @nders, 2005-11-16T18:34Z

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

Permalänk: https://www.webforum.nu/p/1711414

## #6 — immelnmats, 2005-11-16T18:45Z

Jag får detta felmeddelande när cdonts koden är i programmeringen

Microsoft VBScript runtime  error '800a0046'

Permission denied

/aspshop/notifypage.asp, line 109

Permalänk: https://www.webforum.nu/p/1711418

## #7 — @nders, 2005-11-16T18:48Z

Då har du inte ersatt CDONTS-koden med JMail-koden du fick av Joel.

Permalänk: https://www.webforum.nu/p/1711421

## #8 — immelnmats, 2005-11-16T19:11Z

Jag har provat att ersätta den också

Permalänk: https://www.webforum.nu/p/1711428

## #9 — @nders, 2005-11-16T19:12Z

... och då hände vad? :)

Permalänk: https://www.webforum.nu/p/1711429

## #10 — immelnmats, 2005-11-16T19:18Z

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

Permalänk: https://www.webforum.nu/p/1711432

## #11 — @nders, 2005-11-16T19:20Z

*mail.server.nu*, som står i Joels kodexempel, ska du ändra till adressen till den SMTP-server som ska skicka mailet.

Permalänk: https://www.webforum.nu/p/1711434

## #12 — Baltiz, 2005-11-16T19:37Z

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?

Permalänk: https://www.webforum.nu/p/1711444

## #13 — immelnmats, 2005-11-16T19:37Z

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

Permalänk: https://www.webforum.nu/p/1711445

## #14 — @nders, 2005-11-16T19:38Z

Det felmeddelandet tyder på att du (internetgästkontot) inte har tillräckliga rättigheter i mappen i fråga.

Permalänk: https://www.webforum.nu/p/1711446

## #15 — immelnmats, 2005-11-16T19:40Z

Det konstiga är att webhotellet säger att vi har alla skrivrättigheter.

Permalänk: https://www.webforum.nu/p/1711447

## #16 — @nders, 2005-11-16T19:41Z

Då kan jag dessvärre inte tolka det på annat sätt än att webhotellet har fel...

Permalänk: https://www.webforum.nu/p/1711448

## #17 — immelnmats, 2005-11-16T19:41Z

Jag har provat att lägga upp det på FS datas webhotell och där fungerar det, konstigt.

Permalänk: https://www.webforum.nu/p/1711449

## #18 — joel_joel88, 2005-11-16T19:49Z

Är nog inte så konstigt, där har du förmodlingen alla rättigheter.

Permalänk: https://www.webforum.nu/p/1711458

## #19 — immelnmats, 2005-11-16T19:53Z

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.

Permalänk: https://www.webforum.nu/p/1711460

## #20 — joel_joel88, 2005-11-16T19:56Z

> **@nders skrev:**
>
> (internetgästkontot) inte har tillräckliga rättigheter i mappen i fråga.

Permalänk: https://www.webforum.nu/p/1711464

---

Tråden på webben: https://www.webforum.nu/amne/asp/137760-från-cdonts-till-jmail  
Nästa sida: https://www.webforum.nu/amne/asp/137760-från-cdonts-till-jmail/page2.md