Formular virker ikke

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim mode, Jmail, strBody

Select Case Request.QueryString("mode")
Case ""

%>
<html>

<head>
</head>

<body bgcolor="#ffffff">
<h4 align="center"><font face="Verdana">Udfyld formularen</font></h4>

<FORM ACTION="Trial.asp?mode=send" METHOD="POST">
<TABLE BORDER=0 align=center height="500" width="519">
<tr><td height="1" width="169"><font face="Verdana" size="1">Navn:&nbsp; (<i>skal
    udfyldes</i>*)</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientName" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">Firma:</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientFirma" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">Adresse:</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientAdd" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">Post nr.:</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientPostnr" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">By:</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientBy" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">Telefon nr.:</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientTlfnr" VALUE="" SIZE=35></font></td></tr>
<tr><td height="1" width="169"><font face="Verdana" size="1">E-mail:&nbsp; (<i>skal
    udfyldes</i>*)</font></td><td height="1" width="336"><font face="Verdana" size="1"><INPUT TYPE=TEXT NAME="ClientEmail" VALUE="" SIZE=35></font></td></tr>
<tr><td valign=top height="50" width="169"><font face="Verdana" size="1">Kommentar:</font></td><td height="50" valign="top" width="336"><font face="Verdana" size="1"><TEXTAREA NAME="ClientQry" COLS=30 ROWS=8></TEXTAREA></font></td></tr>
<tr><td height="17" valign="top" width="169"></td><td height="17" valign="top" width="336"><font face="Verdana" size="1"><INPUT TYPE=SUBMIT VALUE="Send"></font></td></tr>
<tr>
<td width="500" colspan="2" height="5"></td>
</tr>
<tr>
<td width="169" height="66"><font size="1" face="Verdana">Geysergade 7<br>
  8200 Århus N<br>
  Danmark<br>
  </font>
</td>
<td width="336" height="66">
<p><font size="1" face="Verdana">Tlf.&nbsp;&nbsp;&nbsp;&nbsp; 75 65 64 11<br> Fax:&nbsp;&nbsp;&nbsp;
75 64 00 00<br>E-mail: <a style="color: #A01820" href="mailto:tnz@zincks.dk">tnz@zincks.dk</a><br></font></p>
</td>
</tr>
<tr>
<td width="500" colspan="2" height="14"></td>
</tr>
</TABLE>
</FORM>

</body>
</html>

<%
Case "send"

Dim strName, strFirma, strAdd, strPostnr, strBy, strTlfnr, strEmail, strQuery, sBody
strName = Trim(Request.Form("ClientName"))
strFirma = Trim(Request.Form("ClientFirma"))
strAdd = Trim(Request.Form("ClientAdd"))
strPostnr = Trim(Request.Form("ClientPostnr"))
strBy = Trim(Request.Form("ClientBy"))
strTlfnr = Trim(Request.Form("ClientTlfnr"))
strEmail = Trim(Request.Form("ClientEmail"))
strQuery = Trim(Request.Form("ClientQry"))

strBody = "Navn: "& strName & chr(13) & chr(10)
strBody = strBody & "Firma: "& strFirma & chr(13) & chr(10)
strBody = strBody & "Adresse: "& strAdd & chr(13) & chr(10)
strBody = strBody & "Post nr.: "& strPostnr & chr(13) & chr(10)
strBody = strBody & "By: "& strBy & chr(13) & chr(10)
strBody = strBody & "Tlf.: "& strTlfnr & chr(13) & chr(10)
strBody = strBody & "E-mail: "& strEmail & chr(13) & chr(10)
strBody = strBody & "Kommentar: "& strQuery & chr(13) & chr(10)

Set Jmail = CreateObject("Persits.MailSender")
Jmail.From = strEmail
Jmail.To = "tnz@zincks.dk"
Jmail.Subject = "Henvendelse fra Internet."
Jmail.Body = strBody
Jmail.Send
Set Jmail = Nothing
Response.Write "Tak for din henvendelse, du hører fra os snarest."
End Select



%>

Det er fordi Cliche ikke har Persits.MailSender installeret på deres servere! -Du skal bruge JMail fra Dimac i stedet for!

//>Rune

Hej Rune

Hvor kan jeg finde mere infomation om Jmail?

Kan jeg finde et kode eksampel et sted?

mvh
nz

Sure thing...

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = "Her skriver du din besked..."
JMail.Execute
Set JMail = Nothing
%>

//>Rune

Hej Rune
Tak for hjælpen jeg vil gå igang med at afprøve det.

Anytime...
Thx 4 Poinz

//>Rune

Hej Rune.

Det virker ikke.  kan du hjælpe igen.  Flere point på højkant...

Jeg har oprettet nyt spørgsmål