Avatar billede george Nybegynder
05. april 2001 - 14:48 Der er 16 kommentarer og
1 løsning

færdigt script til formular/cookie

Er der nogen der har et færdigt script som kan sende en formular via mailto.exe og samtidig genner det man har indtastet i felterne ?
Avatar billede netsrac Praktikant
05. april 2001 - 14:51 #1
mailto.exe ?
Avatar billede george Nybegynder
05. april 2001 - 14:54 #2
F.eks.

<FORM NAME=\"kontakt\" ACTION=\"cgi-bin/mailto.exe\" METHOD=POST
onsubmit=\"return(checkformular());\">

o.s.v.
Avatar billede netsrac Praktikant
05. april 2001 - 15:04 #3
Hvis du har asp på serveren hvorfor så bruge et cgi script ?

Du kan finde masser af script på www.activeserverpages.dk og www.netcoders.dk
Avatar billede netsrac Praktikant
05. april 2001 - 15:04 #4
Avatar billede dudal Nybegynder
05. april 2001 - 15:07 #5
Side 1

<form action=\"side2.asp\" method=\"post\">

Navn: <input type=\"text\" name=\"navn\">
<br><br>
Telefon: <input type=\"text\" name=\"tlf\">

<br><br>

<input type=\"submit\" value=\"Send\">
</form>



Side2.asp

<%

