Sv: CDONTS på IIS 6

CDONTS på IIS 6

Postades av 2004-10-15 15:40:59 - Fredrik Henrysson, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 441 personer

Hej,

Har flyttat en mailfunktion från IIS 5 till IIS 6 och fick då problem

Får följande fel:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xe40 Thread 0x10ac DBC 0x4005ab4 Jet'.

/mail/mail_form.asp, line 19

Är det någon som har någon ide om detta?

Mvh
Fredrik

<code>
<%
'declare variables
Dim strTo, strSubject, strBody, strFrom 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object
Dim objRec

'grab the variables from the form
strTo = Request.Form("To")
strFrom = Request.Form("From")
strSubject = Request.Form("subject")
strBody = Request.Form("msg")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=text/html; charset=iso-8859-1>" <-----rad 19
HTML = HTML & "<title>Plannja Siba</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
'HTML = HTML & "Till " + strTo
'HTML = HTML & " " + strBody + " Från: " + strFrom replace(trim(strBody),vbCrLf," ") &
HTML = HTML & " " + replace(trim(strBody),vbCrLf," ") + " Från: " + strFrom
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'create a new cdo object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'set its properties
objCDOMail.From = "Interna_hemsidan"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = HTML
'send the mail
objCDOMail.Send
'set the object = nothing
Set objCDOMail = Nothing

Response.Redirect "../start.asp"
%>
</code>

Svara