% function asp_short_url(strUrl) Dim oXml,strTinyUrl strTinyUrl = "http://tinyurl.com/api-create.php?url=" & strUrl set oXml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") oXml.Open "GET", strTinyUrl, false oXml.Send null asp_short_url = oXml.responseText Set oXml = nothing End Function dim name dim flag dim url name=request("name") flag=request("flag") site="http://www.dop.co.il/speishelim/data/cards/RoshHaShana/shanaTova.asp?name="&name url = asp_short_url(site) %>
בכדי לשלוח ברכה זו סמן כתובת זו באמצעות העכבר - אחר כך העתק/י(CTRL+C) והדבק/י(CTRL+V) כתובת זו לאימייל להודעה באיסיקיו או לכל מקום אחר ושלח/י לחברים. שנה טובה!:
<%=url%> שימו לב, הפרסומות והסברים אלו לא יופיעו בכרטיס שתשלחו לחבריכם. חג שמח מצוות דופ: |
||
|
||
מאחל\ת בהמון אהבה |
||