MavMedlem sedan juni 2000117 inlägg 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>
------------------
//Mav
[Redigerat av Mav den 20 dec 2001]
LindaMedlem sedan sep. 200085 inlägg 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.. :x
[Redigerat av Linda den 20 dec 2001]
MavMedlem sedan juni 2000117 inlägg Problemet är att inget mail skickas!
------------------
//Mav
PatrikBMedlem sedan mars 20002 836 inlägg 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
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
MavMedlem sedan juni 2000117 inlägg 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???
------------------
//Mav
MavMedlem sedan juni 2000117 inlägg 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?
------------------
//Mav
PatrikBMedlem sedan mars 20002 836 inlägg 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
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
MavMedlem sedan juni 2000117 inlägg 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å?
------------------
//Mav
PatrikBMedlem sedan mars 20002 836 inlägg Skicka en HTML-fil som ett Attachment kanske ...
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
MavMedlem sedan juni 2000117 inlägg Hittade info på Microsoft site. Funkar kanon nu.
Tack för all hjälp alla...
------------------
//Mav
MavMedlem sedan juni 2000117 inlägg 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
%>
------------------
//Mav
MavMedlem sedan juni 2000117 inlägg Hittade felet. Ingen behöver göra sig besvär.
Tack!
------------------
//Mav
solbulleMedlem sedan mars 20015 287 inlägg 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.
------------------
/solbulle
Hemmabio | Spelautomater | The Who
MavMedlem sedan juni 2000117 inlägg 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>
------------------
//Mav
[Redigerat av Mav den 02 jan 2002]
