Det går inte att skicka mail helt enkelt..... Två rader innan felet så gör du följandeSkicka bekräftelse..??..
det är ska vara en bekräftelse på de varor
man har beställt....
Feltyp:
ADODB.Recordset (0x800A0E78)
Åtgärden är inte tillåten när objektet är stängt.
/shop1/privat/bestall_ok.asp, line 101
<!-- #include file="dbcon.asp"-->
<%
'-----Kollar att man är inloggad----------------------------
If Session("KID") = "" Then
Session("From") = "Bestall"
Response.Redirect "login.asp?From=Bestall"
End If
Dim DB, RecSet, RecSet2, Kolla, KID, Andra, Andra2, Sessionen, tmpArtID, tmpAntal, Tabort
KID = Session("KID")
Sessionen = Session.SessionID
Set Recset = Connect.Execute("Select * From kunder where kid = " & KID)
If RecSet.EOF = True Then
Response.Redirect "error.asp?fel=6"
End If
'--------------Skicka ett bekräftelse email-------
'--------------OBS FUNKAR EJ PÅ PWS !-------
Dim NyEpost, Meddelandet
Set NyEpost = Server.CreateObject("CDONTS.NewMail")
NyEpost.To = RecSet("Epost")
NyEpost.Importance = 2
NyEpost.From = "nalle_puh94@hotmail.com "
NyEpost.Subject = "Order bekräftelse Mobil Butiken"
Meddelandet = "Hej " & RecSet("Fnamn") & ", Tack för din beställning."
Meddelandet = Meddelandet & "Vi levererar dina varar snarast! "
Meddelandet = Meddelandet & "Vid frågor om din order kontakta oss "
Meddelandet = Meddelandet & "på order@mobilbutiken.com, var vänlig uppge ditt "
Meddelandet = Meddelandet & "kundnummer som är : " & Session("KID") & "."
NyEpost.Body = Meddelandet
NyEpost.Send
'---------------Epost Skickat-----------------------
RecSet.Close
'_______________Flytta ordern till rätt tabell______
Andra = "SELECT * FROM Temptab WHERE SID = " & Sessionen
Addera = "SELECT * FROM Bestallning"
Set RecSet = Connect.Execute(Andra)
Set RecSet2 = Connect.Execute(Addera)
Do Until RecSet.EOF
tmpArtID = RecSet("AID")
tmpAntal = RecSet("Antal")
Connect.Execute("INSERT INTO bestallning (orderid,antal,aid,kid) VALUES(" & Sessionen & ", " & tmpantal & ", " & tmpartid & ", " & kid & ")")
RecSet.MoveNext
Loop
RecSet.Close
RecSet2.Close
Rad.101------>Do until RecSet.EOF
Connect.Execute("Delete from temptab Where SID = " & Sessionen)
RecSet.MoveNext
Loop
RecSet.Close
%>
<HTML>
<HEAD>
<link href="stil.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Nu är orden skickad,
Du får ett bekräftelsebrev till din epost.
<% Session.Abandon %>
</font>
<p> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Tillbaka
till butiken </font>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Logga
ut</font>
</BODY>
</HTML>Sv: Skicka bekräftelse..??..
RecSet.Close
Felet säger att du inte utföra operationen när ditt recordsätt är
stängt och där har du orsaken till att det är stängt.
---
<b>Andreas Håkansson
Student of Software Engineering</b>