|
 |
asp_cdo thread: Business Address in a Contact Form
Message #1 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?=-- <Xavier@a...> on Mon, 19 Jun 2000 09:40:00 -0300
|
|
I have tried to write a contact form with ASP and CDO, but the only
field
that I could fill is the business address.(Street, City, State,
Zipcode)I am
using this:
Public Const CdoPR_BUSINESS_ADDRESS_CITY =3D &H3A27001E
Public Const CdoPR_BUSINESS_ADDRESS_COUNTRY =3D &H3A26001E
Public Const CdoPR_BUSINESS_ADDRESS_POST_OFFICE_BOX =3D &H3A2B001E
Public Const CdoPR_BUSINESS_ADDRESS_POSTAL_CODE =3D &H3A2A001E
Public Const CdoPR_BUSINESS_ADDRESS_STATE_OR_PROVINCE =3D &H3A28001E
Public Const CdoPR_BUSINESS_ADDRESS_STREET =3D &H3A29001E
Please, help me... I have try to search answer in the Net, but I did
not
have success.
Andr=E9 da Cunha Peixoto Xavier
ATAN Sistemas de Automa=E7=E3o
Depto. de Inform=E1tica
Tel.: (31) 261.9702
xavier@a...
Message #2 by <sweber@c...> on Mon, 19 Jun 2000 17:36:24 +0200
|
|
You might want to check http://www.cdolive.com/cdo10.htm for a
(undocumented, unsupported and incomplete) list of MAPI properties to
read/write an Outlook contact with CDO 1.x. Note that CDO for Exchange
2000 has built-in support for all this stuff, makes life much easier.
</Siegfried>
--
Microsoft Most Valuable Professional (MVP) - Exchange Server
Co-author of "Professional CDO Programming", Wrox Press 1999
Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
Books (due out in August 2000)
CDOLive - The Premier Resource for Microsoft Collaboration Data Objects
http://www.cdolive.com
mailto:sweber@c...
This message has been sent to you using Microsoft Exchange Server 2000
Release Candidate 2 (Build 6.0.4368)
> -----Original Message-----
> From: Andr=E9 da Cunha Peixoto Xavier
> Posted At: Monday, June 19, 2000 2:40 PM
> Posted To: Wrox ASP CDO
> Conversation: [asp_cdo] Business Address in a Contact Form
> Subject: [asp_cdo] Business Address in a Contact Form
>
>
> I have tried to write a contact form with ASP and CDO, but
> the only field
> that I could fill is the business address.(Street, City,
> State, Zipcode)I am
> using this:
> Public Const CdoPR_BUSINESS_ADDRESS_CITY =3D &H3A27001E
> Public Const CdoPR_BUSINESS_ADDRESS_COUNTRY =3D &H3A26001E
> Public Const CdoPR_BUSINESS_ADDRESS_POST_OFFICE_BOX =3D &H3A2B001E
> Public Const CdoPR_BUSINESS_ADDRESS_POSTAL_CODE =3D &H3A2A001E
> Public Const CdoPR_BUSINESS_ADDRESS_STATE_OR_PROVINCE =3D &H3A28001E
> Public Const CdoPR_BUSINESS_ADDRESS_STREET =3D &H3A29001E
> Please, help me... I have try to search answer in the Net,
> but I did not
> have success.
>
>
> Andr=E9 da Cunha Peixoto Xavier
> ATAN Sistemas de Automa=E7=E3o
> Depto. de Inform=E1tica
> Tel.: (31) 261.9702
> xavier@a...
>
>
>
Message #3 by <sweber@c...> on Mon, 19 Jun 2000 21:47:45 +0200
|
|
Please reply to the mailing list so that others can benefit from the
answers also. Having said that:
The page I've mentioned includes almost all MAPI properties to
read/write contact data. Check it you and I'm sure you'll find what you
need.
</Siegfried>
--
Microsoft Most Valuable Professional (MVP) - Exchange Server
Co-author of "Professional CDO Programming", Wrox Press 1999
Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
Books (due out in August 2000)
CDOLive - The Premier Resource for Microsoft Collaboration Data Objects
http://www.cdolive.com
mailto:sweber@c...
This message has been sent to you using Microsoft Exchange Server 2000
Release Candidate 2 (Build 6.0.4368)
> -----Original Message-----
> From: Andr=E9 da Cunha Peixoto Xavier
> Sent: Monday, June 19, 2000 8:30 PM
> To: Siegfried Weber
> Subject: Sorry I write wrong...
>
>
> I con fill all fields only the business address that I could not fill.
>
> >You might want to check http://www.cdolive.com/cdo10.htm for a
> >(undocumented, unsupported and incomplete) list of MAPI properties to
> >read/write an Outlook contact with CDO 1.x. Note that CDO
> for Exchange
> >2000 has built-in support for all this stuff, makes life much easier.
> >
> ></Siegfried>
> >--
> >
> >> -----Original Message-----
> >> From: Andr=E9 da Cunha Peixoto Xavier
> >> Posted At: Monday, June 19, 2000 2:40 PM
> >> Posted To: Wrox ASP CDO
> >> Conversation: [asp_cdo] Business Address in a Contact Form
> >> Subject: [asp_cdo] Business Address in a Contact Form
> >>
> >>
> >> I have tried to write a contact form with ASP and CDO, but
> >> the only field
> >> that I could fill is the business address.(Street, City,
> >> State, Zipcode)I am
> >> using this:
> >> Public Const CdoPR_BUSINESS_ADDRESS_CITY =3D &H3A27001E
> >> Public Const CdoPR_BUSINESS_ADDRESS_COUNTRY =3D &H3A26001E
> >> Public Const CdoPR_BUSINESS_ADDRESS_POST_OFFICE_BOX =3D &H3A2B001E
> >> Public Const CdoPR_BUSINESS_ADDRESS_POSTAL_CODE =3D &H3A2A001E
> >> Public Const CdoPR_BUSINESS_ADDRESS_STATE_OR_PROVINCE =3D
&H3A28001E
> >> Public Const CdoPR_BUSINESS_ADDRESS_STREET =3D &H3A29001E
> >> Please, help me... I have try to search answer in the Net,
> >> but I did not
> >> have success.
> >>
> >>
> >> Andr=E9 da Cunha Peixoto Xavier
> >> ATAN Sistemas de Automa=E7=E3o
> >> Depto. de Inform=E1tica
> >> Tel.: (31) 261.9702
> >> xavier@a...
> >>
> >>
> >>
>
>
Message #4 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?=-- <Xavier@a...> on Tue, 20 Jun 2000 09:25:37 -0300
|
|
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01BFDAB2.A3C6B6EA
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I can fill all fields only the business address that I could not fill.
The files are attach. Please help me...
Andr=E9 da Cunha Peixoto Xavier
ATAN Sistemas de Automa=E7=E3o
Depto. de Inform=E1tica
Tel.: (31) 261.9702
xavier@a...
------_=_NextPart_000_01BFDAB2.A3C6B6EA
Content-Type: application/octet-stream;
name="constantes_cdo.inc"
Content-Disposition: attachment;
filename="constantes_cdo.inc"
<%
Const CDO_ROOT_ID = &H66310102
Const CDO_LASTNAME = &H3A11001F
Const CDO_NAME = &H3A06001F
Const CDO_FULLNAME = &H3001001F
Const CDO_COMPANY = &H3A16001F
Const CDO_JOBTITLE = &H3A17001F
Const CDO_HOME_FONE = &H3A09001F
Const CDO_BUSINESS_FONE = &H3A08001F
Const CDO_BUSINESS_FAX = &H3A24001F
Const CDO_CELULAR = &H3A1C001F
Const CDO_WEBPAGE = &H3A51001F
Const CDO_DEPARTMENT = &H3A18001F
Const CDO_DIVISION = &H3A19001F
Const CDO_HOME_CITY = &H3A59001E
Const CDO_HOME_COUNTRY = &H3A5A001E
Const CDO_HOME_ZIPCODE = &H3A5B001E
Const CDO_HOME_STATE = &H3A5C001E
Const CDO_HOME_STREET = &H3A5D001E
Const CDO_CITY = &H3A27001E
Const CDO_STREET = &H3A29001E
Const CDO_COUNTRY = &H3A26001E
Const CDO_STATE = &H3A28001E
Const CDO_ZIPCODE = &H3A2A001E
%>
------_=_NextPart_000_01BFDAB2.A3C6B6EA
Content-Type: application/octet-stream;
name="icontatos.asp"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="icontatos.asp"
<html>
<head>
<title>Inserir Contatos</title>
<SCRIPT language=3DJavaScript>
<!--
function Incluir()
{
IncluirContato.acao.value =3D "incluir";
IncluirContato.submit();
}
// -----------------------------------------------------------
// Client-side BrowserData constructor
// Populated using data from server-side oBD object to avoid
redundancy
// -----------------------------------------------------------
function BrowserData()
{
this.userAgent =3D "Mozilla/4.0 (compatible; MSIE 5.0; Windows NT;
DigExt)";
this.browser =3D "MSIE";
this.majorVer =3D 5;
this.minorVer =3D "0";
this.betaVer =3D "0";
this.platform =3D "NT";
this.platVer =3D "; DigExt";
this.getsNavBar =3D true;
this.doesActiveX =3D true;
this.fullVer =3D 5;
}
var oBD =3D new BrowserData();
//--></SCRIPT>
<SCRIPT language=3DJavaScript>
<!--
// Inline code to refresh page on change and expire
function fnTabClick( nTab )
{
nTab =3D parseInt(nTab);
var oTab;
var prevTab =3D nTab-1;
var nextTab =3D nTab+1;
event.cancelBubble =3D true;
el =3D event.srcElement;
for (var i =3D 0; i < newsContent.length; i++)
{
oTab =3D tabs[i];
oTab.className =3D "clsTab";
oTab.style.borderLeftStyle =3D "";
oTab.style.borderRightStyle =3D "";
newsContent[i].style.display =3D "none";
}
newsContent[nTab].style.display =3D "block";
tabs[nTab].className =3D "clsTabSelected";
oTab =3D tabs[nextTab];
if (oTab) oTab.style.borderLeftStyle =3D "none";
oTab =3D tabs[prevTab];
if (oTab) oTab.style.borderRightStyle =3D "none";
event.returnValue =3D false;
}
=09
function fnSaveState() {
var iTabSelected =3D 0;
var iLength =3D tabs.length;
for (var i =3D 0; i < iLength; i++) {
if (tabs[i].className =3D=3D "clsTabSelected") iTabSelected =3D i;
}
idTabs.setAttribute("tabstate", iTabSelected);
}
=09
function fnGetState() {
var iTabSelected =3D idTabs.getAttribute("tabstate");
var iLength =3D tabs.length;
for (var i =3D 0; i < iLength; i++) {
if ( i !=3D iTabSelected) {
tabs[i].className =3D "clsTab";
if (newsContent[i]) newsContent[i].style.display =3D "none";
} else {
tabs[i].className =3D "clsTabSelected";
if (newsContent[i]) newsContent[i].style.display =3D "block"; =09
}
}=09
}
//--></SCRIPT>
<LINK href=3D"start_IE4.css" rel=3Dstylesheet type=3Dtext/css>
<LINK href=3D"main.css" rel=3Dstylesheet title=3D"Creative Style"
type=3Dtext/css>
<SCRIPT language=3DJavascript1.2
src=3D"../../../Toolbar/dropmenus.js"></SCRIPT>
<!-- Script para o swap das figuras-->
<script language=3D"JavaScript" fptype=3D"dynamicanimation">
<!--
function dynAnimation() {}
function clickSwapImg() {}
//-->
</script>
<script language=3D"JavaScript1.2" fptype=3D"dynamicanimation"
src=3D"animate.js">
</script>
<!-- Estilo para as p=E1ginas-->
<STYLE>
<!--
.menu { color: #000000; text-decoration: underlined; font-size:
12px; font-family: Verdana, Arial, Helvetica }
.serv { color: #FFFFFF; text-decoration: none; font-size: 12px;
font-family: Verdana, Arial, Helvetica }
.minihoje { color: #CC0000; text-decoration: none; font-size: 10px;
font-family: Verdana, Arial, Helvetica; font-weight: bold }
.minihojefoto { color: #000000; text-decoration: none; font-size:
10px; font-family: Verdana, Arial, Helvetica; font-weight: bold }
.quente { color: #000000; text-decoration: none; font-size: 12px;
font-family: Verdana, Arial, Helvetica }
a:hover { text-decoration: underline}
-->
</STYLE>
<!-- Scripts para o menu animado-->
<SCRIPT language=3DJavaScript>
<!--
var menu=3D0;
function openpf() {
//window.open( "/productfinder/pf2.asp", "productfinder",
"toolbar=3D0,location=3D0,directories=3D0,status=3D0,menubar=3D0,scrollb
ars=3D0,resizable=3D0,width=3D332,height=3D170,top=3D100,left=3D100")
}
function showmenu( i )
{
if ( parseInt( navigator.appVersion ) >=3D 4 ) {
showmenu2( i );
}
}
function hidemenu()
{
if ( parseInt( navigator.appVersion ) >=3D 4 ) {
hidemenu2();
}
toggleFlash( 1 );
}
function openWin( url, name, width, height, top, left )
{
window.open( url, name, "toolbar=3D0,location=3D0,directories=3D0,statu
s=3D0,menubar=3D0,scrollbars=3D0,resizable=3D0,width=3D" + width +
",height=3D" + height + ",top=3D" + top + ",left=3D" + left)
}
//-->
</SCRIPT>
<SCRIPT language=3DJavascript1.2>
var trans=3Dfalse; // Enable/disable menu transition
var duration=3D0.35; // Length (in seconds) of menu transition
drawmenus();
</SCRIPT>
<!--#include file =3D "constantes_cdo.inc"-->
</head>
<body onload=3D"dynAnimation()" bgcolor=3D"#9dacb4" link=3D"#ffffff"
vlink=3D"#ffffff">
<p><font face=3D"Verdana" size=3D"2"><span style=3D"LEFT: 161px;
POSITION: absolute; TOP: 53px; Z-INDEX: 2"><a
onmouseover=3D"document['fpAnimswapImgFP19'].imgRolln=3Ddocument['fpAnim
swapImgFP19'].src;document['fpAnimswapImgFP19'].src=3Ddocument['fpAnimsw
apImgFP19'].lowsrc;"
onmouseout=3D"document['fpAnimswapImgFP19'].src=3Ddocument['fpAnimswapIm
gFP19'].imgRolln" href=3D"http://exchange/atan/default.htm"><IMG
border=3D0 height=3D32 id=3DfpAnimswapImgFP19
lowsrc=3D../images/Arquivos%20GIF/Home%20Levantado.gif
name=3DfpAnimswapImgFP19 src=3D"Home.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP19"></a></span></font><A
href=3D"../Projetos/Projetos_Principal.htm"
onmouseout=3D"document['fpAnimswapImgFP28'].src=3Ddocument['fpAnimswapIm
gFP28'].imgRolln"
onmouseover=3D"document['fpAnimswapImgFP28'].imgRolln=3Ddocument['fpAnim
swapImgFP28'].src;document['fpAnimswapImgFP28'].src=3Ddocument['fpAnimsw
apImgFP28'].lowsrc;"><span style=3D"LEFT: 221px; POSITION: absolute;
TOP: 53px"><IMG border=3D0 height=3D32 id=3DfpAnimswapImgFP28
lowsrc=3DPROJETOS_SHADOW.gif name=3DfpAnimswapImgFP28
src=3D"projetos_barra.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP28"></span></A><font
face=3D"Verdana" size=3D"2"><span style=3D"LEFT: 6px; POSITION:
absolute; TOP: 3px; Z-INDEX: 1"><a
onmouseover=3D"document['fpAnimswapImgFP18'].imgRolln=3Ddocument['fpAnim
swapImgFP18'].src;document['fpAnimswapImgFP18'].src=3Ddocument['fpAnimsw
apImgFP18'].lowsrc;"
onmouseout=3D"document['fpAnimswapImgFP18'].src=3Ddocument['fpAnimswapIm
gFP18'].imgRolln" href=3D"http://www.atan.com.br"><IMG border=3D0
height=3D72 id=3DfpAnimswapImgFP18
lowsrc=3DLogo_ATAN_para_animacao_02.jpg name=3DfpAnimswapImgFP18
src=3D"Logo_ATAN_para_animacao_01.jpg" width=3D73
dynamicanimation=3D"fpAnimswapImgFP18"></a></span><span style=3D"LEFT:
0px; POSITION: absolute; TOP: 0px; Z-INDEX: -1"><IMG border=3D0
height=3D112 src=3D"Bitmap_superior_esquerdo.gif"
width=3D266></span></font><span style=3D"LEFT: 302px; POSITION:
absolute; TOP: 53px"><A href=3D"../TechNews/default.htm"
onmouseout=3D"document['fpAnimswapImgFP29'].src=3Ddocument['fpAnimswapIm
gFP29'].imgRolln"
onmouseover=3D"document['fpAnimswapImgFP29'].imgRolln=3Ddocument['fpAnim
swapImgFP29'].src;document['fpAnimswapImgFP29'].src=3Ddocument['fpAnimsw
apImgFP29'].lowsrc;"><IMG border=3D0 height=3D32 id=3DfpAnimswapImgFP29
lowsrc=3DINF_TECNICAS_SHADOW.gif name=3DfpAnimswapImgFP29
src=3D"INF_TECNICAS.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP29"></A></span><A
href=3D"../Qualidade/Qualidade_Principal.htm"
onmouseout=3D"document['fpAnimswapImgFP30'].src=3Ddocument['fpAnimswapIm
gFP30'].imgRolln"
onmouseover=3D"document['fpAnimswapImgFP30'].imgRolln=3Ddocument['fpAnim
swapImgFP30'].src;document['fpAnimswapImgFP30'].src=3Ddocument['fpAnimsw
apImgFP30'].lowsrc;"><span style=3D"LEFT: 391px; POSITION: absolute;
TOP: 53px"><IMG border=3D0 height=3D32 id=3DfpAnimswapImgFP30
lowsrc=3DQUALIDADE_SHADOW.gif name=3DfpAnimswapImgFP30
src=3D"QUALIDADE.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP30"></span></A><span style=3D"LEFT:
466px; POSITION: absolute; TOP: 53px"><A href=3D"../Gerais/"
onmouseout=3D"document['fpAnimswapImgFP35'].src=3Ddocument['fpAnimswapIm
gFP35'].imgRolln"
onmouseover=3D"document['fpAnimswapImgFP35'].imgRolln=3Ddocument['fpAnim
swapImgFP35'].src;document['fpAnimswapImgFP35'].src=3Ddocument['fpAnimsw
apImgFP35'].lowsrc;"><IMG border=3D0 height=3D32 id=3DfpAnimswapImgFP35
lowsrc=3DOUTROS_SHADOW.gif name=3DfpAnimswapImgFP35 src=3D"outros.gif"
width=3D32 dynamicanimation=3D"fpAnimswapImgFP35"></A></span><span
style=3D"LEFT: 582px; POSITION: absolute; TOP: 53px"><a
onmouseover=3D"document['fpAnimswapImgFP36'].imgRolln=3Ddocument['fpAnim
swapImgFP36'].src;document['fpAnimswapImgFP36'].src=3Ddocument['fpAnimsw
apImgFP36'].lowsrc;"
onmouseout=3D"document['fpAnimswapImgFP36'].src=3Ddocument['fpAnimswapIm
gFP36'].imgRolln" href=3D"http://exchange.atan.com.br/exchange"><IMG
border=3D0 height=3D32 id=3DfpAnimswapImgFP36
lowsrc=3DCORRESPONDENCIAS_SHADOW.gif name=3DfpAnimswapImgFP36
src=3D"CORRESPONDENCIAS.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP36"></a></span><font
face=3D"Verdana"><span style=3D"LEFT: 525px; POSITION: absolute; TOP:
53px"><A href=3D"../Gerais/Telefones/default.asp"
onmouseout=3D"document['fpAnimswapImgFP37'].src=3Ddocument['fpAnimswapIm
gFP37'].imgRolln"
onmouseover=3D"document['fpAnimswapImgFP37'].imgRolln=3Ddocument['fpAnim
swapImgFP37'].src;document['fpAnimswapImgFP37'].src=3Ddocument['fpAnimsw
apImgFP37'].lowsrc;"><IMG border=3D0 height=3D32 id=3DfpAnimswapImgFP37
lowsrc=3DRamais_Levantado.gif name=3DfpAnimswapImgFP37
src=3D"Ramais.gif" width=3D32
dynamicanimation=3D"fpAnimswapImgFP37"></A></span></font></p>
<p> </p>
<p> </p>
<p> </p>
<form method=3D"post" >
<p align=3D"left"><span style=3D"LEFT: 377px; POSITION: absolute;
TOP: 9px"><input name=3D"StrSearch" size=3D"22" ></span><br>
<span style=3D"LEFT: 565px; POSITION: absolute; TOP: 9px"><input
type=3D"submit" value=3D"Busca!" name=3D"btnProcura"></span></p>
</form>
<p align=3D"left"><span style=3D"LEFT: 156px; POSITION: absolute; TOP:
88px"><map name=3D"FPMap1">
<area href=3D"http://exchange/atan/default.htm" shape=3D"RECT"
coords=3D"0,0,46,19" onmouseover =3Dshowmenu(0)>
<area href=3D"../../Projetos/Projetos_Principal.htm" shape=3D"RECT"
coords=3D"51,0,123,19" onmouseover =3Dshowmenu(1)>
<area href=3D"../../TechNews/" shape=3D"RECT" coords=3D"126,0,215,19"
onmouseover =3Dshowmenu(2)>
<area href=3D"../../Qualidade/Qualidade_Principal.htm" shape=3D"RECT"
coords=3D"217,0,298,19" onmouseover =3Dshowmenu(3)>
<area href=3D"../" shape=3D"RECT" coords=3D"301,0,362,19" onmouseover
=3Dshowmenu(4)>
<area href=3D"../Telefones/default.asp" shape=3D"RECT"
coords=3D"362,0,416,19" onmouseover =3Dshowmenu(7)>
<area href=3D"http://exchange.atan.com.br/exchange" shape=3D"RECT"
coords=3D"418,0,482,18" onmouseover =3Dshowmenu(7)>
</map><IMG border=3D0 height=3D20 src=3D"NOVO_MENU_COMPLETO.jpg"
useMap=3D#FPMap1 width=3D550></span>
<!-- Aqui come=E7a o formulario de clientes --></p>
<% dim objStore, objFolder, objRootFolder, objPersonalContactsFolder,
acao
acao =3D Request.Form("acao")
if IsEmpty(acao) then
acao =3D Request.QueryString("acao")
end if
if acao =3D "incluir" then
'Efetua logon
Usuario =3D Request.ServerVariables("REMOTE_USER")
n=3D instr(Usuario,"\")+1
Usuario =3D mid(Usuario,n)
strProfileInfo =3D "EXCHANGE" + vbLF + Usuario
'Estabelece a sessao
Set objSession =3D CreateObject("MAPI.Session")
objSession.Logon "", "", False, True, 0, True, strProfileInfo
Set objInfoStores =3D objSession.InfoStores
For i =3D 1 To objInfoStores.Count
If objInfoStores.Item(i)=3D "Public Folders" Then
Set objInfoStore=3DobjInfoStores.Item(i)
Exit For=09
End If
Next
bstrPublicRootID =3D objInfoStore.Fields.Item( CDO_ROOT_ID ).Value
Set objTopFolder =3D objSession.GetFolder(bstrPublicRootID, _
objInfoStore.ID)
Set objFolders =3D objTopFolder.Folders
Set objContactsFolder =3D objFolders.GetFirst()
Do Until objContactsFolder.Name =3D "Contatos"
Set objContactsFolder =3D objFolders.GetNext()
Loop
set objContactsFolders =3D objContactsFolder.Folders
set objFuncionariosFolder =3D objContactsFolders.GetFirst()
Do Until objFuncionariosFolder.Name =3D "Xavier"
Set objFuncionariosFolder =3D objContactsFolders.GetNext()
Loop
Set objContacts =3D objFuncionariosFolder.Messages
Set objContact =3D objContacts.Add(, , "IPM.Contact")
Set objFields =3D objContact.Fields
'Aqui estao os dados da tabela de dados
name =3D Request.Form("firstname")
lastname =3D Request.Form("lastname")
fullname =3D name & " " & lastname
company =3D Request.Form("company")
jobtitle =3D Request.Form("jobtitle")
business =3D Request.Form("business")
home =3D Request.Form("home")
businessfax =3D Request.Form("businessfax")
mobile =3D Request.Form("mobile")
businesswebpage =3D Request.Form("businesswebpage")
email =3D Request.Form("email")
'Aqui estao os dados da tabela de endere=E7o
dept =3D Request.Form("dept")
office =3D Request.Form("office")
profession =3D Request.Form("profession")
street =3D Request.Form("street")
city =3D Request.Form("city")
state =3D Request.Form("state")
country =3D Request.Form("country")
zipcode =3D Request.Form("zipcode")
homestreet =3D Request.Form("homestreet")
homecity =3D Request.Form("homecity")
homestate =3D Request.Form("homestate")
homecountry =3D Request.Form("homecountry")
homezipcode =3D Request.Form("homezipcode")
'dados
objFields.Add CDO_FULLNAME, fullname
objFields.Add CDO_NAME, name
objFields.Add CDO_LASTNAME, lastname
objFields.Add CDO_COMPANY, company
objFields.Add CDO_JOBTITLE, jobtitle
objFields.Add CDO_BUSINESS_FONE, business
objFields.Add CDO_HOME_FONE, home
objFields.Add CDO_BUSINESS_FAX, businessfax
objFields.Add CDO_CELULAR, mobile
objFields.Add CDO_WEBPAGE, businesswebpage
=09
'endere=E7o
objFields.Add CDO_DEPARTMENT, dept
objFields.Add CDO_DIVISION, office
objFields.Add CDO_HOME_STREET, homestreet
objFields.Add CDO_HOME_CITY, homecity
objFields.Add CDO_HOME_STATE, homestate
objFields.Add CDO_HOME_COUNTRY, homecountry
objFields.Add CDO_HOME_ZIPCODE, homezipcode
objFields.Add CDO_STREET, street
objFields.Add CDO_CITY, city
objFields.Add CDO_STATE, state
objFields.Add CDO_COUNTRY, country
objFields.Add CDO_ZIPCODE, zipcode
objContact.Update
acao =3D "incluido"
end if
if acao =3D "incluido" then %>
<p align=3D"center"><b><font size=3D"4">Inclus=E3o realizada com
sucesso.</font></b></p>
<% else %>
<DIV class=3DclsDocBody style=3D"HEIGHT: 723px; WIDTH: 980px">
<!--Start: ToolBar V2.0-->
<form method=3D"post" id=3D"IncluirContato" name=3D"IncluirContato">
<input type=3D"hidden" value=3D"<%=3Dacao%>" name=3D"acao" id=3D"acao">
<SCRIPT language=3Djavascript><!--
// -----------------------------------------------------------
// window_load()
// Container function for load.
// -----------------------------------------------------------
function window_load()
{
if ("function" =3D=3D typeof(RemoveLastPipe)) RemoveLastPipe();
}
window.onload =3D window_load;
//--></SCRIPT>
<TABLE border=3D0 cellPadding=3D0 cellSpacing=3D0 width=3D"541">
<TBODY>
<TR>
<TD align=3Dleft vAlign=3Dtop width=3D"539">
<TABLE bgColor=3D#9dacb4 border=3D0 cellPadding=3D2
cellSpacing=3D0 id=3DidTabs
style=3D"BEHAVIOR: url(#default#savehistory); COLOR: #9dacb4;
DISPLAY: none;
HEIGHT: 37px; WIDTH: 664px"
ONLOAD=3D"fnGetState()" width=3D"1" height=3D"24"
ONSAVE=3D"fnSaveState()"
>
<TBODY>
<TR vAlign=3Dcenter>
<TD class=3DclsTabSelected id=3Dtabs
onclick=3D"fnTabClick('0');" width=3D"76" height=3D"16">
<A href=3D"javscript:void();" onclick=3D"return
fnTabClick('0');">Dados</A></TD>
<TD class=3DclsTab id=3Dtabs onclick=3D"fnTabClick('1');"
width=3D"47" height=3D"16">
<A href=3D"javscript:void();" onclick=3D"return
fnTabClick('1');">Endere=E7o</A></TD>
<TD width=3D"7" bgcolor=3D"#b3bfc6" height=3D"16"><font
color=3D"#b3bfc6">.</font> &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p; &nbs
p;</TD>
</TR>
<TR>
<TD bgColor=3D#9dacb4 colSpan=3D3 height=3D1
width=3D"144"> </TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT>tabs[1].width=3D"100%";
idTabs.style.display=3D"block";</SCRIPT>
<A name=3DFeatureTab></A>
<TABLE border=3D0 cellPadding=3D0 cellSpacing=3D0
id=3DtblHeadFeatures width=3D"121">
<TBODY>
<TR>
<TD align=3Dleft colSpan=3D2>
</TD>
</TR>
<TR>
<TD bgColor=3D#9dacb4 height=3D18 noWrap vAlign=3Dcenter>
<font color=3D"#ffffff"><b>Dados</b></font></TD>
<TD align=3Dright width=3D"12"></TD>
</TR>
<TR>
<TD align=3Dleft bgColor=3D#9dacb4 colSpan=3D2
vAlign=3Dtop></TD>
</TR></TBODY>
</TABLE>
<SCRIPT>tblHeadFeatures.style.display=3D"none";</SCRIPT>
<TABLE border=3D0 cellPadding=3D0 cellSpacing=3D0
id=3DnewsContent bgcolor=3D"#9dacb4" width=3D"612">
<TBODY>
<TR>
<TD width=3D136><font size=3D"2">Primeiro Nome:</font></TD>
<TD width=3D179><INPUT maxLength=3D255 name=3Dfirstname size=3D25>
</TD>
<TD width=3D141><FONT size=3D2>Sobrenome:</FONT></TD>
<TD width=3D116><INPUT maxLength=3D255 name=3Dlastname size=3D25>
</TD></TR>
<TR>
<TD width=3D"136"><font size=3D"2">Empresa:</font></TD>
<TD width=3D"179"><INPUT maxLength=3D255 name=3Dcompany size=3D25>
</TD>
<TD width=3D"141"><font size=3D"2">Cargo:</font></TD>
<TD width=3D"116"><INPUT maxLength=3D255 name=3Djobtitle size=3D25>
</TD></TR>
<TR>
<TD colSpan=3D4 width=3D"479">
<HR style=3D"HEIGHT: 2px; WIDTH: 597px">
</TD></TR>
<TR>
<TD width=3D"136"><FONT size=3D2>Telefone Comercial:</FONT></TD>
<TD width=3D"179"><INPUT maxLength=3D255 name=3Dbusiness size=3D25>
</TD>
<TD width=3D"141"><FONT size=3D2>Telefone Residencial:</FONT></TD>
<TD width=3D"116"><INPUT maxLength=3D255 name=3Dhome size=3D25>
</TD></TR>
<TR>
<TD width=3D"136"><font size=3D"2">Telefone Fax:</font></TD>
<TD width=3D"179"><INPUT maxLength=3D255 name=3Dbusinessfax
size=3D25> </TD>
<TD width=3D"141"><font size=3D"2">Telefone Celular:</font></TD>
<TD width=3D"116"><INPUT maxLength=3D255 name=3Dmobile size=3D25>
</TD></TR>
<TR>
<TD colSpan=3D4 width=3D"479">
<HR style=3D"HEIGHT: 2px; WIDTH: 597px">
</TD></TR>
<TR>
<TD width=3D"136"><FONT size=3D2>Web page:</FONT></TD>
<TD width=3D"179"><INPUT maxLength=3D255 name=3Dbusinesswebpage
size=3D25> </TD>
<TD width=3D"141"><FONT size=3D2>E-mail:</FONT>
<IMG border=3D0 height=3D14 src=3D"prop.gif" width=3D16></TD>
<TD width=3D"116"><INPUT maxLength=3D255 name=3Demail
size=3D25></TD>
</TR>
<TR>
<TD colSpan=3D4>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p></p>
</TD>
</TR>
</TBODY>
</TABLE>
<A name=3DNE_anchor></A>
<TABLE border=3D0 cellPadding=3D0 cellSpacing=3D0 id=3DtblHeadNE>
<TBODY>
<TR>
<TD align=3Dleft colSpan=3D2></TD></TR>
<TR>
<TD bgColor=3D#9dacb4 height=3D18 noWrap
vAlign=3Dcenter><FONT
color=3D#ffffff size=3D2><B>Endere=E7o</B></FONT></TD>
<TD align=3Dright></TD>
</TR>
<TR>
<TD align=3Dleft bgColor=3D#9dacb4 colSpan=3D2
vAlign=3Dtop></TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT>tblHeadNE.style.display=3D"none";</SCRIPT>
<TABLE border=3D0 cellPadding=3D0 cellSpacing=3D0
id=3DnewsContent>
<TBODY>
<TR>
<TD>
<TABLE bgColor=3D#9dacb4 border=3D0 cellPadding=3D0 cellSpacing=3D0
width=3D"612">
<TBODY>
<TR>
<TD width=3D112><FONT size=3D2>Departmento:</FONT></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Ddept size=3D25>
</TD>
<TD width=3D176><FONT size=3D2>Office:</FONT></TD>
<TD width=3D"267"><INPUT maxLength=3D255 name=3Doffice size=3D25>
</TD></TR>
<TR>
<TD width=3D"107"><FONT size=3D2>Profession:</FONT></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Dprofession
size=3D25> </TD></TR>
<TR>
<TD colSpan=3D4>
<HR>
</TD></TR>
<TR>
<TD colSpan=3D4><INPUT CHECKED name=3Daddrselect type=3Dradio
value=3Dbusiness><FONT size=3D2> <B>Endere=E7o
Comercial:</B></FONT></TD></TR>
<TR>
<TD width=3D107><font size=3D"2">Rua:</font></TD>
<TD width=3D"195"><TEXTAREA name=3Dstreet rows=3D3></TEXTAREA>
</TD>
<TD width=3D153><FONT size=3D2>Cidade:</FONT></TD>
<TD width=3D"248"><INPUT maxLength=3D255 name=3Dcity size=3D25>
</TD></TR>
<TR>
<TD width=3D"107"><font size=3D"2">Estado:</font></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Dstate size=3D25>
</TD>
<TD width=3D"153"><FONT size=3D2>Pa=EDs:</FONT></TD>
<TD width=3D"248"><INPUT maxLength=3D255 name=3Dcountry size=3D25>
</TD></TR>
<TR>
<TD width=3D"107"><font size=3D"2">CEP:</font></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Dzipcode size=3D25>
</TD></TR>
<TR>
<TD colSpan=3D4>
<HR>
</TD></TR>
<TR>
<TD colSpan=3D4><INPUT name=3Daddrselect type=3Dradio
value=3Dhome><FONT size=3D2>
<B>Endere=E7o Residencial:</B></FONT></TD></TR>
<TR>
<TD width=3D"107"><font size=3D"2">Rua:</font></TD>
<TD width=3D"195"><TEXTAREA name=3Dhomestreet rows=3D3></TEXTAREA>
</TD>
<TD width=3D"153"><FONT size=3D2>Cidade:</FONT></TD>
<TD width=3D"248"><INPUT maxLength=3D255 name=3Dhomecity size=3D25>
</TD></TR>
<TR>
<TD width=3D"107"><font size=3D"2">Estado:</font></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Dhomestate
size=3D25> </TD>
<TD width=3D"153"><FONT size=3D2>Pa=EDs:</FONT></TD>
<TD width=3D"248"><INPUT maxLength=3D255 name=3Dhomecountry
size=3D25> </TD></TR>
<TR>
<TD width=3D"107"><font size=3D"2">CEP:</font></TD>
<TD width=3D"195"><INPUT maxLength=3D255 name=3Dhomezipcode
size=3D25></TD>
</TR></TBODY></TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<SCRIPT>newsContent[1].style.display=3D"none";var
sText=3D1</SCRIPT>
<A name=3DMA_anchor></A>
</TD></TR></TBODY></TABLE>
<p
align=3D"left"> &nb
sp; &nb
sp; &nb
sp; &nb
sp;
<input type=3D"submit" value=3D"Inserir" name=3D"B1"
onClick=3D"Incluir(); return false"> <input
type=3D"reset" value=3D"Limpar" name=3D"B2"></p>
</form>
</DIV>
<%
'limpa os objetos
Set objSession =3D nothing
Set objInfoStores =3D nothing
Set objTopFolder =3D nothing
Set objFolders =3D nothing
Set objContactsFolder =3D nothing
Set objFuncionariosFolder =3D nothing
Set objClientesFolder =3D nothing
Set objContacts =3D nothing
Set objFilter =3D nothing
Set objContact =3D nothing
Set objFields =3D nothing
Set objAddressList =3D nothing
Set objAddressEntries =3D nothing
end if
%>
</body>
</HTML>
------_=_NextPart_000_01BFDAB2.A3C6B6EA--
Message #5 by <sweber@c...> on Tue, 20 Jun 2000 16:02:13 +0200
|
|
Andr=E9,
Did you check the web page I mentioned in another reply to you
yesterday? It is http://www.cdolive.com/cdo10.htm. This page includes a
(undocumented, unsupported and incomplete) list of MAPI properties you
need to read/write contact data. Basically you're not using the correct
MAPI properties for the business address. Please check the page and
you'll see what you need to change in your app.
</Siegfried>
--
Microsoft Most Valuable Professional (MVP) - Exchange Server
Co-author of "Professional CDO Programming", Wrox Press 1999
Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
Books (due out in August 2000)
CDOLive - The Premier Resource for Microsoft Collaboration Data Objects
http://www.cdolive.com
mailto:sweber@c...
This message has been sent to you using Microsoft Exchange Server 2000
Release Candidate 2 (Build 6.0.4368)
> -----Original Message-----
> From: Andr=E9 da Cunha Peixoto Xavier
> Posted At: Tuesday, June 20, 2000 2:26 PM
> Posted To: Wrox ASP CDO
> Conversation: [asp_cdo] RE: Business Address in a Contact Form
> Subject: [asp_cdo] RE: Business Address in a Contact Form
>
>
> I can fill all fields only the business address that I could not fill.
> The files are attach. Please help me...
>
> Andr=E9 da Cunha Peixoto Xavier
> ATAN Sistemas de Automa=E7=E3o
> Depto. de Inform=E1tica
> Tel.: (31) 261.9702
> xavier@a...
>
>
>
Message #6 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?= on Tue, 20 Jun 2000 16:18:29 -0300
|
|
Usuario = Request.ServerVariables("REMOTE_USER")
n= instr(Usuario,"\")+1
Usuario = mid(Usuario,n)
strProfileInfo = "EXCHANGE" + vbLF + Usuario
'Estabelece a sessao
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", False, True, 0, True, strProfileInfo
Set objInfoStores = objSession.InfoStores
For i = 1 To objInfoStores.Count
If objInfoStores.Item(i)= "Public Folders" Then
Set objInfoStore=objInfoStores.Item(i)
Exit For
End If
Next
bstrPublicRootID = objInfoStore.Fields.Item( CDO_ROOT_ID ).Value
Set objTopFolder = objSession.GetFolder(bstrPublicRootID, _
objInfoStore.ID)
Set objFolders = objTopFolder.Folders
Set objContactsFolder = objFolders.GetFirst()
Do Until objContactsFolder.Name = "Contatos"
Set objContactsFolder = objFolders.GetNext()
Loop
set objContactsFolders = objContactsFolder.Folders
set objFuncionariosFolder = objContactsFolders.GetFirst()
Do Until objFuncionariosFolder.Name = "Xavier"
Set objFuncionariosFolder = objContactsFolders.GetNext()
Loop
Set objContacts = objFuncionariosFolder.Messages
Set objContact = objContacts.Add(, ,"IPM.Contact")
Set objFields = objContact.Fields
'Aqui estao os dados da tabela de dados
name = Request.Form("firstname")
lastname = Request.Form("lastname")
fullname = name & " " & lastname
company = Request.Form("company")
jobtitle = Request.Form("jobtitle")
business = Request.Form("business")
home = Request.Form("home")
businessfax = Request.Form("businessfax")
mobile = Request.Form("mobile")
businesswebpage = Request.Form("businesswebpage")
email = Request.Form("email")
'Aqui estao os dados da tabela de endere=E7o
dept = Request.Form("dept")
office = Request.Form("office")
profession = Request.Form("profession")
street = Request.Form("street")
city = Request.Form("city")
state = Request.Form("state")
country = Request.Form("country")
zipcode = Request.Form("zipcode")
homestreet = Request.Form("homestreet")
homecity = Request.Form("homecity")
homestate = Request.Form("homestate")
homecountry = Request.Form("homecountry")
homezipcode = Request.Form("homezipcode")
'dados
objFields.Add CDO_FULLNAME, fullname
objFields.Add CDO_NAME, name
objFields.Add CDO_LASTNAME, lastname
objFields.Add CDO_COMPANY, company
objFields.Add CDO_JOBTITLE, jobtitle
objFields.Add CDO_BUSINESS_FONE, business
objFields.Add CDO_HOME_FONE, home
objFields.Add CDO_BUSINESS_FAX, businessfax
objFields.Add CDO_CELULAR, mobile
objFields.Add CDO_WEBPAGE, businesswebpage
'endere=E7o
objFields.Add CDO_DEPARTMENT, dept
objFields.Add CDO_DIVISION, office
objFields.Add CDO_HOME_STREET, homestreet
objFields.Add CDO_HOME_CITY, homecity
objFields.Add CDO_HOME_STATE, homestate
objFields.Add CDO_HOME_COUNTRY, homecountry
objFields.Add CDO_HOME_ZIPCODE, homezipcode
objFields.Add CDO_STREET, street <-- here is the problem
objFields.Add CDO_CITY, city <-- here is the problem
objFields.Add CDO_STATE, state <-- here is the problem
objFields.Add CDO_COUNTRY, country <-- here is the problem
objFields.Add CDO_ZIPCODE, zipcode <-- here is the problem
objContact.Update
Message #7 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?= on Wed, 21 Jun 2000 14:54:40 -0300
|
|
Yes, I check but I do not understand.
See if I am wrong:
objFields.Add CDO_STREET, street <-- here is the problem
the right way?
objFields.Add CDO_STREET, vbVariant, street, CDO_PROPSET3
-----Original Message-----
From: sweber@c... []
Sent: ter=E7a-feira, 20 de junho de 2000 11:02
To: ASP CDO
Subject: [asp_cdo] RE: Business Address in a Contact Form
Andr=E9,
Did you check the web page I mentioned in another reply to you
yesterday? It is http://www.cdolive.com/cdo10.htm. This page includes a
(undocumented, unsupported and incomplete) list of MAPI properties you
need to read/write contact data. Basically you're not using the correct
MAPI properties for the business address. Please check the page and
you'll see what you need to change in your app.
</Siegfried>
--
Microsoft Most Valuable Professional (MVP) - Exchange Server
Co-author of "Professional CDO Programming", Wrox Press 1999
Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
Books (due out in August 2000)
CDOLive - The Premier Resource for Microsoft Collaboration Data Objects
http://www.cdolive.com
mailto:sweber@c...
This message has been sent to you using Microsoft Exchange Server 2000
Release Candidate 2 (Build 6.0.4368)
> -----Original Message-----
> From: Andr=E9 da Cunha Peixoto Xavier
> Posted At: Tuesday, June 20, 2000 2:26 PM
> Posted To: Wrox ASP CDO
> Conversation: [asp_cdo] RE: Business Address in a Contact Form
> Subject: [asp_cdo] RE: Business Address in a Contact Form
>
>
> I can fill all fields only the business address that I could not
fill.
> The files are attach. Please help me...
>
> Andr=E9 da Cunha Peixoto Xavier
> ATAN Sistemas de Automa=E7=E3o
> Depto. de Inform=E1tica
> Tel.: (31) 261.9702
> xavier@a...
>
>
>
Message #8 by <sweber@c...> on Tue, 27 Jun 2000 19:25:02 +0200
|
|
Using:
objFields.Add CDO_STREET, vbString, street, CDO_PROPSET3
is the right direction. But you need to declare:
Const CDO_PROPSET3 = "0420060000000000C000000000000046"
and all other business address related MAPI properties like this:
Const CDO_STREET = "0x8045"
before you use them in your script code, because they are not available
as native build into CDO 1.x. You can find the MAPI properties on
http://www.cdolive.com/cdo10.htm
Good luck!
</Siegfried>
--
Microsoft Most Valuable Professional (MVP) - Exchange Server
Co-author of "Professional CDO Programming", Wrox Press 1999
Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
Books (due out in August 2000)
CDOLive - The Premier Resource for Microsoft Collaboration Data Objects
http://www.cdolive.com
mailto:sweber@c...
This message has been sent to you using Microsoft Exchange Server 2000
Release Candidate 2 (Build 6.0.4368)
> -----Original Message-----
> From: Andr=E9 da Cunha Peixoto Xavier
> Posted At: Wednesday, June 21, 2000 7:55 PM
> Posted To: Wrox ASP CDO
> Conversation: [asp_cdo] RE: Business Address in a Contact Form
> Subject: [asp_cdo] RE: Business Address in a Contact Form
>
>
> Yes, I check but I do not understand.
> See if I am wrong:
>
> objFields.Add CDO_STREET, street <-- here is the problem
>
> the right way?
> objFields.Add CDO_STREET, vbVariant, street, CDO_PROPSET3
>
> -----Original Message-----
> From: sweber@c... []
> Sent: ter=E7a-feira, 20 de junho de 2000 11:02
> To: ASP CDO
> Subject: [asp_cdo] RE: Business Address in a Contact Form
>
>
> Andr=E9,
>
> Did you check the web page I mentioned in another reply to you
> yesterday? It is http://www.cdolive.com/cdo10.htm. This page
> includes a
> (undocumented, unsupported and incomplete) list of MAPI properties you
> need to read/write contact data. Basically you're not using
> the correct
> MAPI properties for the business address. Please check the page and
> you'll see what you need to change in your app.
>
> </Siegfried>
> --
>
> Microsoft Most Valuable Professional (MVP) - Exchange Server
> Co-author of "Professional CDO Programming", Wrox Press 1999
> Co-author of "Microsoft Exchange Server 2000 Programming Bible, IDG
> Books (due out in August 2000)
>
> CDOLive - The Premier Resource for Microsoft Collaboration
> Data Objects
> http://www.cdolive.com
> mailto:sweber@c...
>
> This message has been sent to you using Microsoft Exchange Server 2000
> Release Candidate 2 (Build 6.0.4368)
>
>
> > -----Original Message-----
> > From: Andr=E9 da Cunha Peixoto Xavier
> > Posted At: Tuesday, June 20, 2000 2:26 PM
> > Posted To: Wrox ASP CDO
> > Conversation: [asp_cdo] RE: Business Address in a Contact Form
> > Subject: [asp_cdo] RE: Business Address in a Contact Form
> >
> >
> > I can fill all fields only the business address that I
> could not fill.
> > The files are attach. Please help me...
> >
> > Andr=E9 da Cunha Peixoto Xavier
> > ATAN Sistemas de Automa=E7=E3o
> > Depto. de Inform=E1tica
> > Tel.: (31) 261.9702
> > xavier@a...
Message #9 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?=-- <Xavier@a...> on Wed, 28 Jun 2000 10:46:27 -0300
|
|
Thanks for all guys,
I had put this:
objFields.Add CDO_STREET, street <-- here is the problem
Now I put that and it is working
objFields.Add CDO_STREET, 8, street
Const CDO_STREET = "{0420060000000000C000000000000046}0x8045"
But now I have one little problem. I have a contact form that I had created
using CDO, but I want to create a asp page to modify that form. How I do
that?
|
|
|
View Cart
