/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
CDONTS.NewMail
Fra : Thomas


Dato : 12-06-03 12:43

Hej
Jeg har fundet følgende smarte script fra:
http://www.assonetriver.com/snippets/cdo_code.asp
Det lader til at blive afviklet fint fra min testserver (cybercity), men jeg
modtager ingen mails???
Er der nogen som kender det eller ved hvorfor.


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' CDO Email Form v1.0
' Pete Erwin http://www.assonetriver.com
If (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request("varFrom")) 'Senders Email Address
objCDO.To = cStr(Request("varTo")) 'Recipient Email Address
objCDO.CC = cStr(Request("varCC")) 'Carbon Copy Address
objCDO.Subject = cStr(Request("varSubject"))'Email Subject
objCDO.Body = cStr(Request("varMessage")) 'Email Message
objCDO.Send() 'send mail
Set objCDO = Nothing 'Clean up your objects!!!
'Response.Redirect("thanks.asp") 'use this to redirect page after delivery
Response.Write("Message Delivered") 'default response
End If
%>
<cfprocessingdirective pageEncoding="iso-8859-1">
<cfcontent type="text/html; charset=iso-8859-1">
<cfset setEncoding("URL", "iso-8859-1")>
<cfset setEncoding("FORM", "iso-8859-1")>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<!-- Start CDO Email Form -->
<form name="CDO_Email_Form" method="post" action="">
<table>
<tr>
<td>From</td>
<td> <input name="varFrom" type="text" value="tbkj@pcsg.dk" size="50">
</td>
</tr>
<tr>
<td>To</td>
<td> <input type="text" name="varTo" value="tbkj@pcsg.dk" size="50">
</td>
</tr>
<tr>
<td>CC</td>
<td> <input type="text" name="varCC" size="50"> </td>
</tr>
<tr>
<td>Subject</td>
<td> <input name="varSubject" type="text" value="test" size="50">
</td>
</tr>
<tr>
<td>Message</td>
<td> <textarea name="varMessage" cols="50" rows="5">tezst</textarea>
</td>
</tr>
<tr>
<td colspan="2"> <input type="submit" name="Submit" value="Submit">
</td>
</tr>
</table>
</form>
<!-- End CDO Email Form -->
</body>
</html>



 
 
Jørn Andersen (12-06-2003)
Kommentar
Fra : Jørn Andersen


Dato : 12-06-03 14:05

On Thu, 12 Jun 2003 13:42:46 +0200, "Thomas" <aasdasd@asdasdasd.dk>
wrote:

>Jeg har fundet følgende smarte script fra:
>http://www.assonetriver.com/snippets/cdo_code.asp
>Det lader til at blive afviklet fint fra min testserver (cybercity),

Hvorfor tror du det?
får du "Message Delivered"-meddelelsen?

>men jeg
>modtager ingen mails???
>Er der nogen som kender det eller ved hvorfor.

Umiddelbart mangler der en form action:
<snip>
><form name="CDO_Email_Form" method="post" action="">

prøv med: action="minfil.asp"
- hvor minfil.asp er navnet på den fil, som indeholder denne kode.

Ellers sker der bare det, at den gennemløber scriptet, men springer
over if'en, fordi scriptet ikke modtager noget input.

Du kunne evt. (til test) erstatte:
----
Response.Write("Message Delivered") 'default response
End If
----

med:
----
Response.Write("Message Delivered") 'default response
Else
Response.Write("No Message Delivered")
End If
----

Good luck!

--
Jørn Andersen,
Brønshøj

Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408826
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste