inga citationstecken runt bengt i request.form, jeppe:
body = body & bengt & " : " & request.form(bengt) & vbcrlf
mvh
7 svar · 364 visningar · startad av jispir
Tjenare jag har ett jmail script som ska hämta info från olika formulär sen skicka iväg men jag har så att man slipper ändra i scriptet varje gång man byter formulär fält men det funakr inte den skriver inte med innehållet som finns i de fälten.
koden ser ut så här:
<%
Name = Request.Form("Namn")
SenderEmail = Request.Form("email")
Subject = "Uppdatering"
' MOTTAGARE AV MAILET
Recipient = "min.epost@telia.com"
for each bengt in request.form
body = body & bengt & " : " & request.form("bengt") & vbcrlf
next
ref = Request.form("referens")
epost = Request.form("email")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "www.webtomten.com"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body & vbcrlf
jmail.appendtext "Namn: " & ref & vbcrlf
jmail.appendtext "E-Post: " & epost & vbcrlf & vbcrlf
JMail.Priority = 3
' INKLUDERA AVSÄNDARENS IP_ADRESS I MAILETS HEADER
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>
så här ser mailet ut jag får:
referens :
test :
email :
submit :Namn: test
E-Post: dina@adress.com
hoppas nån kan hjälpa mig
inga citationstecken runt bengt i request.form, jeppe:
body = body & bengt & " : " & request.form(bengt) & vbcrlf
mvh
Tackar för den hjälpen @nders
*ett annat fel nu*
jag har så att den ska hämta mail adressen som mailet ska skickas med i databas men när jag hämtar mail adressen
me följande kod:
id=request.querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\min.mdb"))
sql="SELECT epost, url FROM info WHERE id="&id&""
set visa_info=conn.execute(sql)
if not visa_info.eof then
epost=visa_info("epost")
hemsida=visa_info("url")
else
response.write("hittade ingen med detta id")
response.end
end if
så händer inget jag får inget mail eller nått scriptet som skickar mailen ser ut så här
Subject = "mail från ditt formmail"
' MOTTAGARE AV MAILET
Recipient = "& epost &"
for each bengt in request.form
body = body & bengt & " : " & request.form(bengt) & vbcrlf
next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "www.webtomten.com"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body & vbcrlf
JMail.Priority = 3
' INKLUDERA AVSÄNDARENS IP_ADRESS I MAILETS HEADER
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>
om du inte skickar en avsändaradress så skickas inte något mail, men det genererar inte heller något felmeddelande.
är du säker på att du får med dig en avsändaradress?
koden som skickar ser ut så här nu
<% Subject = "mail från ditt formmail"
' MOTTAGARE AV MAILET
Recipient = "& epost &"
for each bengt in request.form
body = body & bengt & " : " & request.form(bengt) & vbcrlf
next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "www.webtomten.com"
JMail.Sender = verktyg@verktygsladan.com
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body & vbcrlf
JMail.Priority = 3
' INKLUDERA AVSÄNDARENS IP_ADRESS I MAILETS HEADER
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>
men jag får detta felmeddelande
jmail.SMTPMail (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/webcom/mini/formmail/SendMail.asp, line 69
Mail servern svara m.m ingen fara med det för jag kan använda andra mail script jag har.
först :
byt:
Recipient = "& epost &"
till
Recipient = epost
(förutsatt att du har en variabel som heter epost som innehåller en mailadress givetvis...)
nu har du dessutom glömt citationstecknen...
JMail.Sender = "verktyg@verktygsladan.com"
detta problem är löst via icq, bara så ni vet.