Notifikationer

Markér alle som læst Log ud

htmlkrede Nybegynder

26. april 2001 - 20:56 Der er 25 kommentarer og
1 løsning

Bestillingsformular i JMAIL

Dette ASP script er lavet til CDONTS.

Det understøtter min server ikke.

Det skal derfor laves om til JMAIL.

Hvis nogle kun vil mod højere point er jeg til at snakke med....

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>

<title>Client Questionaire</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
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
Dim objMail, aRecipients
Set objMail = Server.CreateObject(\"CDONTS.NewMail\")

objMail.From = \"kjeldbirk@privat.dk\"
objMail.To = strEmail
objMail.Subject = \"Nyt spg. fra \" & strName

aRecipients = Array(\"admin@kjeldbirk.dk\")

objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Spg.: \" & strQuery
objMail.Send

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

Set objMail = Nothing
Else
%>
</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD>
<FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<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\">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>

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

Synes godt om

theartist Nybegynder

26. april 2001 - 21:01 #1

<%
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"Smtp.dinserver.com\"
JMail.Priority = 1
JMail.Sender = \"admin@kjeldbirk.com\"
JMail.AddRecipient \"test@test.dk\"
JMail.Subject = \"test\"
JMail.Body =
Jmail.execute
Set JMail = Nothing
%>

Synes godt om

Christian V. Dalsgaard Nybegynder

26. april 2001 - 21:04 #2

\'Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
Set objMail = Server.CreateObject(JMail.SMTPMail)

objMail.ServerAddress = \"mail.MinMailServer.dk\"

\'objMail.From = \"kjeldbirk@privat.dk\"
objMail.Sender = \"kjeldbirk@privat.dk\"
objMail.ReplyTo = \"kjeldbirk@privat.dk\"

\'objMail.To = strEmail
objMail.Subject = \"Nyt spg. fra \" & strName

\'aRecipients = Array(\"admin@kjeldbirk.dk\")
objMail.AddRecipient(\"admin@kjeldbirk.dk\")

\'objMail.BCC = Join(aRecipients, \";\")
objMail.Body = \"Spg.: \" & strQuery

\'objMail.Send
objMail.Execute

Synes godt om

nute Nybegynder

26. april 2001 - 21:05 #3

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>

<title>Client Questionaire</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
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 = \"[smtp_adresse]\"
JMail.Priority = 1
JMail.Sender = \"kjeldbirk@privat.dk\"
JMail.AddRecipientEx strEmail
Jmail.AddRecipientBCC Join(aRecipients, \";\")
JMail.Subject = \"Nyt spg. fra \" & strName
JMail.Body = \"Spg.: \" & strQuery
JMail.Execute
Set JMail = Nothing

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

Set objMail = Nothing
Else
%>
</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD>
<FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<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\">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>

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

/nute

Synes godt om

nute Nybegynder

27. april 2001 - 01:43 #4

hov...sorry....det var litt feil...

her kommer den korrekte:

<%
If( LEN(request(\"mode\")) > 0 ) then
body = request.form(\"navn\") & vbcrlf & request.form(\"firma\") & vbcrlf & request.form(\"adresse\") & vbcrlf & _
request.form(\"by\") & vbcrlf & request.form(\"tlf\") & vbcrlf & request.form(\"fax\") & vbcrlf & _
request.form(\"email\") & vbcrlf & request.form(\"kommentar\")
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType = \"text/html\"
JMail.ServerAddress = \"[din_smtp_adresse]\"
JMail.Priority = 1
JMail.Sender = Request.form(\"email\")
JMail.AddRecipientEx \"[mottakers_adresse]\"
JMail.Subject = Request.form(\"emne\")
JMail.Body = body
JMail.Execute
Set JMail = Nothing

Response.Write \"Mail er sendt\"

Set objMail = Nothing
Else
%>
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>?mode=send\" METHOD=POST>
<select name=\"emne\" size=\"1\">
<option value=\"Direct mail\">Direct mail</option>
<option value=\"Mødebooking\">Mødebooking</option>
<option value=\"Direct mail\">Direkte salg</option>
</select><br>
Navn : <INPUT TYPE=TEXT NAME=\"navn\" VALUE=\"\" SIZE=40> <br>
Firma :<INPUT TYPE=TEXT NAME=\"firma\" VALUE=\"\" SIZE=40> <br>
Adresse : <INPUT TYPE=TEXT NAME=\"adresse\" VALUE=\"\" SIZE=40> <br>
By : <INPUT TYPE=TEXT NAME=\"by\" VALUE=\"\" SIZE=40><br>
Tlf. : <INPUT TYPE=TEXT NAME=\"tlf\" VALUE=\"\" SIZE=40> <br>
Fax : <INPUT TYPE=TEXT NAME=\"fax\" VALUE=\"\" SIZE=40> <br>
Email : <INPUT TYPE=TEXT NAME=\"email\" VALUE=\"\" SIZE=40><br>
Evt. Kommentar : <TEXTAREA NAME=\"kommentar\" COLS=40 ROWS=10></TEXTAREA><br>
<INPUT TYPE=SUBMIT VALUE=\"Send\">
<% End If %>

/nute

Synes godt om

nute Nybegynder

27. april 2001 - 01:45 #5

hmmmm.....dette er feil vindu :) begynner å bli lit sent på natt....bare overse mitt siste postings...

Synes godt om

htmlkrede Nybegynder

27. april 2001 - 11:09 #6

Der er ingen af dem der virker!

Synes godt om

htmlkrede Nybegynder

27. april 2001 - 11:10 #7

Bemærk der skal skrives hele koden, før det kan accepteres....

Synes godt om

nute Nybegynder

27. april 2001 - 11:10 #8

hva er galt ? hvilken feil får du ?

Synes godt om

htmlkrede Nybegynder

27. april 2001 - 12:52 #9

Hvilken af dine scripts er det rigtige?

Kan du ikke lige skrive det igen?

Synes godt om

nute Nybegynder

27. april 2001 - 12:59 #10

Synes godt om

htmlkrede Nybegynder

27. april 2001 - 18:31 #11

Nute det virker ikke.

\"intern server fejl\"

Synes godt om

nute Nybegynder

27. april 2001 - 20:07 #12

well....internal server error har sjelden noe med script å gjøre... Så er det noe galt med den serveren scriptet kjører på...

Synes godt om

htmlkrede Nybegynder

28. april 2001 - 11:28 #13

lukker spm.

Synes godt om

nute Nybegynder

28. april 2001 - 15:17 #14

kunne vi få en forklaring på hvorfor du avviser svarene du har fått, og tar alle points selv ???? fungerer det ikke ? vil du ikke ha mer hjelp ?

Synes godt om

htmlkrede Nybegynder

29. april 2001 - 16:10 #15

Det fungerer ikke.

Derfor prøvede jeg bare at oprette et nyt med større præcission i hvad mit problematik var.

Synes godt om

htmlkrede Nybegynder

30. april 2001 - 21:27 #16

nute >> Jeg bruger følgende script:

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>

<title>Client Questionaire</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
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 = \"kjeldbirk@privat.dk\"
JMail.AddRecipientEx strEmail
Jmail.AddRecipientBCC Join(aRecipients, \";\")
JMail.Subject = \"Nyt spg. fra \" & strName
JMail.Body = \"Spg.: \" & strQuery
JMail.Execute
Set JMail = Nothing

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

Set objMail = Nothing
Else
%>
</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD>
<FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<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\">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>

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

ASP-filen ligger på følgende adresse:

www.kjeldbirk.dk/mail.asp
- siden er hosted på azero.dk, i deres support sider står følgende om JMAIL:

http://www.azero.dk/?/support/asp/jmail/

- hvis du mangler flere oplysninger bliver jeg på web´en det næste stykke tid. Du skal selvfølgelig nok få dine point. Håber det er information nok til at vi kan finde en løsning. Andre klart nok velkomne til at give deres svar.

//krede

Synes godt om

nute Nybegynder

01. maj 2001 - 10:23 #17

bytt ut denne linje:

JMail.ServerAddress = \"[websmtp.kjeldbirk.dk]\"

med denne:

JMail.ServerAddress = \"websmtp.kjeldbirk.dk\"

deretter skal du fjerne denne linje:

Jmail.AddRecipientBCC Join(aRecipients, \";\")

så skal det nok fungere :)

/nute

Synes godt om

htmlkrede Nybegynder

01. maj 2001 - 12:09 #18

Dette script er dit nute.

Det virker ikke efter jeg har ændret det.

Det er fedt nok hvis du lige gad og se på det igen.

Jeg har kontaktet azero og de siger de understøtter indenfor JMAIL.

Her er det :

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>

<title>Client Questionaire</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
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 = \"admin@kjeldbirk.dk\"
JMail.AddRecipientEx strEmail
JMail.Subject = \"Nyt spg. fra \" & strName
JMail.Body = \"Spg.: \" & strQuery
JMail.Execute
Set JMail = Nothing
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 objMail = Nothing
Else
%>

</CENTER>
<TABLE WIDTH=\"750\" BORDER=\"0\" ALIGN=\"center\">
<TR>
<TD>
<FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<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\">
</FORM>
</FONT>
</TD>
</TR>
</TABLE>

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

Synes godt om

nute Nybegynder

01. maj 2001 - 12:50 #19

hvilken feilmelding får du ?

Synes godt om

nute Nybegynder

01. maj 2001 - 12:50 #20

hov....bytt ut denne linje:

Dim strName, strEmail, strTlf, strQuery

med denne:

Dim strName, strEmail, strTlf, strQuery, JMail

/nute

Synes godt om

htmlkrede Nybegynder

01. maj 2001 - 13:22 #21

Vi nærmer os!!!

Se på denne her:

Microsoft VBScript runtime error \'800a01c2\'

Wrong number of arguments or invalid property assignment: \'AddRecipientEx\'

/JMAIL.asp, line 25

/htmlkrede

Synes godt om

nute Nybegynder

01. maj 2001 - 13:24 #22

lag om denne linje:

JMail.AddRecipientEx strEmail

til

JMail.AddRecipientEx strEmail, strName

/nute

Synes godt om

htmlkrede Nybegynder

01. maj 2001 - 14:36 #23

nute >>

Når jeg ændre linjen:

JMail.AddRecipientEx strEmail

til

JMail.AddRecipientEx strEmail, strName

Kommer fejl meddelsen om intern server fejl igen.

Jeg vil lige oplyse at feljmeddelserne først kommer når man prøver at sende mailen. Men det ved du vel?

Synes godt om

nute Nybegynder

01. maj 2001 - 14:49 #24

jeg la merke til at denne linje:

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

ligger litt galt...prøv å flytt den opp sånn at den ligger under:
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

eller evt fjern denne linje.

hvis det fremdeles ikke fungerer...får du ingen annen feil enn \"Internal server error\" ??

eller kan du se her:

http://www.activeserverpages.dk/aspdigital/kapitel5/jmail.asp

og sammenligne. I mine øyne skal de (etter min siste korreksjon) være fullstendig identiske ( borsett fra at eksempelet jeg refererer til benytter metodene \'AddRecipientCC\' og \'AddRecipientBCC\', men det er ikke nødvendig å ha med

/nute

Synes godt om

htmlkrede Nybegynder

01. maj 2001 - 20:53 #25

nute >> Så vidt jeg kan se har du helt ret, det gælder ligeledes når jeg indsætter og tilpasser eksemplet fra min webhoteles udbyder Azero.dk´s support side.

//aga

Synes godt om

nute Nybegynder

02. maj 2001 - 09:34 #26

trenger du fremdeles hjelp ?

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS