Avatar billede babyworm Nybegynder
27. februar 2003 - 23:55 Der er 40 kommentarer og
1 løsning

Kontaktformular

Hej.. jeg har lavet en kontakt.asp der ser sådan ud:

<html>
<head>
 
  <title>Links</title>
 
  <link rel="stylesheet" type="text/css" href="style.css">
   
</head>

<body style="MARGIN: 0px" marginheight="0" marginwidth="0" bgcolor="#CCCCCC">

  <table align="center" border="1" width="100%" height="685" cellpadding="5" cellspacing="0">

  <tr>

    <td valign="top" width="100%" height="10" bordercolor="#000000">
    <b>
      <div align="center" "class="h2">
    <h1>Kontakt os</h1><br><br>
        <form METHOD="post" ACTION="kontakt.asp?mode=send" align="left">
  <table border="0" width="100%">
    <tr>
      <td width="100%" align="center"><% if mode = "" then %>
<% mode = request("mode") %>
</td>
    </tr>
    <tr>
      <td width="100%" align="center">&nbsp;<font size="2" face="Arial"><% end if %> <% if mode = "send"

then %> <% if request.form("fra_navn") = "" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.nielsenmand.dk"
JMail.Sender = "spam@nielsenmand.dk"
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = "Nielsenmand.dk_formular"
JMail.AddRecipient "patrick@nielsenmand.dk"
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %>
      Mailen er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
    </tr>
    <tr>
      <td width="100%" align="center">
    <font size="2" face="Arial">
    <div align="left">
    <p>Dit Navn:<br>
      <input type="text" name="fra_navn" size="20"><br>
    Telefonnummer:<br>
      <input type="text" name="tlf" size="20"><br>
    E-mail:<br>
      <input type="text" name="mail" size="20"><br>
      Spørgsmål/kommentar:<br>
      <textarea cols="35" rows="6" name="besked"></textarea><br>
      <br>
      <input TYPE="submit" VALUE="Send E-mail"></font></td>
    </tr>
  </table>
</form>
      </div>
      </b></td>
  </tr>
  </table>

Hvordan får jeg den til at sende beskeden, navnet, telefonnr og emailen inde i den email der bliver sendt til mig?

Altså at der er:

[besked]

Så her skal der stå [fra]
[navn]
[nummer]
[mail]

Hvordan klarer jeg den gutter??
Avatar billede and_ Nybegynder
28. februar 2003 - 00:14 #1
Start med at få noget system i koden!


<!-- kontakt.asp -->
<%
mode = request.querystring("vis")
if mode = "sendmail" then
<% if mode = "send" then

  if request.form("fra_navn") = "" OR request.form("besked") = "" then
 
    response.write("Du mangler at indtaste en oplysning")

  else

    tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail")

    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.nielsenmand.dk"
    JMail.Sender = "spam@nielsenmand.dk"
    JMail.Sendername = Request.Form("fra_navn")
    JMail.Subject = "Nielsenmand.dk_formular"
    JMail.AddRecipient "patrick@nielsenmand.dk"
    JMail.Body = tekst
    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Silent = True
    JMail.Execute
    If JMail.Execute then
   
      response.write "Tak for din Mail."
   
    Else

      response.write !Mailen er desværre ikke afsendt prøv igen.!

    end if

else
%>

<html>
<head>
 
  <title>Links</title>
 
  <link rel="stylesheet" type="text/css" href="style.css">
   
</head>

<body style="MARGIN: 0px" marginheight="0" marginwidth="0" bgcolor="#CCCCCC">

  <form METHOD="post" ACTION="kontakt.asp?mode=send" align="left" name="frmMail">

  <table align="center" border="1" width="100%" height="685" cellpadding="5" cellspacing="0">

  <tr>

    <td valign="top" width="100%" height="10" bordercolor="#000000">

  <b>
      <div align="center" "class="h2">
    <h1>Kontakt os</h1><br><br>

      <table border="0" width="100%">
 
        <tr>
   
          <td width="100%" align="center">
 
            <div align="left"><font size="2" face="Arial"><p>Dit Navn:<br>
              <input type="text" name="fra_navn" size="20"><br>
              Telefonnummer:<br>
              <input type="text" name="tlf" size="20"><br>
              E-mail:<br>
              <input type="text" name="mail" size="20"><br>
              Spørgsmål/kommentar:<br>
              <textarea cols="35" rows="6" name="besked"></textarea><br>
              <br>
              <input TYPE="button" onclic="afsend();" VALUE="Send E-mail"></font></td>
        </tr>
     
      </table>

    </div>

  </b></td>

  </tr>

