Problem so e-mail skripta

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Sub Button1_Click(sender As Object, e As EventArgs)
Label1.Text = SendMail("Feedback form", TextBox1.Text, TextBox2.Text)
End Sub
Function SendMail(Subject As String, FromAddress As String, _
Message As String) As String
Dim mailMessage As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
mailMessage.From = someone@example.com"
mailMessage.To = "someone@example.com"
mailMessage.Subject = "Email Subject"
mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text
mailMessage.Body = Message
System.Web.Mail.SmtpMail.SmtpServer = "localhost"
System.Web.Mail.SmtpMail.Send(mailMessage)
SendMail = "Your message was sent to " & mailMessage.To
End Function

---------------------------------------------------------------------------------------------------
ne ja svakam skriptava, odnosno del od kodot, sta treba da napisem kod SMPTserver, kako mogu doznati koj e moj SMPT server??
HELP

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hehe,
pa jel imas uopste email account u okvritu web hostinga na kome hostujes sajt , ako imas account da li ti taj account dozvoljava da saljes mailove sa stranica sajta , pogledaj help kod kompanije kod koje hostujes ili bar napisi kod koga hostujes sajt pa da vidimo dal neko zna gde ti pise smtp server alias kod te kompanije.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Moj sajt je na Beotelu. AKo posetilac zaboravi paswword treba na odgovarajucoj formi da upise e-mail adresu sa kojom se je registroavao i da klikom na Submit dobije odgovor na tu adresu.
Kod u ASP-u koji sam nasao na <a href = "http://www.w3schools.com">http://www.w3schools.com</a> je sledeci:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="VAS PASSWORD"
myMail.From="xxxx@xxx.com"
myMail.To="strEmail"
myMail.TextBody="Ovo je Vas password: " & strPassword
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="luke.beotel.net"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
Ispod sam dao kako sam ga "uklopio" u odgovrajucu asp stranicu.
Kao rezultat, na browseru dobijem tacan odgovor kako je i navedeno u komentaru na liniji:'***** OBRATI PAZNJU NA OVO
Ali na e-mail adresu ne dobijam odgovor.
U cemu je problem?
Ako neko zna - neka mi pomogne

Ovo ispod je kompletan kod za asp stranicu: nadjiPaswword.asp

<%
DIM strEmail, objConn, mySQL, objRS
strEmail = Request.Form("Email")

IF strEmail <> "" THEN

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mojabaza.mdb")

mySQL = "SELECT Email,Password FROM nazivTabele WHERE Email = '" & strEmail & "'"
Set objRS = objConn.execute(mySQL)

IF objRS.EOF THEN
Response.Write "Ova email adresa nije pronadjena u nasoj bazi podataka. Molimo kliknite na strelicu Back na Vasem browseru i upisite adresu s kojom ste se registrovali."
ELSE
DIM strPassword
strPassword = objRS("Password")


Set myMail=CreateObject("CDO.Message")
myMail.Subject="VAS PASSWORD"
myMail.From="xxxx@xxx.com"
myMail.To="strEmail"
myMail.TextBody="Ovo je Vas password: " & strPassword
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="luke.beotel.net"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Response.Write "Vas password je: " & strPassword '***** OBRATI PAZNJU NA OVO
END IF

ELSE
Response.Write "Molimo kliknite na strelicu Back na Vasem browseru i upisite adresu s kojom ste se registrovali."


objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
END IF
%>

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

zar to nije phishing