Jeg kan ikke få CDONTS til at virke
Jeg har et problem. Den siger unspecified error når jeg prøver at vedhæfte filen og sende den, hvad er der galt?ElseIf mode="picture" Then
If action="Send/Afslut" Then
If Request.Form("File1") <>"" Then
Sender = "server@arnfred.dk"
' **************** Chili!Mail(SMTP)/ CDONTS
Set mailmsg = Server.CreateObject("CDONTS.NewMail")
mailmsg.From = Firstname & Surname & " <" & Sender & ">"
mailmsg.To = "soerenpeter@fynboe.dk"
mailmsg.Subject = id & " ønsker billede"
mailmsg.Body = "Hej " & Firstname & " " & Surname & " ønsker et billede til sin profil" & vbCrlf & "Billedets id er " & id
mailmsg.BodyFormat = 1 ' 0 = HTML, 1 = Plain
mailmsg.MailFormat = 1 ' 0 = MIME, 1 = Text
mailmsg.Importance = 2
mailmsg.AttachFile Request.Form("File1")
mailmsg.Send
if err.number <> 0 then
ErrorResult= Err.description
End if
Set mailmsg = nothing
If 0 = Err Then
Response.Write ("<div align=""center"" class=""h2"">Billedet er sendt!</div>")
Elseif 0 <> Err then
Response.Write ErrorResult
Err = 0
End if
End If
Response.Clear
Response.Redirect("viewprofiles.asp")
ElseIf action="" Then
%>
<p>
<FORM METHOD="POST" ACTION="editprofiles.asp?mode=picture">
<table summary="" width="85%" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
<tr>
<td align="left">
<table summary="" width="100%" align="center" cellpadding="7" cellspacing="0" bgcolor="#efefef">
<tr>
<td align="left">
Send et billede af dig selv.
Billedet bliver valideret og skåret til. Og når det er klart kommer det på din profil.
Ellers kan du sende det til mig med posten, så kan jeg scanne det ind.
</td>
<td align="left">
<INPUT TYPE="FILE" SIZE="28" NAME="File1">
<input type="submit" name="action" value="Send/Afslut">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
