Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


CDONTS svenska tecken och html

Postades av 2009-03-26 15:10:05 - Tomas Ericson, i forum asp - allmänt, Tråden har 0 Kommentarer och lästs av 1588 personer

Har ett script i cdonts som skickar e-post från en enkel sida. Vanligt kontaktformulär som fungerar bra på så sätt att mejlen i alla fall kommer fram. Brukar göra formulär i Jmail men webbservern för denna sida stödjer inte det. Problemen är två;
- främst att svenska tecken som å, ä och ö inte kommer med i bodyn när mejlet tas emot. Fungerar dock bra i ämnesraden.
- samt att jag gärna vill ändra utseendet på mejlet, dvs i vilken ordning uppgfiterna skrivs ut mm. Hittar dock inte detta i den fil jag fick av webbhotellet för att skicka formuläret.

Den filen som det skickas via heter sendform.asp (kod nedan), och formuläret ligger i en separat asp-fil på sidan.

sendform.asp:

<%
'###################### READ THIS FIRST ########################
'#################################################################

'TO PERSONALIZE YOUR EMAIL MESSAGES OR TO CHANGE TECHINAL
'SETTINGS, PLEASE SCROLL DOWN TO "EDIT ONLY THESE LINES" AREA

' BEWARE !!!!!
'----------------
'Your form should contain a field named 'Email' where the visitor
'should enter his or her e-mail address. When you give this field
'the name e-mail or emailaddress or anything else IT WON'T WORK !!
'IT CAN ONLY BE 'Email'.


'#################################################################
'#################################################################



'*****************************************************************
'DETECT FORM VARIABLES
'*****************************************************************

email_var_present = 0
if len(request.form) > 1 then
'Loop to find each variable name and varible value
for each variable_name in request.form
dim variable_name
variable_value=request.form(variable_name)
HTML_VAR_TAGS = HTML_VAR_TAGS & variable_name & " = " & variable_value & "<br>" & chr(13)
if variable_name = "Email" then
email_var_present = 1
Email = variable_value
end if
next ' end for next loop for all
else
'if no form values are passed end file response and give error message:
response.write "No form values detected. File actions stopped."
response.end
end if

if email_var_present = 0 then
response.write "There is no input field named 'Email'. Make sure you have got a field named 'Email' in your form."
response.end
end if

Dim sendersname_Registrant, company_name, smtp_address, smtp_port, send_method, connection_timeout, smtp_authentication, ToClientSubject, ToAdminSubject, ToClientText, strEmailAdminister




'#################################################################
'#################################################################
'*****************************************************************

' EDIT ONLY THESE LINES:

'*****************************************************************
'#################################################################
'#################################################################

'##############
'** EDIT **
'EMAIL DETAILS
'##############
company_name = "foretag"
AdminEmail = "info@tagfish.se"
ToClientSubject = "Tack for ditt mail"
ToAdminSubject = "Meddelande skickat från hemsidan"
ConfirmationUrl = "tack.asp"

ToClientText = "<FONT SIZE='2' FACE='ARIAL'><p>Your reservervation was successfully received. Thank you for your trust in " & company_name & " !!<br><br>We will confirm your reservation as soon as possible.</p><p>&nbsp;</p><p>Kind regards,<br>" & company_name & "<br><br><br></FONT>"
ToAdminText = "<FONT SIZE='3' FACE='ARIAL'><p>Du har fått ett meddelande skickat från din hemsida.<br>Kontaktinformation:<br><br>" & HTML_VAR_TAGS & "</p></font>"



'== DON'T EDIT ==
strEmailAdminister = AdminEmail
sendersname_Registrant = company_name
finalsendersname_Registrant = sendersname_Registrant & " <" & Trim(strEmailAdminister) & ">"
'== DON'T EDIT ==



'###################
'** EDIT **
'TECHNICAL SETTINGS:
'###################
'THIS IS IMPORTANT !!! CHANGE THESE SETTINGS SO THEY WORK FOR YOUR SERVER !
'IF YOU DON'T KNOW THESE SETTINGS, ASK YOUR HOSTING PROVIDER.
'-------------------------------------------------------------
smtp_address= "smtp1.infracom.se"
'THIS COULD BE ANYTHING, ASK YOUR ISP FOR SMTP WEB DETAILS...
smtp_port = 25
connection_timeout = 10


'*****************************************************************
'/////////////////////////////////////////////////////////////////
'#################################################################
'#################################################################




'*****************************************************************
'DECLARE OTHER VARIABLES
'*****************************************************************

' -- declare variables for html body tags --
dim HtmlStartTags, HtmlEndTags
HtmlStartTags = "<html><body>"
HtmlEndTags = "</body></html>"

'*****************************************************************


'*****************************************************************
'CONFIGURE GLOBAL SERVER SETTINGS
'=================================================================
response.Expires = -1000
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields




'*****************************************************************
'SEND SECOND MAIL
'*****************************************************************
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = smtp_address
.Item(cdoSMTPServerPort) = smtp_port
.Item(cdoSMTPConnectionTimeout) = connection_timeout
.Item(cdoSMTPAuthenticate) = cdoBasic
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
.To = finalsendersname_Registrant
.From = Email
.Subject = ToAdminSubject
.HTMLBody = HtmlStartTags & ToAdminText & HtmlEndTags
.Send
End With


'********************************************************************
'WRITE CONFIRMATION TEXT
'********************************************************************
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
response.redirect(ConfirmationUrl)


'####################################################################
'YOU CAN DOWNLOAD THIS ASP FILE IN .ZIP FILE AT
'WWW.ROELKROTTJE.NL
'####################################################################
%>


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 153
27 952
271 704
798
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies