Avatar billede htmlkrede Nybegynder
18. maj 2001 - 17:39 Der er 11 kommentarer og
1 løsning

JMAIL skal lige rettes

Hvad er fejlen i dette her?

Der kommer ingen fejl på

www.kjeldbirk.dk/JMAIL.asp

Her er scriptet:

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<!-- Minus AutoDato -->
    <title>Spøgsmål til Revisionsfirmaet Kjeld Birk</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body BGCOLOR=\"#cccccc\">
<FONT FACE=\"\'Verdana\',\'Arial\'\" SIZE=2><CENTER>
<%
Dim strName, strEmail, strTlf, strQuery, JMail
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentType = \"text/html\"
        JMail.ServerAddress = \"websmtp.kjeldbirk.dk\" 

        JMail.Priority = 1
        JMail.Sender = strEmail 
        JMail.AddRecipient \"admin@kjeldbirk.dk\"               
        JMail.Subject = \"Nyt spg. fra \" & strName
        JMail.Body = \"Spg.: \" & strQuery & \"Telefon nummer: \" & strTlf


        JMail.Execute
        JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
     


    Response.Write \"Tak for dit spørgsmål, Revisionsfirmaet Kjeld Birk vil behandle det tidligst muligt og vende tilbage med et svar!\"
   
    Set JMail = Nothing 
Else
%>


</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD WIDTH=\"400\">
<FORM ACTION=\"/JMAIL.asp\" METHOD=POST>
<FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\"></FONT>
</FORM>


</TD>


<TD VALIGN=\"top\"><FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
Revisionsfirmaet Kjeld Birk kan kontaktes via post på følgende adresser:<BR><BR><BR><B><FONT SIZE=\"-1\">
Afdelingen i Skibby:</FONT></B><BR><BR>REVISIONSFIRMAET KJELD BIRK<BR>Højtoften 20<BR>4050 Skibby<BR>
Tlf. 4759 1090<BR>Fax 4751 2412<BR><BR><BR><B><FONT SIZE=\"-1\">Afdelingen i Helsinge:</FONT></B><BR><BR>FINN HANSEN REVISION<BR>
v. Kjeld Birk<BR>Østergade 20<BR>3200 Helsinge<BR>Tlf. 4879 9111<BR>Fax 4879 7851</FONT></TD>
</TR>
</TABLE>



<% End If %>
</FONT>
</body>
</html>



Håber nogen kan hjælpe...



//htmlkrede
Avatar billede cautoo Nybegynder
18. maj 2001 - 17:54 #1
hva skriver den???
Avatar billede htmlkrede Nybegynder
18. maj 2001 - 17:59 #2
Den skriver intet.

Der kommer ingen fejl, men heller ingen mail til admin@kjeldbirk.dk.

Det har virket tidligere i dag.

Se spørgsmål:
http://www.eksperten.dk/spm/73720.

Så ændrede jeg lidt på det... og nu virker det ikke.

Kan du se om der skulle være en fejl??
Avatar billede cautoo Nybegynder
18. maj 2001 - 18:09 #3
hvis du bare ikke modtager det må det nåsten være noget med SMTP serveren
Avatar billede htmlkrede Nybegynder
18. maj 2001 - 18:14 #4
Kan der ikke være andre grunde??

Det har jo virket tidligere..


//htmlkrede
Avatar billede bjarke-b Nybegynder
18. maj 2001 - 18:29 #5
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<!-- Minus AutoDato -->
    <title>Spøgsmål til Revisionsfirmaet Kjeld Birk</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body BGCOLOR=\"#cccccc\">
<FONT FACE=\"\'Verdana\',\'Arial\'\" SIZE=2><CENTER>
<%
Dim strName, strEmail, strTlf, strQuery, JMail
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentType = \"text/html\"
        JMail.ServerAddress = \"mail.bekhoj.dk\" 

        JMail.Priority = 1
        JMail.Sender = strEmail 
        JMail.AddRecipient \"admin@kjeldbirk.dk\"               
        JMail.Subject = \"Nyt spg. fra \" & strName
        JMail.Body = \"Spg.: \" & strQuery & \"Telefon nummer: \" & strTlf

JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
     
        JMail.Execute


    Response.Write \"Tak for dit spørgsmål, Revisionsfirmaet Kjeld Birk vil behandle det tidligst muligt og vende tilbage med et svar!\"
   
    Set JMail = Nothing 
Else
%>


</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD WIDTH=\"400\">
<FORM ACTION=\"/JMAIL.asp\" METHOD=POST>
<FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\"></FONT>
</FORM>


</TD>


<TD VALIGN=\"top\"><FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
Revisionsfirmaet Kjeld Birk kan kontaktes via post på følgende adresser:<BR><BR><BR><B><FONT SIZE=\"-1\">
Afdelingen i Skibby:</FONT></B><BR><BR>REVISIONSFIRMAET KJELD BIRK<BR>Højtoften 20<BR>4050 Skibby<BR>
Tlf. 4759 1090<BR>Fax 4751 2412<BR><BR><BR><B><FONT SIZE=\"-1\">Afdelingen i Helsinge:</FONT></B><BR><BR>FINN HANSEN REVISION<BR>
v. Kjeld Birk<BR>Østergade 20<BR>3200 Helsinge<BR>Tlf. 4879 9111<BR>Fax 4879 7851</FONT></TD>
</TR>
</TABLE>



<% End If %>
</FONT>
</body>
</html>




Måske ?

Avatar billede htmlkrede Nybegynder
18. maj 2001 - 18:35 #6
Hvad var ændringen?

