webForumDet fria alternativet
Logga in / Bli medlem

Från JMAIL till CDONTS

ASP

20 svar · 438 visningar · startad av Denniss

DennissMedlem sedan maj 2003176 inlägg
Frågan#1

Någon som kan hjälpa ??

<%
Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient Request.querystring("till")
jmail.From = Request.Form("Epost")
Jmail.Priority = 1
jmail.Subject = request.form("amne")

jmail.appendHTML "<html><body><font face=verdana size=2><b>"&request.form("Amne")&"!</b></font><p>"
jmail.appendHTML "<font face=verdana size=1>"&request.form("Meddelande")&"<p>"
jmail.appendHTML "<font face=verdana size=1>Mvh/"&request.form("Namn")&"</font></body></HTML>"

'*************** smtp server till loopia *******
jmail.Send( "smtp.minsida.nu")
'***********************************************
'*********************************************
response.redirect "skicka.asp"
%>

DennissMedlem sedan maj 2003176 inlägg
#2

Någon ??

KimGs avatarKimGMedlem sedan apr. 2002105 inlägg
#3

Prova detta:


<%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(Request.querystring("till"))
newMail.Subject =  trim(request.form("amne"))
newMail.Importance  =  1
newMail.Host  = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing

%>

Har valt att sätta trim() på alla Request objekt, då de tar bort overflödiga " " tecken, samt att lägga meddelandet i en variabel som är mer överskådlig.

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#4

http://www.webforum.nu/search.php?s=&forumid=22

cascaMedlem sedan feb. 20005 891 inlägg
#5

Flyttas från Webbutveckling - Övrigt.

DennissMedlem sedan maj 2003176 inlägg
#6

Funkar inte. Vet ej varför. Kommer till en "tom sida" och skulle komma till en sida som finns. Och email går inte fram.

DennissMedlem sedan maj 2003176 inlägg
#7

<%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(Request.querystring("till"))
newMail.Subject = trim(request.form("amne"))
newMail.Importance = 1
newMail.Host = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%>

Så ser den ut

DennissMedlem sedan maj 2003176 inlägg
#8

Från kontaktformulär går ingen meddelande till slutadressen.

KimGs avatarKimGMedlem sedan apr. 2002105 inlägg
#9

Varför har du en Querystring i koden??
Skriver du in adressen i kontaktformuläret och skickar medhjälp av Post metoden (method="post") så ska du ju använda Request.Form istället.... Då Querystrings skickas med hjälp av Get.

DennissMedlem sedan maj 2003176 inlägg
#10

hmmm

jag får inte det att funka

hur skall koden se ut ??

KimGs avatarKimGMedlem sedan apr. 2002105 inlägg
#11

Om du kör hela formuläret med method="post" så ska koden se ut så här:

 <%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(request.form("till"))
newMail.Subject = trim(request.form("amne"))
newMail.Importance = 1
newMail.Host = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%>
DennissMedlem sedan maj 2003176 inlägg
#12

<form method="POST" onSubmit="return kontrollera()" action="skicka_nu.asp?till=<%=recset("epost")%>" name="epost">
<table id="AutoNumber1" style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="100%" border="0">
<tbody>
<tr>
<td class="verdana2" align="right"><font size="1" face="Verdana">Ditt
Namn:</font></td>
<td class="verdana2"><input maxLength="50" size="17" name="Namn"></td>
</tr>
<tr>
<td class="verdana2" align="right"><font size="1" face="Verdana">Din
E-post:</font></td>
<td class="verdana2"><input maxLength="50" size="17" name="Epost"></td>
</tr>
<tr>
<td class="verdana2" align="right"><font size="1" face="Verdana">Ämne:</font></td>
<td class="verdana2"><input maxLength="50" size="35" value="Ang. <%=recset("rubrik")%>" name="Amne"></td>
</tr>
<tr>
<td class="verdana2" vAlign="top" align="right"><font size="1" face="Verdana">Meddelande:</font></td>
<td class="verdana2"><textarea name="Meddelande" rows="7" cols="30"></textarea><br>
 </td>
</tr>
<tr>
<td class="verdana2" align="right"> </td>
<td class="verdana2"><input type="submit" value="Skicka" name="submit"> <input onclick="javascript:history.go(-1)" type="button" value="Tillbaka" name="tillbaka"> 
 </td>
</tr>
</tbody>
</table>
</form>

Första sidan där jag har formuläret ser så ut..

Sen skall man hamna på sidan skicka.asp.

Men det gör man inte.

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#13
  1. Hur ser kontrollera() ut?
  2. använd [kod]-taggar

mvh

DennissMedlem sedan maj 2003176 inlägg
#14

??

Förstår inte riktigt.

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#15

Vad är det du inte förstår?

DennissMedlem sedan maj 2003176 inlägg
#16

Vad skall jag kolla ?

  1. Hur ser kontrollera() ut?

Hur ser den ut ? Vilken rad skall jag kolla ??

  1. använd [kod]-taggar

VAR någonstans ??

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#17
  1. Javascriptfunktionen kontrollera() kör du ju när du skickar formuläret. Hur ser den funktionen ut?
  2. Runt den koden du postar, lämpligtvis. Det blir lättare att läsa då.

Och koden i skicka_nu.asp, hur ser den ut?

DennissMedlem sedan maj 2003176 inlägg
#18

<script language="Javascript">
function kontrollera(){

if(document.epost.Namn.value==""){
alert('Du glömde skriva ditt namn!')
return false;
}
if(document.epost.Epost.value==""){
alert('Du glömde skriva din epost!')
return false;
}
if(document.epost.Amne.value==""){
alert('Du glömde skriva in ett rubrik!')
return false;
}
if(document.epost.Meddelande.value==""){
alert('Du glömde skriva in ett meddelande!')
return false;
}
}
</script>

DennissMedlem sedan maj 2003176 inlägg
#19

skicka.asp

<%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(request.form("till"))
newMail.Subject = trim(request.form("amne"))
newMail.Importance = 1
newMail.Host = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%>

<meta http-equiv="Content-Language" content="sv">
<p align="center"><b><font size="5">Tack ditt meddelande
är nu
skickat!</font></b></p>

DennissMedlem sedan maj 2003176 inlägg
#20

skicka_nu.asp är den koden där uppe

259 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)