13 svar · 566 visningar · startad av Mav
Jag vill skapa en html sida (inte asp) som jag fyller i min kompis email adress och mitt namn. Skickar sedan formuläret till en asp sida som skickar ett fördefinerat mail. Inga problem att skapa en asp sida för allt men nu slumpar det sig att jag vill ha en html sida först.
Hur fixar jag till det?
Så här ser koden ut för html sida:
<form method="POST" action="tipsatest_page2.asp" name="form1">
Tipsa en vän: <br>
Ditt namn: <input type="text" name="SendersName"><br>
Friends Email: <input type="text" name="FriendEmail" size="29"><br>
<input type="submit" value="Tipsa">
</form>
och för asp sidan:
<html><body>
<%
Dim URL, SenderName
If Len(Request.Form("SendersName")) > 0 Then
Dim objMail,FriendEmail
sBody = "Du har blivit tipsad av " & Request.Form("SendersName") & vbCrLf & vbcrlf
I=0
Do While True
FriendEmail = Request.Form("FriendEmail" & I)
If Len(FriendEmail) = 0 Then
Exit Do
Else
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "info@domain.com"
objMail.Subject = "Du har blivit tipsad!"
objMail.Importance=1
objMail.Body = sBody
objMail.To = FriendEmail
objMail.Send()
End If
I=I+1
Loop
Set objMail = Nothing
Else
End If
%>
Tack, ditt tips är nu på väg till din vän!</body></html>
Vad är felet, om man får fråga?
Det är inga problem att ha en HTML-sida, som du har nu. Men vad får du för felmeddelande?
/r Detta inlägg är skrivet utav Brimba.
Jag missade att det var Lindas inlogg/lösen som låg i cookies.. 
[Redigerat av Linda den 20 dec 2001]
Problemet är att inget mail skickas!
Varför har du en loop?
Ska man kunna skicka till flera kompisar?
Som det just nu är i formuläret så har du endast ett fält som det ska skickas till: FriendEmail
När du "hämtar" till vilken kompis det ska skickas till börjar du en loop som ska hämta alla email-adresser som ska skickas:
Do While True
FriendEmail = Request.Form("FriendEmail" & I)
If Len(FriendEmail) = 0 Then
Exit Do
Else
Det första emailfältet som efterfrågas är ett fält som heter: FriendEmail0 och något sådant har du inte i ditt formulär och således går den in i ifsatsen och kör en exit do, dvs, inget mail kommer att skickas.
cya,
PatrikB
cya,
PatrikB
Jag får spel!!!!
Hur jag än vrider o vänder så funkar det inte....
Från början var det menat att man skulle kunna skicka till flera men nu ska det bara vara ett fält.
Hur f*n ska jag skriva koden???
Sådär! Nu funkar det. Tack för hjälpen!
För att utöka detta, kan man på ngt sätt skicka html mail på detta vis?
Nu e jag inte så hemma på CDONTS men skulle tro att det finns någon metod/genskap där man kan ställa content-type så det blir html och ej plain text
cya,
PatrikB
Inte jag heller men får söka efter lite info. Tack för hjälpen!
Förresten finns det ngt annat sätt man kan göra det på?
Hittade info på Microsoft site. Funkar kanon nu.
Tack för all hjälp alla...
Försöker nu att få asp sidan att ta med info från ett formulärfälten men det vill sig inte riktigt. Mailet går iväg men det står "This mail whas sent to you by "& Request.Form(""SendersName"")"
Vill ju att det ska stå det som fylls i i det fältet.
<%
Dim SenderName, HTML
If Len(Request.Form("SendersName")) > 0 Then
Dim objMail,FriendEmail
...
HTML = HTML & "This mail whas sent to you by "
HTML = HTML & "& Request.Form(""SendersName"")"
HTML = HTML & "</body>"
...
FriendEmail = Request.Form("FriendEmail")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "info@domain.com"
objMail.Subject = "Du har blivit tipsad!"
objMail.Importance=1
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Body=HTML
objMail.To = FriendEmail
objMail.Send()
End If
%>
Hittade felet. Ingen behöver göra sig besvär.
Tack!
Bra att du hittade felet.
Själv tycker jag att det är kul om man kan posta lösningen även om man hittar den själv. (Om den kan vara av intresse för andra.)
Det gör forumet mer komplett när man sedan söker efter hjälp på frågor som redan avhandlats.
IMHO.
Gott nytt år på er alla!
Postar nu lösningen
Html sidan:
<form method="POST" action="aspsida.asp" name="form1">
Recommended URL: [url="http://www.domain.com"]www.domain.com[/url] </p>
Namn: <input type="text" name="SendersName" size="25">
Friends Email: <input type="text" name="FriendEmail" size="29">
<input type="submit" value="Recommend Page"></form>
asp sidan:
<body>
<%
Dim SenderName, HTML
If Len(Request.Form("SendersName")) > 0 Then
Dim objMail,FriendEmail
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<IMG src=""/images/image.gif"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Tipsa! ""HTML Tip a friend""</strong></p>"
HTML = HTML & "<p><font size =""2"" face=""Tahoma"">"
HTML = HTML & "Allows an easy way to send mail.<br>"
HTML = HTML & "This example shows how the content can be "
HTML = HTML & "an HTML page<br>"
HTML = HTML & "which allows you to send rich text and"
HTML = HTML & "inline graphics.</p>"
HTML = HTML & "This mail whas sent to you by "
HTML = HTML & Request.Form("SendersName")
HTML = HTML & "</body>"
HTML = HTML & "</html>"
FriendEmail = Request.Form("FriendEmail")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "info@domain.com"
objMail.Subject = "Du har blivit tipsad!"
objMail.Importance=1
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Body=HTML
objMail.To = FriendEmail
objMail.Send()
End If
%>
Tack, ditt tips är nu på väg till din vän!
</body>