strnavn = Request.Form(\"navn\")
strtlf = Request.Form(\"tlf\")

Set Conn    = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"forbindelse til din database\"
        Set RS    = Server.CreateObject(\"ADODB.Recordset\")

Rs.Open \"SELECT * FROM tabel i database Where 1=2\", Conn, 1,3
Rs.AddNew
Rs(\"Navn\") = strNavn
Rs(\"tlf\") = strtlf
Rs.Update
Rs.Close

strbody = \"Navn: \" & strnavn & vbCrLf & vbCrLf
strbody = strBody & \"Telefon: \" & strtlf & vbCrLf & vbCrLf

\'Gemt i db.

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType = \"text/html\"
JMail.ServerAddress = \"mail.domain.dk\"
JMail.Priority = 1
JMail.Sender = \"afsender@email.adr\"
Jmail.AddRecipient \"din mail@email.adr\"
JMail.Subject = \"Dette er emne linien..\"
JMail.Body = strBody
JMail.Execute
Set JMail = Nothing
%>

sådan cirka. :-)

Her er brugt jmail, da jeg heller ikke har en idé om hvad mailto.exe lige er.

Mvh
JEsper
Avatar billede george Nybegynder
05. april 2001 - 15:19 #6
Æhh

Dudal !
Det du viser mig her, virker det som en cookie hvor den husker hver bruger så man ikke skal taste navn o.s.v. hver gang ?
Avatar billede george Nybegynder
05. april 2001 - 15:21 #7
Netsrac

Det er jo derfor jeg giver så mange points, jeg har ikke tid til at lede efter et script der kan det jeg ønsker, det er nemmere hvis der er en der har lavet det før. :-)
Avatar billede dudal Nybegynder
05. april 2001 - 15:27 #8
Ahhh. JEg så ikke lige at det skulle være i en cookie...

Response.Cookies(\"Navn\").Expires = \"01-01-2002\"
Response.Cookies(\"Navn\") = Request.Form(\"navn\")
Response.Cookies(\"Tlf\").Expires = \"01-01-2002\"
Response.Cookies(\"Tlf\") = Request.Form(\"tlf\")

  Side 1

<form action=\"side2.asp\" method=\"post\">

Navn: <input type=\"text\" name=\"navn\" value=\"<%=Request.Cookies(\"Navn\") %>\">
<br><br>
Telefon: <input type=\"text\" name=\"tlf\" value=\"<%=Request.Cookies(\"tlf\") %>\">

<br><br>

<input type=\"submit\" value=\"Send\">
</form>
Avatar billede george Nybegynder
05. april 2001 - 15:31 #9
Dudal så nemt slipper du ikke. :-)

Hvad skal på side1.asp og hvad skal på side2.asp ?
Avatar billede dudal Nybegynder
05. april 2001 - 15:33 #10
Side 1:
-----------------
<form action=\"side2.asp\" method=\"post\">

Navn: <input type=\"text\" name=\"navn\" value=\"<%=Request.Cookies(\"Navn\") %>\">
<br><br>
Telefon: <input type=\"text\" name=\"tlf\" value=\"<%=Request.Cookies(\"tlf\") %>\">

<br><br>

<input type=\"submit\" value=\"Send\">
</form>


På side 2:
----------------------------

Response.Cookies(\"Navn\").Expires = \"01-01-2002\"
Response.Cookies(\"Navn\") = Request.Form(\"navn\")
Response.Cookies(\"Tlf\").Expires = \"01-01-2002\"
Response.Cookies(\"Tlf\") = Request.Form(\"tlf\")


------------------------------


Når du så første gang har sendt det, så er det gemt i en cookie som så formen på side 1 automatisk er udfyldt.
Avatar billede george Nybegynder
05. april 2001 - 15:38 #11
Ok dudal

Hvor bestemmer du hvilken mail den skal sendes til ?
Avatar billede dudal Nybegynder
05. april 2001 - 15:39 #12
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType = \"text/html\"
JMail.ServerAddress = \"mail.domain.dk\"
JMail.Priority = 1
JMail.Sender = \"afsender@email.adr\"

  Jmail.AddRecipient \"din mail@email.adr\"

JMail.Subject = \"Dette er emne linien..\"
JMail.Body = strBody
JMail.Execute
Set JMail = Nothing

Ved du om du har JMail på din server?
Avatar billede george Nybegynder
05. april 2001 - 15:47 #13
Der er JMail på min server, men hvor indsættes koden i formularen på side 1 ?
Avatar billede dudal Nybegynder
05. april 2001 - 15:51 #14
Det skal ligge på side 2. Lidt på samme måde som det første eksempel jeg gav. :-)

/Jesper
Avatar billede dudal Nybegynder
05. april 2001 - 16:14 #15
Funker det?
Avatar billede george Nybegynder
06. april 2001 - 09:33 #16
Det virker perfekt, tak for hjælpen.
Avatar billede george Nybegynder
06. april 2001 - 09:38 #17
Her er den samlede kode hvis der er andre der for brug det.

( default.htm )

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<HTML>
<HEAD>
    <TITLE>[Ingen titel]</TITLE>
</HEAD>
<BODY>
<form action=\"side2.asp\" method=\"post\">

Navn: <input type=\"text\" name=\"navn\" value=\"<%=Request.Cookies(\"Navn\") %>\">
<br><br>
Telefon: <input type=\"text\" name=\"tlf\" value=\"<%=Request.Cookies(\"tlf\") %>\">

<br><br>

<input type=\"submit\" value=\"Send\">
</form>

</BODY>


( side2.asp )

<%
Response.Cookies(\"Navn\").Expires = \"01-01-2002\"
Response.Cookies(\"Navn\") = Request.Form(\"navn\")
Response.Cookies(\"Tlf\").Expires = \"01-01-2002\"
Response.Cookies(\"Tlf\") = Request.Form(\"tlf\")

strNavn = request.form(\"navn\")
strtlf = request.form(\"tlf\")

strbody = \"Navn: \" & strnavn & vbCrLf
strbody = strBody & \"Telefon: \" & strtlf & vbCrLf & vbCrLf

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType = \"text/html\"
JMail.ServerAddress = \"mail.domain.dk\"
JMail.Priority = 3
JMail.SenderName = \"Peter Hansen\"
JMail.Sender = \"afsender@email.dk\"
  Jmail.AddRecipient \"mail@mail.dk\"

JMail.Subject = \"WWW Formular udfyldt !\"
JMail.Body = strBody
JMail.Execute
Set JMail = Nothing
%>
</HTML>
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