send e-mail

please help!V momenta pravia sait na edna firma-[линк] zapitvaniata mi se obrabotvat i sahraniavat v brinkstera-ASP-kakto i da e,problema mi e kak da napravia scripta taka,ce stom zapitvaneto se zapise v bazata danni,da mi se izprasta e-mail da recem v yahooto-celta mi e da polucavam sms pri vsiako novo zapitvane-namerih koda na VB,no nesto ne moga da go priloza v moia script

po princip tova se pravi s CDONTS(potarsi v msdn tam ima dosta primeri)
no v sluchaia ako hostinga na brinkster e general solution t.e. free tozi component ne se predlaga
triabva da si platish za da go polzvash na brinkster
az chestno kazano dosega neznam za free hosting koito da predlaga cdonts free

mersi,ste go vidia,no hostinga e free...

Poneve nqmam mnogo opit s Brinkster i kakwo pozwolqwa i kakwo ne, eto edin po alternatiwen wariant...

Namira6 priqtel koito ima hosting koito mu pozwolqwa da izpra6ta e-mail po nqkakyw na4in (perl, asp, php, cfm, ... kakywto i da e) i go moli6 za usluga...

Zna4i tozi priqtel ti slaga edno skript4e (primerno usluga.cgi) - tozi skript move da prieme kato parametri (FORM GET ili POST) primerno e-mail i tip zaqwka.

Kogato skripta se izwika, toi izpra6ta e-mail na podadeniq e-mail 4e tip X zaqwka e bila naprawena, sled koeto wry6ta kato output content-type=image/gif i sydyrvanieto na edin 1x1 prozra4en gif.

Na twoqta stranica si slaga6 ne6to kato

<% If IShouldSendEmail Then %>
<img src="myfriends.domain/path/usluga.cgi?email=<%=email%>&type=<%type%>" width=1 height=1>
<% End If %>

Po tozi na4in, ako kogato iska6 da izprati6 email, prosto slaga6 img tag 4iito src e skripta na server-a na twoq priqtel. Tozi skript ot swoq strana se grivi da izprati email i da wyrne kato rezultat prozra4en gif...

blagodaria,tova bi bilo variant,ako imah takav priatel...no ne se sestam.Az si misleh ce moga da napisa script,koito da go pravi,kato izprasta saobstenieto kam SMTP server ot kom red...cel sam go niakade,no kade li...spommniam si samo ce se izvikvase netcat,na kogoto se podavase tekstov fail s podhodiastite SMTP komandi i danni kato vhod,a kato izhod 25 port na SMTP server,koito obace da pozvoliaval podobno izprastane-losoto e ce i poniatie si niamam ot SMTP komandi,MIMEi tn...mislia ce taka dori mogat da se prikacat failove,niakoi zapoznat li e pone kade moga da go proceta tova...

<% If IShouldSendEmail Then %>
<img src="myfriends.domain/path/usluga.cgi?email=<%=email%>&type=<%type%>" width=1 height=1>
<% End If %>

И някой, като си е изключил графиката ...

<%
If IShouldSendEmail Then
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET" , "[линк]"&email&"&type="&type&"&" , False
xml.Send
' Response.BinaryWrite xml.responseBody
Set xml = Nothing
End If
%>

Май е по-добро решение :)

зора е да се сдобиеш с акаунт на НЯКОЙ СМТП сървър.
Тогава не ти трябва команден ред, може пак през АСП да викнеш отдалечения СМТП сървър да свърши работата по пощата !

UB40 !

И как става това, че започна да ми става интересно :-?

[линк]
[линк]
[линк]


'Sending a text email using a remote server

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.TextBody = "This is some sample message text."

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _
("[линк]") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("[линк]") = "smtp.myserver.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("[линк]") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send



--------------------------------------------------------------------------------

'Sending a text email using authentication against a remote SMTP server

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = """Me"" <[email protected]>"
objMessage.To = "[email protected]"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("[линк]") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("[линк]") = "mail.your.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("[линк]") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("[линк]") = "youruserid"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("[линк]") = "yourpassword"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("[линк]") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("[линк]") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("[линк]") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

UB40 !

Че след като прерових 1000 сайта, на които имаше само компоненти се отказах :)
Ама то това даже и работи :) 10x

И първия пример ли работи. За втория знам, но неудобството е че трябва да си напишеш и паролата за мейла.
Първия пример за сега не съм успял да го подкарам.
При всички случаи се иска сървър. Това става, като си вземеш платен мейл.

Каквото и да си говорим, става дума за пари!

Ми аз пробвах само втория (е леко го промених) ама пак си пиша паролата :(
Е ако става дума за мейл със SMTP аз си намерих безплатен :)

Баси къф си стиснат ! И аз искам :-)))
Иначе специално за Бринкстер се наложи да попрепиша всичко с файлови операции - големи маймуни са !

UB40 !

Не е в БГ имат доста добра анти спам защита(не можеш да пращаш много еднакви писма в определен период от време) и ти пращат малко реклама на пощата ама кат за мен става. Е и не може да праща писма към mbox.bol.bg :(
Кат за теб учи полски :)
[линк]
Кликаш там дет пише 10MB :)

Какви "файлови операции" при мен всичко е ОК :)
Това правиш ли го в началото на всеки скрипт :
<%@ LANGUAGE = VBScript CODEPAGE="1251"%><% Option Explicit %>
<%
Session.Codepage = 1251
Response.CharSet = "windows-1251"

'bla bla bla

%>

имам си един малък скрипт за фул текст сърч в един сайт (или дадена поддиректория).
Е, при използване на ФайлСистемОбджект тия пичове от съображения за сигурност си правят трансформации. В резултат на това линковете на сърч формата ми излизат неверни !
Както и да е - а това за какво ми го показваш ? С кирилизациите и т.н. ? Имам добавка към тоя хедър - два реда които ЕФИКАСНО зачистват кеша (иначе става веселба често) :-))

UB40 !

Това за сърча го разбрах ама проблема за линковете май не е в ФайлСистемОбджект ?
По принцип като пращаш e-mail без кирилизиране не става (няма да ти излезе кирилицата) :(
Какви са тия два реда, че днес ми се скапа 32MB от рам-а и без това ми е много весело и от какво ще ми стане още по-весело, ако не ги сложа двата реда ?

Когато ФайлСистемОбджект върне грешен път към файла , а аз го използвам като линк при представянето на резултатите от сърча - ето го и проблема.
С малка преработка става ама що да е така ?
Иначе за таговете за кеш:

Response.Expires=0 ' - works with IE 4.0 browsers.
Response.AddHeader "Pragma","no-cache" ' - works with proxy servers.
Response.AddHeader "cache-control", "no-store" ' - works with IE 5.0 browsers.


Алтернативна ХТМЛ употреба:

<head>
<META NAME="Expires" CONTENT="0">
<META NAME="Pragma" CONTENT="no-cache">
<META NAME="cache-control" CONTENT="no-store">
</head>

UB40 !

Така и не мога да те разбера защо да връща грешен път (мноу съм тъп, може би защото не го ползвам) дай примеррррррррррррррр.

За таговете - че аз винаги ползвам <META NAME="Pragma" CONTENT="no-cache"> даже и в HTML, е понягога и Response.Expires=0 ама защо да ми става весело, ако не ги сложа (просто няма да се рефрешва).

Аз това за кирилицата го писах, защото без него не можеш да пратиш меил на кирилица.

Два файла:

1. search.html

<HTML>
<HEAD>
<meta HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">
</HEAD>
<BODY>
<FORM NAME="frmSearch" METHOD="get" ACTION="search.asp">
<TABLE BORDER="0" align=center>
<TR>
<TD>
Ключови думи:
</TD>
<TD>
<FONT COLOR="black">
<INPUT NAME="terms" TITLE="Enter the
keywords to search on here!" >
</FONT>
</TD>
</TR>
<TR>
<TD>
Условия:
</TD>
<TD>
<FONT COLOR="black">
<SELECT NAME="boolean" SIZE="1">
<OPTION VALUE="AND" selected
>And</OPTION>
<OPTION VALUE="OR">Or</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
</TABLE>
<P>
<CENTER>
<FONT COLOR="black">
<INPUT TYPE="submit" VALUE="Търсене">
</FONT>
</CENTER>
</FORM>
</BODY></HTML>

2. search.asp

<%@ Language=VBScript %>
<%
Response.Expires=0
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">
</HEAD>
<BODY>
<%
Function FormatURL(strPath)
'ERROR !!!!!! Path is not formatted properly !
'Cut off everything before wwwroot and replace all \ with /
Dim iPos
iPos = InStr(1,strPath,"./",1)
Dim str
a=Len(strPath)-iPos+1
str = right(strPath,a)
FormatURL = Replace(str,"\","/")
' FormatURL = Replace(strPath,"\","/")
End Function


Function GetFiles(objFolder, aLookFor, strLF, bolLFFound,bolAnd, iCount)
If Left(objFolder.Name,1) = "_" then exit function

Const iListPerPage = 9

if iCount > iListPerPage then Exit Function

'Now, loop through each file
Dim objFile, objTextStream, objFSO, strContents, iUBound, iLoop, bolValid
Dim strTitle, iPos, strDesc
iUBound = UBound(aLookFor)

For Each objFile in objFolder.Files
'Do we need to search this file?
If UCase(Right(objFile.Name,4)) = ".HTM" or UCase(Right(objFile.Name,5)) = ".HTML" or UCase(Right(objFile.Name,4)) = ".ASP" then
If bolLFFound then
if objFile.Size > 0 then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(objFile.Path,1)
strContents = objTextStream.ReadAll
objTextStream.Close
Set objFSO = Nothing

if bolAnd then bolValid = True else bolValid = False
For iLoop = 0 to iUBound
If InStr(1,strContents,aLookFor(iLoop),1) then
if Not bolAnd then bolValid = True
Else
If bolAnd then bolValid = False
End If
Next

If bolValid then
iPos = InStr(1,strContents,"<!--TITLE:")
If iPos = 0 then
strTitle = "Untitled (" & objFile.Name & ")"
strDesc = ""
Else
strTitle = Mid(strContents,iPos+10,InStr(iPos,strContents,"-->")-iPos-10)

iPos = InStr(iPos,strContents,"<!--DESC:")
If iPos = 0 then
strDesc = ""
Else
strDesc = Mid(strContents,iPos+9,InStr(iPos,strContents,"-->")-iPos-9)
End If
End If

Response.Write "<A HREF=""" & FormatURL(objFile.Path) & """>" & _
strTitle & "</A><BR>" & vbCrLf
Response.Write "<FONT SIZE=2>" & strDesc
Response.Write "</FONT><P>" & vbCrLf
iCount = iCount + 1
End if
If iCount > iListPerPage then
strLF = FormatURL(objFile.Path)
exit function
End If
End If
Elseif FormatURL(objFile.Path) = strLF then
bolLFFound = True
End If
End if
Next

Dim objSubFolder
For Each objSubFolder in objFolder.SubFolders
GetFiles objSubFolder,aLookFor,strLF,bolLFFound,bolAnd,iCount
Next
End Function

'Search the site!
Dim strKeywords
strKeywords = Request("terms")

'Split the terms on spaces
Dim termsArray
termsArray = split(strKeywords," ")

'Set the boolean search option
Dim bolAnd
If Request("boolean") = "AND" then bolAnd = True else bolAnd = False

Dim section
section = Request("selSearchWhere")

'Get the dirs to search
section = Server.MapPath(".")

'What page are we on?
Dim strLastFile
strLastFile=Request("lf")

Dim objFSO, objFolder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(section)
Set objFSO = Nothing
%>
<CENTER><FONT SIZE=+2><B>
Резултати от търсенето:
</B></FONT><BR>
<FONT SIZE=2><A HREF="search.html">Корекции в заявката за търсене.</A></FONT>
</CENTER>
<P><HR><P>
Това са резултатите от търсенето:
<P>
<%
Dim iResults
iResults = 0

'Now, recurse the directories
If Len(strLastFile) = 0 then
GetFiles objFolder,termsArray,strLastFile,True,bolAnd,iResults
Else
GetFiles objFolder,termsArray,strLastFile,False,bolAnd,iResults
End If

Set objFolder = Nothing

If iResults = 10 then
'Show next page link
%>
<P><HR><P><LI><FONT SIZE=2><B>
<A HREF="search.asp?terms=<%=Server.URLEncode(strKeywords)%>&boolean=<%=Request("boolean")%>&selSearchWhere=<%=Request("selSearchWhere")%>&lf=<%=Server.URLEncode(strLastFile)%>">
Още резултати:
</A></FONT>
<P>
<% Elseif iResults = 0 then
'No results found %>
<B>Няма документи,съдържащи ключова дума !</B><BR>
<FONT SIZE=2><A HREF="/search/">Ново търсене.</A></FONT>
<% End IF %>
</BODY></HTML>

Та ето това нещо не оформя коректно линковете си в Бринкстер. С лека преработка ефекта се преодолява, но е гнусно мамка му !

UB40 !

дадения от мен вариант РАБОТИ.
Твоят - понякога :-))))
ПП: Не е ли весело да виждаш все една и съща стара страница и да си мислиш че правиш нещо ? ;-))) Например да си дебъгваш АСП-тата...

UB40 !