Forum de discussion
Forum « Programmation ASP » (archives)
Re: msword et asp et le ContentType
Envoyé: 15 juin 2004, 12h37 par fredoys
j'ai essayer avec word.application mais appriori sa ne fonctionne pas avec office 2003 ou IIS6 je ne sais pas
voici le code
<%
response.Clear()
NumBien=request("NumBien")
Response.ContentType = "application/msword"
Response.AddHeader "Content-Disposition", "attachement; filename=bien"&NumBien&".doc"
openConn()
SqlAffiche="SELECT Ville.Ville, Quartier.Quartier, Type.TypeFr, TypeBien.TypeBienFR, ImagesBien.ImagePetite1, ImagesBien.ImagePetite2,"_
&" ImagesBien.ImagePetite3, ImagesBien.ImagePetite4, ImagesBien.ImagePetite5, ImagesBien.ImagePetite6, ImagesBien.ImagePetite7,"_
&" ImagesBien.ImagePetite8, ImagesBien.ImagePetite9, ImagesBien.ImagePetite10, ImagesBien.AnnoncePageInternet,"_
&" Bien.Prix, Bien.Surface, Bien.NbrePiece, Bien.NumBien FROM Ville INNER JOIN (Type INNER JOIN (Quartier INNER JOIN ((TypeBien INNER"_
&" JOIN Bien ON TypeBien.NumTypeBien = Bien.NumTypeBien) LEFT JOIN ImagesBien ON Bien.NumBien = ImagesBien.NumBien) ON"_
&" Quartier.NumQuartier = Bien.NumQuartier) ON Type.NumType = Bien.NumType) ON Ville.NumVille = Bien.NumVille WHERE (((Bien.NumBien)="&NumBien&"))"
dim jmdDBlecture
set jmdDBlecture = server.CreateObject("ADODB.RecordSet")
jmdDBlecture.open(SqlAffiche),jmdDB,3,1,adCmdText
%>
<html>
<head>
<style type="text/css">
<!--
.Style1 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 22pt;
font-weight: bold;
}
.Style2 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 18px;
font-weight: bold;
}
.Style3 {
font-family: Geneva, Arial, Helvetica, sans-serif;
font-size: 16px;
font-weight: bold;
}
.Style4 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
}
body {
margin-left: 0cm;
margin-top: 0cm;
margin-right: 0cm;
margin-bottom: 0cm;
}
-->
</style>
</head>
<body>
<div align="center">
<p><span class="Style1"><%=jmdDBlecture(0)&" - "&jmdDBlecture(1)%></span><br>
<span class="Style2"><%=jmdDBlecture(2)&" - "&jmdDBlecture(3)%></span><br>
<span class="Style3">Prix : <%=jmdDBlecture(15)&" €"%></span></p>
<p align="center" class="Style3"> Piscine et garage pour trois Voiture</p>
<table width="100%" border="0" cellpadding="10" cellspacing="0">
<tr>
<td valign="top" class="Style3">DESCRIPTIF:</td>
<td align="right"><img src="/images/Biens<%=jmdDBlecture(4)%>" width="20%" height="20%" border="0"></td>
</tr>
<tr>
<td valign="top" class="Style3">INFORMATION FINANCIERES:</td>
<td align="right"><img src="/images/Biens<%=jmdDBlecture(5)%>" width="20%" height="20%" border="0"></td>
</tr>
<tr>
<td valign="top" class="Style3"><p>INFORMATION COMPLEMENTAIRES:<br>
<span class="Style4">Confort:<br>
</span></p>
<p class="Style4">Caratères dominant:<br>
</p></td>
<td align="right"><img src="/images/Biens<%=jmdDBlecture(6)%>" width="20%" height="20%" border="0"></td>
</tr>
</table>
<p><span class="Style3">INTERSERVICES JMD REF N° <%=NumBien%></span><br>
Document et informations non contractuels<br>
</p>
<table border="0" cellpadding="10" cellspacing="0">
<tr>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(8)%>" width="20%" height="20%" border="0"></td>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(9)%>" width="20%" height="20%" border="0"></td>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(10)%>" width="20%" height="20%" border="0"></td>
</tr>
<tr>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(11)%>" width="20%" height="20%" border="0"></td>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(12)%>" width="20%" height="20%" border="0"></td>
<td align="center"><img src="/images/Biens<%=jmdDBlecture(13)%>" width="20%" height="20%" border="0"></td>
</tr>
</table>
</div>
</body>
</html>
<%
jmdDBlecture.close
set jmdDBlecture=nothing
closeConn()
response.flush()
response.End()
%>
A suivre
Réponses
|