PDahlenMedlem sedan apr. 2004778 inläggOm webbhotellet säger att det där är vad du ska använda så är det CDONTS, vilket är bra för dig.
Då kan du använda min kod rakt av med en liten ändring eftersom du måste ange Host.
Här är den korrigerade koden. Ladda upp och testa.
<%@ Language=VBScript %>
if Request.Form("isSubmitted") = "yes" then
EmailFrom = Request.Form("Email_Address_From")
EmailTo = Request.Form("Email_Address_To")
EmailBody = Request.Form("SenderName") & vbcrlf
EmailBody = strBody & Request.Form("Email_Body") & vbcrlf
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = EmailFrom
objCDO.To = EmailTo
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = Request.Form("Email_Subject")
objCDO.Body = EmailBody
objCDO.Host = "smtp1.b-one.nu"
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
mailsent = True
else
mailsent = False
end if
%>
<html>
<head>
<title> Skicka Mail </title>
</head>
<body>
<% if mailsent then %>
Ditt mail har skickats
<% else %>
<form action="sendmail.asp" method="post" name="Input_Form">
Ditt namn:<br>
<input type="text" name="SenderName"<br><br>
Din e-postadress:<br>
<input type="text" name="Email_Address_From"<br><br>
Mailets ämne:<br>
<input type="text" name="Email_Subject"<br><br>
Ditt meddelande:<br>
<textarea name="Email_Body" COLS="40" ROWS="10"></textarea><br><br>
<input type="hidden" value="mailadressattskickatill@mail.com" name="Email_Address_To">
<input type="hidden" name="isSubmitted" value="yes">
<input type="submit" value="Skicka" id="submit1" name="submit1"><br>
</form>
% end if %>
</body>
</html>
IImjojojoMedlem sedan jan. 200454 inlägg Tack, det är till bra hjälp, men vid action står det "sendmail.asp", ska formuläret heta så eller???
PDahlenMedlem sedan apr. 2004778 inläggMin asp-fil heter sendmail.asp så du får döpa din asp-fil till det eller ändra action till vad din fil heter.
IImjojojoMedlem sedan jan. 200454 inlägg Så det ska vara två dokument alltså?
VVimpMedlem sedan juli 20022 537 inlägg
Imjojojo skrev:
Så det ska vara två dokument alltså?
Nej, spara koden PDahlen skrev som sendmail.asp och ladda upp på ditt webbhotell.
IImjojojoMedlem sedan jan. 200454 inlägg När jag föröker komma in står det bara The page cannot be displayed
VVimpMedlem sedan juli 20022 537 inlägg Vad är adressen till filen?
Har du tagit bort "visa anpassade http-felmeddelanden" i ie?
IImjojojoMedlem sedan jan. 200454 inlägg
cyprysMedlem sedan dec. 20003 563 inläggDu har lagt den i fel mapp. Kontrollera igen.
IImjojojoMedlem sedan jan. 200454 inlägg Vilken mapp ska den vara i da?
Mr NilsMedlem sedan jan. 2000640 inlägg
Mr NilsMedlem sedan jan. 2000640 inläggdet menas att filen ligger hos comhem, som inte verkar ha stöd för asp?
IImjojojoMedlem sedan jan. 200454 inlägg Det gör den ju inte alls, det ska den iaf inte
Mr NilsMedlem sedan jan. 2000640 inläggok, för filen ligger inte på
http://www.jojos-world.com/sendmail.asp
men när jag går in på din hemsida (jojosimwold) så studstar den till comhemsidan, där sendmail.asp finns.
Mr NilsMedlem sedan jan. 2000640 inläggsåg nu att du hade b-one. så då borde det fungera om du lägger upp filen på rätt ställe.
(nu är dock filen upplagd)
IImjojojoMedlem sedan jan. 200454 inlägg Ja, men jag får inte kontakt med mitt webhotell :x :(
PDahlenMedlem sedan apr. 2004778 inläggJo, filen ligger där men det kan vara jag som missat något. Det verkar saknas ett End.
Kollar
...
PDahlenMedlem sedan apr. 2004778 inläggOk, det hade trillat bort ett tecken.
Här är den fungerande koden. Detta är alltså den kompletta sendmail.asp. Bara att kopiera, klistar in, ladda upp och köra.
<%@ Language=VBScript %>
<%
if Request.Form("isSubmitted") = "yes" then
EmailFrom = Request.Form("Email_Address_From")
EmailTo = Request.Form("Email_Address_To")
EmailBody = Request.Form("SenderName") & vbcrlf
EmailBody = strBody & Request.Form("Email_Body") & vbcrlf
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = EmailFrom
objCDO.To = EmailTo
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = Request.Form("Email_Subject")
objCDO.Body = EmailBody
objCDO.Host = "smtp1.b-one.nu"
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
mailsent = True
else
mailsent = False
end if
%>
<html>
<head>
<title> Skicka Mail </title>
</head>
<body>
<% if mailsent then %>
Ditt mail har skickats
<% else %>
<form action="sendmail.asp" method="post" name="Input_Form" ID="Form1">
Ditt namn:<br>
<input type="text" name="SenderName"><br><br>
Din e-postadress:<br>
<input type="text" name="Email_Address_From"><br><br>
Mailets ämne:<br>
<input type="text" name="Email_Subject"><br><br>
Ditt meddelande:<br>
<textarea name="Email_Body" COLS="40" ROWS="10"></textarea><br><br>
<input type="hidden" value="mailadressattskickatill@mail.com" name="Email_Address_To" ID="Hidden1">
<input type="hidden" name="isSubmitted" value="yes">
<input type="submit" value="Skicka" id="submit1" name="submit1"><br>
</form>
<% end if %>
</body>
</html>
IImjojojoMedlem sedan jan. 200454 inlägg Visst, kolla nu på https://www.jojos-world.com/sendmail.asp och se vad som händer när man klicka skicka