</table>

</form>

<script language="javascript">
function afsend()
{
document.frmMail.submit();
}
</script>

</body>
</html>
<%
end if
%>
Avatar billede and_ Nybegynder
28. februar 2003 - 00:15 #2
sorry - vis skal erstattes med mode

mode = request.querystring("vis")

laves om til

mode = request.querystring("mode")
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:16 #3
Fejlmeddelse... ??

Microsoft VBScript compilation error '800a0400'

Expected statement

/kontakt.asp, line 5

<% if mode = "send" then
^
Avatar billede and_ Nybegynder
28. februar 2003 - 00:18 #4
<% if mode = "send" then

erstattes med

if mode = "send" then
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:18 #5
Samme fejlmeddelse selvom jeg har ændret det...
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:19 #6
Microsoft VBScript compilation error '800a03ea'

Syntax error

/kontakt.asp, line 32

response.write !Mailen er desværre ikke afsendt prøv igen.!
---------------^

Nu fejlmeddelse
Avatar billede and_ Nybegynder
28. februar 2003 - 00:19 #7
sorry (er ved at blive træt!!!)

onclic="afsend();"

erstattes med

onclick="afsend();"
Avatar billede and_ Nybegynder
28. februar 2003 - 00:20 #8
response.write("Du mangler at indtaste en oplysning")

erstat

response.write "Du mangler at indtaste en oplysning"
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:21 #9
Samme fejlmeddelse.. Hehe.. :)
Avatar billede and_ Nybegynder
28. februar 2003 - 00:21 #10
response.write !Mailen er desværre ikke afsendt prøv igen.!

erstat

response.write "Mailen er desværre ikke afsendt prøv igen."

skulle der vist ikke være flere fejl fra min side ;)
Avatar billede and_ Nybegynder
28. februar 2003 - 00:22 #11
altså "tastefejl" ;)

hehehhe
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:22 #12
Igen... :) *G* Du får 200 for det her.. :) Hvis det altså lykkedes
Avatar billede and_ Nybegynder
28. februar 2003 - 00:23 #13
hvad er fejlen denne gang
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:23 #14
Den vil ikke... den lavar stadig fejæ
Avatar billede and_ Nybegynder
28. februar 2003 - 00:24 #15
Jeg skal helst bruge en fejlkode (jeg har ikke lige en server tilstede her hvor jeg sidder lige nu, så jeg kan ikke teste det)
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:25 #16
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/kontakt.asp, line 36

else
^
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:25 #17
:) Det er besværligt.. men den er altså også 00.22 så det er klart..
Avatar billede and_ Nybegynder
28. februar 2003 - 00:27 #18
if request.form("fra_navn") = "" OR request.form("besked") = "" then
 
    response.write("Du mangler at indtaste en oplysning")

  else

    tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail")

    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.nielsenmand.dk"
    JMail.Sender = "spam@nielsenmand.dk"
    JMail.Sendername = Request.Form("fra_navn")
    JMail.Subject = "Nielsenmand.dk_formular"
    JMail.AddRecipient "patrick@nielsenmand.dk"
    JMail.Body = tekst
    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Silent = True
    JMail.Execute
    If JMail.Execute then
   
      response.write "Tak for din Mail."
   
    Else

      response.write !Mailen er desværre ikke afsendt prøv igen.!

    end if

erstat:

  if request.form("fra_navn") = "" OR request.form("besked") = "" then
 
    response.write("Du mangler at indtaste en oplysning")

  else

    tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail")

    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.nielsenmand.dk"
    JMail.Sender = "spam@nielsenmand.dk"
    JMail.Sendername = Request.Form("fra_navn")
    JMail.Subject = "Nielsenmand.dk_formular"
    JMail.AddRecipient "patrick@nielsenmand.dk"
    JMail.Body = tekst
    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Silent = True
    JMail.Execute

      If JMail.Execute then
   
        response.write "Tak for din Mail."
   
      Else

        response.write !Mailen er desværre ikke afsendt prøv igen.!

      end if

  end if
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:27 #19
fjernede else... så sagde den at der var fejl i linje 101
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:28 #20
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/kontakt.asp, line 101
Avatar billede and_ Nybegynder
28. februar 2003 - 00:28 #21
der manglede en "end"
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:29 #22
Hvor mangler der en end?
Avatar billede and_ Nybegynder
28. februar 2003 - 00:30 #23
kig i min erstat sætning:

      If JMail.Execute then
   
        response.write "Tak for din Mail."
   
      Else

        response.write !Mailen er desværre ikke afsendt prøv igen.!

      end if

  end if
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:31 #24
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/kontakt.asp, line 103
Avatar billede and_ Nybegynder
28. februar 2003 - 00:35 #25
if mode = "sendmail" then
<% if mode = "send" then

erstat

if mode = "send" then


jeg sover virkelig timen nu

(det er også noget pis jeg ikke har en server ved hånden *suk*)
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:38 #26
Samme... hvis jeg får mit nye webhotel snart.. så må du godt låne et ftp-pass og kode ;)
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:39 #27
Hov.. slettede if mode = "sendmail" then og så nu er der ingen fejlmeddelser, men kun en hvis skærm www.nielsenmand.dk/kontakt.asp
Avatar billede and_ Nybegynder
28. februar 2003 - 00:40 #28
det vil jeg helst ikke, men du kan sende kontakt.asp til mig

ilenkop@tdcadsl.dk

Så kigger lige hurtigt på den ;)
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:40 #29
Ok... Det var også bare hvis du en dag skulle bruge en server lige nu og her.., har 100 mb
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:41 #30
It's on the way...
Avatar billede and_ Nybegynder
28. februar 2003 - 00:42 #31
Jeg har både mail og webservere hjemme hos mig selv - har først adgang til dem imorgen tidlig, men hvis de sender dit script til mig nu, kigger lige hurtigt på det ;)
Avatar billede and_ Nybegynder
28. februar 2003 - 00:43 #32
modtaget - 2 min
Avatar billede babyworm Nybegynder
28. februar 2003 - 00:44 #33
Det lyder fantastisk... hvis du får brug for hjælp en dag, så har du min mail, så skal jeg se hvad jeg kan gøre.. har mange ben indenfor webprog. men de sover nu *SuK* skal være klar til imorgen... puuuh
Avatar billede and_ Nybegynder
28. februar 2003 - 01:23 #34
Hva så??? virker det???
Avatar billede and_ Nybegynder
28. februar 2003 - 01:25 #35
Jeg går ihvertfald i seng nu.....

Klokken er mange og arbejde kalder snart..

Men jeg kigger ind omkring 14.30 imorgen....
Avatar billede and_ Nybegynder
28. februar 2003 - 14:32 #36
hva så? - har du kunnet få scriptet til at fungere???
Avatar billede babyworm Nybegynder
01. marts 2003 - 21:06 #37
Hej..du har ikke været på længe... :) har du mistet modet?? *G*
Avatar billede and_ Nybegynder
03. marts 2003 - 23:27 #38
Sorry jeg ikke lige har været der, men alle min maskiner gik ned.... "fandt" en gammel virus på en af mine diske...

Det nemmeste vare at starte maskinerne op fra ny, men jeg kigger på kontakt formularen nu.... ok?
Avatar billede babyworm Nybegynder
05. marts 2003 - 00:19 #39
Kanon.. det lyder rigtig dejligt... du kan bare sende det til min mail hvis du gider... :)
Avatar billede babyworm Nybegynder
05. marts 2003 - 00:19 #40
Patrick@nielsenmand.dk
Avatar billede babyworm Nybegynder
26. marts 2003 - 22:25 #41
Klarede den selv.. :)
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