CDONTS
27 svar · 887 visningar · startad av ade
Stödjer web10 CDONTS då?
Efter att ha kontrollerat på web10:s hemsida kan jag själv besvara min fråga:
web10 skrev:
Nedanstående komponenter är installerade på alla Windowsservrar:
aspUpload
aspMail
aspImage
jmail
MS AdRotator
MS ADODB
MS CDONTS
MS Counter
MS FSO
MS Server XMLHTTP
MS XMLHTTP
Mail Components
EtrFileUp
CDOSYS
Det bör alltså fungera. Du får visa kod.
mvh
Jag skulle gissa på att web10 ljuger på sin hemsida. Jag tror nog att de kör Windows 2003 på sina servrar, och där ingår inte CDONTS. Där får man använda CDO istället.
set mailare = Server.CreateObject("CDO.Message")
men är det på bara den raden ja gska ändra då?
Jag vet inte. Du visade ju inte någon mer kod?
mailare.TextBody = html
Verkar inte vara något jätteproffsigt script för övrigt. :)
Ska det verkligen vara html-innehåll i mailet är det möjligt att det finns en egenskap som heter HTMLBody. Prova då den istället.
mvh
men det är joakimwebs kontakta mig v3 cdonts..
https://www.joakimweb.se ladda hem det o kolla? för jag e oduglig på asp... tacksam för hjälp
Det är bättre om du visar koden här.
<!--
---------------------------------------------------------------------------
Kontakta mig v.3 [Cdonts] https://www.JoakimWeb.se
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------
-->
<%
' På denna sida finns koden som gör att dina besökares meddelanden skickas till din e-post adress.
' Det är därför viktigt att du anger korrekta uppgifter nedan.
Dim formularsida, mottagare_namn, mottagare_epost, rubrik, mailserver
formularsida = "kontakt.asp" ' Ändra här om du bytt namn på sidan med formuläret
mottagare_epost = "nykopingsljus@swipnet.se" ' Här anger du till vilken mailadress allt skall skickas
rubrik = "Mail från hemsidan" ' Ändra här om du vill ha annan rubrik på alla mail som skickas
'=================================================================================================
'OBSERVERA!
'Här nedan finns kod som gör att meddelandet skickas och skall fungera helt felfritt, det brukar
'vara fel på mailservern, eller e-post adressen som orsakar fel. Så PILLA INTE i nedanstående kod
'om du inte har goda kunskaper om ASP och vet vad du gör!
'=================================================================================================
'Här hämtas informationen och läggs i variabler.
Dim Meddelande, epost, namn, hemsida, innehall, sida
Meddelande = Request.Form("meddelande")
epost = Request.Form("epost")
namn = Request.Form("namn")
hemsida = Request.Form("hemsida")
innehall = meddelande & "$|$" & epost & "$|$" & namn & "$|$" & hemsida
sida = formularsida
'Här kontrolleras fälten så att alla obligatoriska fält är ifyllda
IF Not Len(Meddelande) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "Du glömde att skriva in ett meddelande"
Response.Redirect sida
ELSEIF Not Len(namn) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "Du glömde att fylla i ditt namn"
Response.Redirect sida
ELSEIF Not Len(epost) <> 0 then
session("falt") = innehall
Session("kontakta_mig") = "Du glömde att fylla i din e-post adress"
Response.Redirect sida
END IF
'Här kontrolleras e-post adressen
IF Instr(epost,"@") Then
' inget
ELSE
session("falt") = innehall
Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
Response.Redirect sida
END IF
IF Instr(epost,".") Then
' inget
ELSE
session("falt") = innehall
Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
Response.Redirect sida
END IF
' Här ändras hemsideadressen så att den alltid inleds med http://
IF Len(hemsida) <> 0 Then
IF Left(hemsida,7) = "http://" Then
webb = Lcase(hemsida)
ELSE
webb = "http://" & Lcase(hemsida)
END IF
END IF
'==================================================================================================
' Här börjar själva cdonts-koden. Ändra inte nedanstående kod, om du inte har goda kunskaper om ASP
' CDONTS-komponentens funktioner. Det är väldigt ovanligt att fel uppstår i nedanstående kod. Om
' Fel uppstår på raden precis nedanför denna kommentar så brukar det bero på att servern INTE HAR
' STÖD FÖR CDONTS.
'==================================================================================================
set mailare = Server.CreateObject("CDO.Message")
mailare.From = ""&epost&""
mailare.To = mottagare_epost
mailare.Subject = ""&rubrik&""
html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
"<br><br><br>------------------------------------------<br><b>Skickades:</b> " & Now & "<br><b>Namn: </b> "&_
namn & "<br><b>E-mail: </b> " & epost & "<br>"
If Len(hemsida) <> 0 then
html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>"
End If
html = html & "------------------------------------------<br></font>"
mailare.Body = ""&html&""
mailare.BodyFormat = 0
mailare.MailFormat = 0
mailare.Importance = 1
mailare.Send
Set mailare = nothing
Session("kontakta_mig") = "Meddelandet är nu skickat!"
Response.Redirect sida
%>
Jag tog bort lite onödigt skrufs ur skickandet:
set mailare = Server.CreateObject("CDO.Message")
mailare.From = epost
mailare.To = mottagare_epost
mailare.Subject = rubrik
html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
"<br><br><br>------------------------------------------<br><b>Skickades:</b> " & Now & "<br><b>Namn: </b> "&_
namn & "<br><b>E-mail: </b> " & epost & "<br>"
If Len(hemsida) <> 0 then
html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>"
End If
html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing
Och du, använd gärna [kod]-taggar när du postar kod, så blir det lite lättare att läsa.
tack så hemskt mycket.. men jag förstår inbte va du menar med post taggar?
Om du postar kod, lägg den mellan [ kod] och [ /kod] (utan mellanslag då förstås), så blir den mer lättläst.
Då får du säga åt din Internet Explorer att sluta upp med att ge dig "Egna http-felmeddelanden". Hos mig står det nämligen ganska tydligt
Active Server Pages error 'ASP 0116'
Missing close of script delimiter
/stearin/skicka.asp, line 15
The Script block lacks the close of script tag (%>).
är det nån som vet vad som neas med det?
Ja, det står ju i klartext i felmeddelandet?
Det saknas %> för att avsluta asp-blocket. Du har nog klippt bort för mycket när du skulle klistra in koden från mitt inlägg?
Okej jag fixade det men nu vart det bara vitt när jag valde att skicka!?