MSSQL den Xml post etmek

[esrehmaan]

MSSQL den Xml post etmeye ne dersiniz ?

Xml ile sms post etmek için yazdığım kodları direk paylaşıyorum. Firmadan firmaya xml yapısı değişe bilir

örnek xml yapısı : 

<sms>
	<kno>[kullanicino]</kno>
	<kulad>[kullaniciAdi]</kulad>
	<sifre>[sifre]</sifre>
	<gonderen>[baslik]</gonderen>
		<telmesajlar>
			<telmesaj>
			<tel>90[telefon]</tel>
			<mesaj>[mesaj]</mesaj>
		</telmesaj>
	</telmesajlar>
</sms>

create Procedure [dbo].[Sp_SmsYollamaDirek]
	@id varchar(100) = '',
	@telefon varchar(15) = '',
	@Ad varchar(100) = '',
	@Soyad varchar(100) = '',
	@Mesaj varchar(200) output
as
SET NOCOUNT ON
declare @Object int,
@xmmlformati varchar(max)
----------------------------
declare @sms_firma_kullanici_adi varchar(50)
declare @sms_firma_sifre varchar(50)
declare @sms_firma_baslik varchar(50)
declare @sms_firma_kullanici_no varchar(50)
declare @sms_firma_url varchar(50)
declare @sms_firma_xml varchar(max)
declare @amac varchar(50)

select top(1)
@sms_firma_kullanici_adi=Firma_UserName,
@sms_firma_sifre=Firma_Password,
@sms_firma_url=Firma_Url,
@sms_firma_baslik=Firma_Baslik,
@sms_firma_kullanici_no=Firma_Kodu,
@sms_firma_xml=Firma_Yapi  
from Sms_Firma where Durum='1'
		set @Mesaj=[dbo].[SmsTrKarakter] (@Mesaj)
		set @Ad=[dbo].[SmsTrKarakter] (@Ad)
		set @soyad=UPPER(@soyad)
		set @soyad=[dbo].[SmsTrKarakter] (@soyad)
		set @telefon =REPLACE(@telefon,' ','')
		set @telefon =REPLACE(@telefon,')','')
		set @telefon =REPLACE(@telefon,'(','')
		set @telefon =REPLACE(@telefon,'-','')
		set @telefon =REPLACE(@telefon,'_','')
		set @mesaj = REPLACE(@mesaj COLLATE Turkish_CS_AS,'[ad]',ltrim(rtrim(@Ad))+' ')
		set @mesaj = REPLACE(@mesaj COLLATE Turkish_CS_AS,'[soyad]',ltrim(rtrim(@Soyad))+' ')
		set @mesaj = REPLACE(@mesaj COLLATE Turkish_CS_AS,'[telefon]',@telefon)
		set @sms_firma_xml = REPLACE(@sms_firma_xml COLLATE Turkish_CS_AS,'[kullaniciAdi]',@sms_firma_kullanici_adi)
		set @sms_firma_xml = REPLACE(@sms_firma_xml COLLATE Turkish_CS_AS,'[sifre]',@sms_firma_sifre)
		set @sms_firma_xml = REPLACE(@sms_firma_xml COLLATE Turkish_CS_AS,'[baslik]',@sms_firma_baslik)
		set @sms_firma_xml = REPLACE(@sms_firma_xml COLLATE Turkish_CS_AS,'[telefon]',@telefon)
		set @sms_firma_xml = REPLACE(@sms_firma_xml COLLATE Turkish_CS_AS,'[mesaj]',@mesaj)
		set @xmmlformati =@sms_firma_xml
if (@Mesaj!='')
	begin
		Exec master..sp_OACreate 'MSXML2.ServerXMLHTTP', @Object OUTPUT;
		Exec master..sp_OAMethod @Object, 'open', null, 'POST', @sms_firma_url, 'false'
		Exec master..sp_OAMethod @Object, 'setRequestHeader', null, 'Content-Type', 'application/text'
		Exec master..sp_OAMethod @Object,'send', null, @xmmlformati
		update Sms_Gecmis set Durum='1' where id=@id
	end

Rep Puanı vermeyi unutmazsanız sevinirim ))