Pb précédent résolu mais erreur : Object doesn't support this pro
cs_rodman
Messages postés12Date d'inscriptionjeudi 3 octobre 2002StatutMembreDernière intervention12 octobre 2006
-
4 oct. 2002 à 10:45
cs_Mcjo
Messages postés403Date d'inscriptiondimanche 12 août 2001StatutMembreDernière intervention 3 septembre 2012
-
5 oct. 2002 à 14:39
erreur : Object doesn't support this property or method 'rs.close'
Le prog est le suivant:
<%
Set NB_Conn = Server.CreateObject("Mysql.Connection")
Set rs=Server.CreateObject("Mysql.RecordSet")
NB_Conn.Connect NB_MySQL_Qualite_host,NB_MySQL_Qualite_user,NB_MySQL_Qualit e_pasw,NB_MySQL_Qualite_database,NB_MySQL_Qualite_port,0
Action = LEFT(UCASE(Request("Action")),5)
If Action = "RECEV" Then ' Arrivée du formulaire
' 1. Mémorisation de l'adresse E-mail dans un cookie
SQL = "SELECT Societe.ID_Societe, Societe.Nom_societe FROM Societe " _
& " ORDER BY Societe.Nom_societe DESC "
If not NB_Conn.query(SQL) Then MySQLError(NB_Conn)
set societe = Server.CreateObject("Mysql.Recordset")
societe.Connection = NB_Conn
' 3. Création du fichier
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dim dir : dir = Server.MapPath("/images")
set inF = FSO.CreateTextFile(dir & "" & Request("type"))
' Fichier au format Excel (.slk)
if RIGHT(Request("type"),3)="slk" then
inF.writeLine"ID;PWXL;N;E" ' Début du codage excel
' chr (34) remplace les guillements à la suite de l'instruction
inF.writeLine"C;Y1;X1;K"&CHR(34)&("ID_Societe")&CHR(34)
inF.writeLine"C;Y1;X2;K"&CHR(34)&("Nom_societe")&CHR(34)
i=2 ' Affichage à partir de la ligne 2
While Not rs.eof
inF.writeLine"C;Y"&(""&i&";X1;K")&(rs("ID_Societe"))
inF.writeLine"C;Y"&(""&i&";X2;K")&CHR(34)&(rs("Nom_societe" ))&CHR(34)
i=i+1
rs.MoveNext
wend
inF.writeLine"E" ' Fin du codage excel
' ou fichier au format texte (.txt)
else
inF.writeLine("Id_Societe"&";"&"Nom_societe"&";")
While Not rs.eof
inF.writeLine(rs("Id_Societe")&";"&rs("Nom_societe")&";")
rs.MoveNext
wend
end if
inF.close
' 4. Fermeture de la connexion à la BD
rs.close : set rs = nothing
NB_Conn.close : set NB_Conn = nothing
' 5. Envoi du fichier par ASPMail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Defort"
Mailer.FromAddress= "defort.fabien@saint-gobain.com"
Mailer.RemoteHost = "SMTP.saint-gobain.com"
Mailer.AddRecipient Request("Mail"), Request("Mail")
Mailer.AddAttachment dir&""&Request("type")
Mailer.Organization = "Site de saint gobain sekurit"
Mailer.Subject = "L'envoi des défauts et des expéditions"
strBody = "Voici la liste des défauts et des expéditions" & VbCrLf
strBody = strBody & "Nom du fichier joint "&Request("type")&"." & VbCrLf
strBody = strBody & "Amicalement. Fabien" & VbCrLf
Mailer.BodyText = strBody
if Mailer.SendMail then
msg="Félicitations : La liste des expéditions et des défauts est dans votre boite aux lettres" _
& "
Fichier : "&Request("type")
else
msg="Problème d'envoi
"&Mailer.Response
end if
End If %>
<html><head><title>Test pour envoi de fichier vers excel</title>
</head>
<!--#include virtual="/include/haut.html" -->
<%if msg="" then%>
Test pour le transfert de données
dans un fichier "Excel" ou "Texte"
<form method="POST" action="excel.asp">
Recevez ce fichier en indiquant simplement,
----
<select size="1" name="type">
<option value="excel.slk">excel</option>
<option value="texte.txt">texte</option>
</select> le type de fichier choisi,
----
"> votre e-mail,
----
un seul clic suffit ...,
----
La version excel (fichier *.slk) est compatible avec Excel,
----
La version texte (fichier *.txt) est compatible avec Word, Works, Word Pad etc....
</form>
<%else%>
<%=msg%>
<%end if%>
</html>
A voir également:
Pb précédent résolu mais erreur : Object doesn't support this pro