Så här ser koden ut som plockar upp innehållet i formuläret men när det kommer fram klipper den av texten som skrivits i "Meddelande"! Enbart några ord i en mening kommer fram.
Någon som har några tips?
<%
'Värden från textboxarna
mailtext = Request("namn")
mailtext = Request("foretag")
mailtext = Request("email")
mailtext = Request("telefon")
mailtext = Request("mottagare")
mailtext = Request("meddelande")
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")
' Inställningar för SMTP
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail1.theland.se"
Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = "info@mig.se"
objMessage.From = Request ("email")
objMessage.Subject = "Från mailformuläret!"
objMessage.HTMLBody = "<b>Namn:</b> " & Request("namn")& "." & "<BR>" & vbCrLf &_
"<b>Företag:</b> " & Request("foretag")& "." & "<BR>" & vbCrLf &_
"<b>E-post:</b> " & Request("email")& "." & "<BR>" & vbCrLf &_
"<b>Telefon:</b> " & Request("telefon")& "." & "<BR>" & vbCrLf &_
"<b>Mottagare:</b> " & Request("mottagare")& "." & "<BR>" & vbCrLf &_
"<b>Meddelande:</b> " & Request("meddelande")& "." & "<BR>" & vbCrLf &_
objMessage.fields.update
objMessage.Send
set objMessage = nothing
set objConfig = nothing
%>
Någon som har några tips?
<%
'Värden från textboxarna
mailtext = Request("namn")
mailtext = Request("foretag")
mailtext = Request("email")
mailtext = Request("telefon")
mailtext = Request("mottagare")
mailtext = Request("meddelande")
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")
' Inställningar för SMTP
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail1.theland.se"
Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = "info@mig.se"
objMessage.From = Request ("email")
objMessage.Subject = "Från mailformuläret!"
objMessage.HTMLBody = "<b>Namn:</b> " & Request("namn")& "." & "<BR>" & vbCrLf &_
"<b>Företag:</b> " & Request("foretag")& "." & "<BR>" & vbCrLf &_
"<b>E-post:</b> " & Request("email")& "." & "<BR>" & vbCrLf &_
"<b>Telefon:</b> " & Request("telefon")& "." & "<BR>" & vbCrLf &_
"<b>Mottagare:</b> " & Request("mottagare")& "." & "<BR>" & vbCrLf &_
"<b>Meddelande:</b> " & Request("meddelande")& "." & "<BR>" & vbCrLf &_
objMessage.fields.update
objMessage.Send
set objMessage = nothing
set objConfig = nothing
%>
Kommentera