Hjælp med MailProblem!
Jeg får denne fejl her:Microsoft VBScript runtime error '800a0046'
Permission denied
/sendorder.asp, line 99
Hele min kode ser sådan her ud:
<html>
<SCRIPT Language="Javascript">
function printit(){
if (NS)
{
window.print() ;
}
else
{
var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
WebBrowser1.ExecWB(6, 2);
}
}
</script>
<body>
<%
Session("Ordernummer") = Session("Ordernummer")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../CGI-Data/storedb.mdb")
Conn.Open DSN
Set rsVare= server.Createobject("ADODB.Recordset")
SQL_StringVare = "Select * from orderindhold WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsVare.open SQL_StringVare, Conn
Set rsOrder= server.Createobject("ADODB.Recordset")
SQL_StringOrder = "Select * from orderliste WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsOrder.open SQL_StringOrder, Conn
do until rsOrder.EOF
Server.ScriptTimeout = 6000
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "WebShop"
objCDO.To = "domino@tdcadsl.dk"
'objCDO.Cc = rsOrder("email")
objCDO.Subject = " Ordre fra " & rsOrder("KundeNavn")
body = "<b><font face='Arial' size='3'>Ny ordre fra Miss Night N' Day</b><br>"
response.write ("<b><font face='Arial' size='3'>Deres ordrer fra Miss Night N' Day</b><br>")
body = body & "<font face='Arial' size='2'>" & "ordernummer: " & rsOrder("ordernummer") & "<br><br>"
response.write ("<font face='Arial' size='2'>" & "ordernummer: ") & rsOrder("ordernummer") & ("<br><br>")
body = body & "Bestilte varer:<br>"
response.write ("Bestilte varer:<br>")
Dim TotalPris
TotalPris=0
do until rsVare.EOF
body = body & "<b><font face='Arial' size='3'>" & rsvare("produktNavn") & "</b><br>"
response.write ("<b><font face='Arial' size='3'>") & rsvare("produktNavn") & ("</b><br>")
body = body & "<font face='Arial' size='1'>(produktnummer: " & rsvare("produktnummer") & ")</b><br>"
response.write ("<font face='Arial' size='1'>(produktnummer: ") & rsvare("produktnummer") & (")</b><br>")
body = body & "<font face='Arial' size='2'>" & rsvare("produktantal") & " stk. " & "<br>"
response.write ("<font face='Arial' size='2'>") & rsvare("produktantal") & (" stk. " & "<br>")
body = body & rsvare("produktPris") & " Kr./stk. " & "<br><br>"
response.write rsvare("produktPris") & (" Kr./stk. " & "<br><br>")
TotalPris=TotalPris + clng(rsvare("produktPris")) * clng(rsvare("produktantal"))
rsVare.movenext
loop
body = body & "<br><br>Den sammenlagte pris er:<br>"
response.write ("<br><br>Den sammenlagte pris er: ") & TotalPris & (" DKK<br>")
response.write ("Prisen er excl fragt<br><br>")
body = body & TotalPris
body = body & "Kunden har oplyst følgende:<br><br>"
response.write ("Kunden har oplyst følgende:<br><br>")
body = body & "Navn: " & rsOrder("KundeNavn") & "<br>"
response.write ("Navn: ") & rsOrder("KundeNavn") & ("<br>")
body = body & rsOrder("KundeAdresse1") & "<br>"
response.write rsOrder("KundeAdresse1") & ("<br>")
body = body & rsOrder("KundeAdresse2") & "<br>"
If rsOrder("KundeAdresse2") = "" Then
response.write rsOrder("KundeAdresse2") & ("<br>")
Else
end if
body = body & rsOrder("KundePostnummer") & " " & rsOrder("KundeBy") & "<br><br>"
response.write rsOrder("KundePostnummer") & (" ") & rsOrder("KundeBy") & ("<br><br>")
body = body & "E-mail: " & rsOrder("email") & "<br>"
response.write ("E-mail: ") & rsOrder("email") & ("<br>")
body = body & "Telefon: " & rsOrder("KundeTelefon") & "<br><br>"
response.write ("Telefon: ") &rsOrder("KundeTelefon") & ("<br><br>")
body = body & "Kommentarer:<br>" & rsOrder("KundeNotat") & "<br>"
response.write ("Kommentarer:<br>") & rsOrder("KundeNotat") & ("<br>")
body = body & "<br>Denne e-mail er sendt fra:<br>"
response.write ("<br>Vi takker mange gange for deres ordrer<br>")
response.write ("Med venlig hilsen<br>")
body = body & "<font face='Arial' size='2'>Miss Night N' Day<br>"
response.write ("<font face='Arial' size='2'><b>Miss Night N' Day</b><br>")
body = body & "<font face='Arial' size='1'><a href='www.missnightnday.dk'>Åben hjemmesiden</a><br>"
response.write ("<font face='Arial' size='2'>Vi vil stræbe efter at sende ordren hurtigst muligt!<br>")
objCDO.Body = body
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Send
Set objCDO = Nothing
rsOrder.movenext
loop
rsVare.Close
set rsVare = nothing
Set rsSletVare= server.Createobject("ADODB.Recordset")
SQL_StringSletVare = "Select * from orderindhold WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsSletVare.LockType = 3
rsSletVare.Open SQL_StringSletVare, Conn
do until rsSletVare.EOF
rsSletVare.Delete
rsSletVare.movenext
loop
rsSletVare.Close
Set rsSletVare= Nothing
Set rsSletOrder= server.Createobject("ADODB.Recordset")
SQL_StringSletORder = "Select * from orderliste WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsSletOrder.LockType = 3
rsSletOrder.Open SQL_StringSletORder, Conn
do until rsSletorder.EOF
rsSletOrder.Delete
rsSletOrder.Movenext
loop
rsSletOrder.Close
Set rsSletOrder= Nothing
%>
</p>
<p><a href="index.asp" target="_self">Til Forsiden</a></p>
<SCRIPT Language="Javascript">
var NS = (navigator.appName == "Netscape");
var VERSION = parseInt(navigator.appVersion);
if (VERSION > 3) {
document.write('<form><input type=button value="Print this Page" name="Print" onClick="printit()"></form>');
}
</script>
</body>
</html>
