Vad måste finnas på servern för att detta ska fungera

16 svar · 691 visningar · startad av Bulan 19 mars 2003

BulanMedlem sedan jan. 200324 inlägg

Frågan19 mars 2003 20:37#1

Vad måste det finnas för komponenter på servern för att det här scriptet ska fungera ?

<%@Language=VBScript%>
<%
		Dim myCDONTSMail
		Dim strFrom
		Dim strTo
		Dim strSubject
		Dim strBody

		'The following variable assignments are not required
		'they are just here to make interpretation of the
		'myCDONTSMail.Send line easier.  You could put the
		'Request.Form statements in the .Send line to cut down
		'on the amount of code in the file.
		strFrom=request.form("epost")
		strTo="namn@foretaget.se"
		strSubject = "Jag vill veta mer"
		strBody=request.form("message") & vblf & vblf & "------------------------" & vblf & vblf & "Namn:          " & request.form("namn") & vblf & "Adress:        " & request.form("adress") & vblf & "Postadress:    " & request.form("postnr") & " " & request.form("ort") & vblf & "Telefon:       " & request.form("tel") & vblf & "E-post:        " & request.form("epost") & vblf & "Foretag:       " & request.form("foretag")

		Set myCDONTSMail = CreateObject("CDONTS.NewMail")

		myCDONTSMail.Send strFrom,strTo,strSubject,strBody

		Set myCDONTSMail  = Nothing
         
		Response.Redirect("tack_vetamer.html")

%>

SebbeMedlem sedan jan. 20032 285 inlägg

19 mars 2003 20:50#2

CDONTS? :)

icaaqMedlem sedan okt. 20005 273 inlägg

19 mars 2003 20:51#3

Vad är det för server?

Om jag inte misstar mig så finns CDONTS med på IIS 5.x, så har du en win 2k server eller XP Server så ska du inte behöva installera nått annat speciellt....tror jag :OO

Mvh icaaq

BulanMedlem sedan jan. 200324 inlägg

19 mars 2003 20:56#4

Server

Det är en Small Business Server i grunden är det en win 2k med IIs 5

icaaqMedlem sedan okt. 20005 273 inlägg

19 mars 2003 21:10#5

Där ser man...... ;)

Fungerar inte den ovanstående koden ??
Om inte vad får du för felmess??

Mvh icaaq

BulanMedlem sedan jan. 200324 inlägg

19 mars 2003 21:40#6

Felkod

Den här felkoden kommer
Teknisk information (för supportpersonal)

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01AD)
ActiveX-komponenten kan inte skapa objekt.: 'CDONTS.NewMail'
/wasasten/skicka_parm.asp, line 14

Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)

Sida:
POST 169 bytes to /wasasten/skicka_parm.asp

POST Data:
form_name=Christer&form_office=Hemma&form_adr=Brunnsberg&form_postno=796+90&form_city=%C4lvdalen&form_phone=0251-20302&form_mail=christer@heddata.se&Submit=SKICKA+%9B%9B

Tid:
den 19 mars 2003, 22:37:34

JymdisMedlem sedan mars 20016 260 inlägg

19 mars 2003 21:43#7

För att Cdonts ska fungera måste SMTP i IIS vara konfigurerad.

SebbeMedlem sedan jan. 20032 285 inlägg

19 mars 2003 21:43#8

Set myCDONTSMail = [b]Server.[/b]CreateObject("CDONTS.NewMail")

Kanske det funkar då? :)

BulanMedlem sedan jan. 200324 inlägg

19 mars 2003 21:59#9

Någon som vet hur man konfigurerar servern så det fungerar eller vet någon bra webbsida om det ?

JymdisMedlem sedan mars 20016 260 inlägg

19 mars 2003 22:13#10

sök på webforum, finns här

BulanMedlem sedan jan. 200324 inlägg

19 mars 2003 22:29#11

Kan jag på något vis använda mig av exchangeservern som ligger på samma server för att få iväg mailen från hemsidan via formulären?

JymdisMedlem sedan mars 20016 260 inlägg

19 mars 2003 22:39#12

ja du konfigurerar SMTP tjänsten att connecta till exchange servern alternativt installerar jmail eller annan komponent som kopplar sig mot exchange serverns smtp server.

OveRRidEMedlem sedan feb. 200112 078 inlägg

20 mars 2003 08:48#13

Sebbe skrev:
Set myCDONTSMail = [b]Server.[/b]CreateObject("CDONTS.NewMail")
Kanske det funkar då? :)

Det spelar ingen roll, det är bara olika typer av 'sätt' att instansiera objektet.

BulanMedlem sedan jan. 200324 inlägg

20 mars 2003 11:04#14

Tar tacksamt emot tips vart jag kan hitta någon guide eller webbsida som tar upp detta med cdont hur man konfigurerar iis att fungera med exchangeservern

nikoMedlem sedan juni 20022 599 inlägg

20 mars 2003 11:22#15

Ett ganska enkelt och "fult" sätt som kanske funkar i ditt fall är att helt enkelt dumpa ett mail filmässigt i Exchange-serverns pick-upkatalog:

<% 
   Set obj_fs = Server.CreateObject("Scripting.FileSystemObject")
    sFile = sTempPath + obj_fs.GetTempName()
    Set obj_mailfile = obj_fs.OpenTextFile(sFile, 8, True)
    obj_mailfile.WriteLine ("To: " + strTo + "")
    obj_mailfile.WriteLine ("Subject: Jag vill veta mer")
    obj_mailfile.WriteLine ("From: " + strFrom + "")
   obj_mailfile.WriteLine ("")
    obj_mailfile.WriteLine (request.form("message"))
    obj_mailfile.WriteLine ("")
    obj_mailfile.Close
    Set obj_mailfile = Nothing
    obj_fs.MoveFile sFile, sPickUpPath & obj_fs.GetTempName() & ".eml"
    Set obj_fs = Nothing
%>

sPickUpPath är hela sökvägen till Exchanges pick-upkatalog (..\mailroot\vsi 1\Pickup\?) och sen måste så klart IUSR_DATORNAMN ha skrivrättigheter där.

/red: sTempPath ska ersättas med hela sökvägen till din temp-katalog med avslutande "\".

SebbeMedlem sedan jan. 20032 285 inlägg

20 mars 2003 15:22#16

OveRRidE skrev:
Sebbe skrev:
Set myCDONTSMail = [b]Server.[/b]CreateObject("CDONTS.NewMail")
Kanske det funkar då? :)
Det spelar ingen roll, det är bara olika typer av 'sätt' att instansiera objektet.

Jaha... Fick ett tips förrut når jag hade problem med CDONTS att jag skulle skriva Sever.CreateObject istället, men det kanske inte gör någon skillnad då, då :)

OveRRidEMedlem sedan feb. 200112 078 inlägg

20 mars 2003 15:27#17

Det är mer fördelaktigt att använda server.createobject.