Det virker ikke. (mailen er ikke kommet endnu..)

Avatar billede htmlkrede Nybegynder
18. maj 2001 - 19:25 #7
Hvordan flytter jeg tlf. formularen to ned (<br><br>)

Giv lige et eks.

Så får du dine point..

Hvad var ændrigen ??
Avatar billede bjarke-b Nybegynder
18. maj 2001 - 19:26 #8
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<!-- Minus AutoDato -->
    <title>Spøgsmål til Revisionsfirmaet Kjeld Birk</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body BGCOLOR=\"#cccccc\">
<FONT FACE=\"\'Verdana\',\'Arial\'\" SIZE=2><CENTER>
<%
Dim strName, strEmail, strTlf, strQuery, JMail
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentType = \"text/html\"
        JMail.ServerAddress = \"mail.bekhoj.dk\" 

        JMail.Priority = 1
        JMail.Sender = strEmail 
        JMail.AddRecipient \"admin@kjeldbirk.dk\"               
        JMail.Subject = \"Nyt spg. fra \" & strName
        JMail.Body = \"Spg.: \" & strQuery & \"Telefon nummer: \" & strTlf

JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
     
        JMail.Execute


    Response.Write \"Tak for dit spørgsmål, Revisionsfirmaet Kjeld Birk vil behandle det tidligst muligt og vende tilbage med et svar!\"
   
    Set JMail = Nothing 
Else
%>


</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD WIDTH=\"400\">
<FORM ACTION=\"/JMAIL.asp\" METHOD=POST>
<FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\"></FONT>
</FORM>


</TD>


<TD VALIGN=\"top\"><FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
Revisionsfirmaet Kjeld Birk kan kontaktes via post på følgende adresser:<BR><BR><BR><B><FONT SIZE=\"-1\">
Afdelingen i Skibby:</FONT></B><BR><BR>REVISIONSFIRMAET KJELD BIRK<BR>Højtoften 20<BR>4050 Skibby<BR>
Tlf. 4759 1090<BR>Fax 4751 2412<BR><BR><BR><B><FONT SIZE=\"-1\">Afdelingen i Helsinge:</FONT></B><BR><BR>FINN HANSEN REVISION<BR>
v. Kjeld Birk<BR>Østergade 20<BR>3200 Helsinge<BR>Tlf. 4879 9111<BR>Fax 4879 7851</FONT></TD>
</TR>
</TABLE>



<% End If %>
</FONT>
</body>
</html>


Avatar billede bjarke-b Nybegynder
18. maj 2001 - 19:26 #9
Jeg flyttede Jmail.Addheader op før jmail.execute ?
Avatar billede htmlkrede Nybegynder
18. maj 2001 - 19:57 #10
Jeg mener når jeg modtager mailen. I ASP-koden, ikke i htmlkoden.

Dårlig formulering. Undskyld.
Avatar billede bjarke-b Nybegynder
18. maj 2001 - 20:00 #11
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<!-- Minus AutoDato -->
    <title>Spøgsmål til Revisionsfirmaet Kjeld Birk</title>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
</head>
<body BGCOLOR=\"#cccccc\">
<FONT FACE=\"\'Verdana\',\'Arial\'\" SIZE=2><CENTER>
<%
Dim strName, strEmail, strTlf, strQuery, JMail
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentType = \"text/html\"
        JMail.ServerAddress = \"mail.bekhoj.dk\" 

        JMail.Priority = 1
        JMail.Sender = strEmail 
        JMail.AddRecipient \"admin@kjeldbirk.dk\"               
        JMail.Subject = \"Nyt spg. fra \" & strName
        JMail.Body = \"Spg.: \" & strQuery vbCrLf vbCrLf & \"Telefon nummer: \" & strTlf

JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
     
        JMail.Execute


    Response.Write \"Tak for dit spørgsmål, Revisionsfirmaet Kjeld Birk vil behandle det tidligst muligt og vende tilbage med et svar!\"
   
    Set JMail = Nothing 
Else
%>


</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD WIDTH=\"400\">
<FORM ACTION=\"/JMAIL.asp\" METHOD=POST>
<FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\"></FONT>
</FORM>


</TD>


<TD VALIGN=\"top\"><FONT FACE=\"Verdana, Arial, Helvetica\" SIZE=\"2\" COLOR=\"#000000\">
Revisionsfirmaet Kjeld Birk kan kontaktes via post på følgende adresser:<BR><BR><BR><B><FONT SIZE=\"-1\">
Afdelingen i Skibby:</FONT></B><BR><BR>REVISIONSFIRMAET KJELD BIRK<BR>Højtoften 20<BR>4050 Skibby<BR>
Tlf. 4759 1090<BR>Fax 4751 2412<BR><BR><BR><B><FONT SIZE=\"-1\">Afdelingen i Helsinge:</FONT></B><BR><BR>FINN HANSEN REVISION<BR>
v. Kjeld Birk<BR>Østergade 20<BR>3200 Helsinge<BR>Tlf. 4879 9111<BR>Fax 4879 7851</FONT></TD>
</TR>
</TABLE>



<% End If %>
</FONT>
</body>
</html>
Avatar billede htmlkrede Nybegynder
18. maj 2001 - 20:12 #12
Det virker ikke. Hverken på din eller min måde:

JMail.Body = \"Spg.: \" & strQuery & \"vbCrLf vbCrLfTelefon

Ved du hvordan man får det til at stå i Cc, hvis du ikke ved dette??
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester