|
|
You're in the
inetserver asp components
group:CDO mail formatting issue
inetserver asp components:
html portion does not appear formatted but just as it is seen below. I seperated the problem area below with a dashed line to make it easier to find in this post. Any suggestions would be appreciated. Thanks David <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" --> <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> <% SUB sendmail( fromWho, toWho, Subject, Body ) Dim objCDO Dim iConf Dim Flds Dim msg ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- msg="<html><head><title>E-Mail Link</title><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1""></head><body bgcolor=""#33FF33""><table width=""400"" height=""300"" border=""1"" bordercolor=""#000000"" bgcolor=""#33FF33""> <tr><td><table width=""100%"" border=""0""><tr><td><div align=""center""><a href=""http://site.com/friend.htm""><img src=""http://site.com/images/e_header.gif"" width=""397"" height=""101""></a></div></td></tr><tr><td> </td> </tr> <tr> <td bgcolor=""#00CC33""> <p><font color=""#000000"">You have recieved the following link from <font face=""Courier New, Courier, mono"" size=""3"">" & fromaddress & "</font></font></p> <p> </p></td> </tr> <tr> <td><p>Message:</p> <p><font face=""Courier New, Courier, mono"" size=""3"">" & message&"</font></p></td> </tr> <tr> <td>Click on the following to access the sent link:<font color=""#3300FF""> <a href=""http://site.com/friend.htm""><font face=""Arial, Helvetica, sans-serif"" size=""4"">Camp Shane</font></a></font></td> </tr> <tr> <td> </td> </tr> </table> <p align=""center""><input type=""button"" value=""Close Window"" name=""close"" onClick=""window.close()""></p></td> </tr></table></body></html>" ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.Subject = "A friend of yours thought that you may be interested in http://www.site.com" objCDO.TextBody = msg objCDO.Send END SUB fromWho = TRIM( Request.Form( "fromWho") ) toWho = TRIM( Request.Form( "toWho") ) Subject = TRIM( Request.Form( "Subject" ) ) msg = TRIM( Request.Form( "msg") ) If toWho <> "" THEN sendMail fromWho, toWho, Subject, msg 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "http://www.site.com" ' Any existing page can be used for the response redirect method END IF %> <HTML> <HEAD><TITLE>Email Form</TITLE><meta http-equiv="Content-Type" content="text/html; charset="></HEAD> <body bgcolor="#33ff33"> <FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>"> <table width="400" border="1" bordercolor="#000000" height="309"> <tr> <td valign="top" height="303"> <table width="100%" border="0"> <tr> <td colspan="2"> <p align="center"><font color="#000000">EMAIL this page to a friend</font></p></td> </tr> <tr> <td colspan="2"> <div align="center"><strong>web site</strong></div> </td> </tr> <tr> <td colspan="2"> <p align="center"> </p></td> </tr> <tr> <td width="39%"><font size="-1">Your friends email address:</font></td> <td width="61%"> <font size="-1"> <input name="towho" type="text" id="towho"> </font> </td> </tr> <tr> <td><font color="#000000" size="-1">Your email address:</font></td> <td> <input name="fromwho" type="text" id="fromwho"> </td> </tr> <tr> <td colspan="2"><font size="-1">Message:</font></td> </tr> <tr> <td colspan="2"> <textarea name="body" cols="40" rows="5" id="body"></textarea> </td> </tr> <tr> <td colspan="2"><table width="100%" border="0"> <tr> <td><div align="center"> <input type="reset" name="Reset" value="Reset"> </div></td> <td><div align="center"> <input type="submit" name="Submit2" value="Submit"> </div></td> </tr> </table></td> </tr> </table> <p align="center"> </p> </td> </tr> </table> </FORM> </HTML>
try out some of these examples..
they all seem to work well for me http://www.powerasp.com/content/new/sending_email_cdosys.asp [quoted text, click to view] "David" <dross@si.rr.com> wrote in message news:OLk34K5QFHA.244@TK2MSFTNGP12.phx.gbl... > Hi, When I set the following for my CDO email, the mail is receievd with > the html portion does not appear formatted but just as it is seen below. > I seperated the problem area below with a dashed line to make it easier to > find in this post. > > Any suggestions would be appreciated. > > Thanks > David > > > > > > <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" > NAME="CDO for Windows Library" --> > > <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" > NAME="ADODB Type Library" --> > <% > SUB sendmail( fromWho, toWho, Subject, Body ) > > Dim objCDO > Dim iConf > Dim Flds > Dim msg > ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- > msg="<html><head><title>E-Mail Link</title><meta > http-equiv=""Content-Type"" content=""text/html; > charset=iso-8859-1""></head><body bgcolor=""#33FF33""><table width=""400"" > height=""300"" border=""1"" bordercolor=""#000000"" bgcolor=""#33FF33""> > <tr><td><table width=""100%"" border=""0""><tr><td><div > align=""center""><a href=""http://site.com/friend.htm""><img > src=""http://site.com/images/e_header.gif"" width=""397"" > height=""101""></a></div></td></tr><tr><td> </td> </tr> > <tr> <td bgcolor=""#00CC33""> <p><font color=""#000000"">You have > recieved the following link from <font face=""Courier New, Courier, mono"" > size=""3"">" & fromaddress & "</font></font></p> <p> </p></td> > </tr> <tr> <td><p>Message:</p> <p><font > face=""Courier New, Courier, mono"" size=""3"">" & > message&"</font></p></td> </tr> <tr> <td>Click on the > following to access the sent link:<font color=""#3300FF""> <a > href=""http://site.com/friend.htm""><font face=""Arial, Helvetica, > sans-serif"" size=""4"">Camp Shane</font></a></font></td> </tr> > <tr> <td> </td> </tr> </table> <p > align=""center""><input type=""button"" value=""Close Window"" > name=""close"" onClick=""window.close()""></p></td> > </tr></table></body></html>" > > ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- > > > Const cdoSendUsingPort = 2 > > Set objCDO = Server.CreateObject("CDO.Message") > Set iConf = Server.CreateObject("CDO.Configuration") > > Set Flds = iConf.Fields > With Flds > .Item(cdoSendUsingMethod) = cdoSendUsingPort > .Item(cdoSMTPServer) = "mail-fwd" > .Item(cdoSMTPServerPort) = 25 > .Item(cdoSMTPconnectiontimeout) = 10 > .Update > End With > > Set objCDO.Configuration = iConf > > objCDO.From = fromWho > objCDO.To = toWho > objCDO.Subject = "A friend of yours thought that you may be interested in > http://www.site.com" > objCDO.TextBody = msg > objCDO.Send > > END SUB > fromWho = TRIM( Request.Form( "fromWho") ) > toWho = TRIM( Request.Form( "toWho") ) > Subject = TRIM( Request.Form( "Subject" ) ) > msg = TRIM( Request.Form( "msg") ) > If toWho <> "" THEN > sendMail fromWho, toWho, Subject, msg > > > 'Cleanup > Set ObjCDO = Nothing > Set iConf = Nothing > Set Flds = Nothing > Response.redirect "http://www.site.com" > ' Any existing page can be used for the response redirect method > END IF > %> > > > > <HTML> > <HEAD><TITLE>Email Form</TITLE><meta http-equiv="Content-Type" > content="text/html; charset="></HEAD> > <body bgcolor="#33ff33"> > <FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>"> > <table width="400" border="1" bordercolor="#000000" height="309"> > <tr> > <td valign="top" height="303"> > <table width="100%" border="0"> > <tr> > <td colspan="2"> <p align="center"><font color="#000000">EMAIL > this > page to a friend</font></p></td> > </tr> > <tr> > <td colspan="2"> > <div align="center"><strong>web site</strong></div> > </td> > </tr> > <tr> > <td colspan="2"> <p align="center"> </p></td> > </tr> > <tr> > <td width="39%"><font size="-1">Your friends email > address:</font></td> > <td width="61%"> <font size="-1"> > <input name="towho" type="text" id="towho"> > </font> </td> > </tr> > <tr> > <td><font color="#000000" size="-1">Your email > address:</font></td> > <td> > <input name="fromwho" type="text" id="fromwho"> > </td> > </tr> > <tr> > <td colspan="2"><font size="-1">Message:</font></td> > </tr> > <tr> > <td colspan="2"> > <textarea name="body" cols="40" rows="5" > id="body"></textarea> > </td> > </tr> > <tr> > <td colspan="2"><table width="100%" border="0"> > <tr> > <td><div align="center"> > <input type="reset" name="Reset" value="Reset"> > </div></td> > <td><div align="center"> > <input type="submit" name="Submit2" value="Submit"> > > </div></td> > </tr> > </table></td> > </tr> > </table> > <p align="center"> </p> > </td> > </tr> > </table> > </FORM> > </HTML> > >
Hi,
can anyone help me to add MSFlexGrid control in asp page to display the ADO Recordset value. Here i am trying but i am not getting the proper output in the grid, istead of that i am getting the following output, MSFlexGrid1.Rows=0 MSFlexGrid1.Cols=31 MSFlexGrid1.Row=0 MSFlexGrid1.Col=0 MSFlexGrid1.Text="ExchCode" MSFlexGrid1.Col=1 MSFlexGrid1.Text="ContractDate" MSFlexGrid1.Col=2 MSFlexGrid1.Text="SetID" MSFlexGrid1.Col=3 MSFlexGrid1.Text="SetNo" MSFlexGrid1.Col=4 MSFlexGrid1.Text="ClientCode" MSFlexGrid1.Col=5 MSFlexGrid1.Text="ClientName" MSFlexGrid1.Col=6 MSFlexGrid1.Text="ScripCode" MSFlexGrid1.Col=7 MSFlexGrid1.Text="UnderLyingScripName" MSFlexGrid1.Col=8 MSFlexGrid1.Text="BuySellFlag" MSFlexGrid1.Col=9 MSFlexGrid1.Text="PrintControlNo" MSFlexGrid1.Col=10 MSFlexGrid1.Text="ContractNo" MSFlexGrid1.Col=11 MSFlexGrid1.Text="Qty" MSFlexGrid1.Col=12 MSFlexGrid1.Text="ExecRate" MSFlexGrid1.Col=13 MSFlexGrid1.Text="NetRate" MSFlexGrid1.Col=14 MSFlexGrid1.Text="InstCode" MSFlexGrid1.Col=15 MSFlexGrid1.Text="StrikePrice" MSFlexGrid1.Col=16 MSFlexGrid1.Text="ExpiryDate" MSFlexGrid1.Col=17 MSFlexGrid1.Text="Optiontype" MSFlexGrid1.Col=18 MSFlexGrid1.Text="UnderlyingInstrument" MSFlexGrid1.Col=19 regards, Mullai Ilamaran AM
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
| home · blog · groups | Questions? Comments? Contact the dn |