---

Hej alle.
Jeg er nybegynder til asp, og har et lille problem.
Jeg skulle gene have nogle textfelter (har jeg undladt at skrive) sendt til
min e-mail... og det er gjort forneden.
Men jeg skulle også gerne have den til at sende clienten tilbage til
hovedsiden....
Skal jeg indsætte <% Response.Redirect "index.htm" %> i slutningen af
formularen, eller hvad???
Hvis det altså kan gøres på denne måde???
<form action="mailto:seastar_a@ofir.dk?subject=Seastar" method=Post>
Håber på snarligt svar

Venlig Hilsen
Seastar

---

> <form action="mailto:seastar_a@ofir.dk?subject=Seastar" method=Post>
> Håber på snarligt svar

Istedet for at sætte action til en e-mail adresse, bør du sige <form
action='submit.asp' method='post'> og så lade f.eks. JMail sørge for at
sende posten.

Eks.:

<%
strSubject = Trim(Replace(Request.Form("Subject"),"'","´",1,-1))
strBody = Trim(Replace(Request.Form("Body"),"'","´",1,-1))

Set JMail = Server.CreateObject("JMail.SMTPMail")
' Mere JMail kode her
' Se http://www.dimac.net for eksempler
JMail.Execute
JMail.Close
Set JMail = Nothing

' Redirect brugeren til forsiden
Response.Status = 302
Response.AddHeader "location", "/index.asp?a=mailsent"
%>

Brugen af JMail forudsætter naturligvis, at din udbyder har komponentet
installeret.

Håber det hjalp.

/jesper/

---

Jo tak det vil jeg lige rode lidt med...
Jeg vender tilbage hvis jeg får problemer.
Takker
Seastar

"Jesper Nielsen" <jn@nielsenit.dk> skrev i en meddelelse
news:ivut7.1690$Ay.263236@news010.worldonline.dk...
> > <form action="mailto:seastar_a@ofir.dk?subject=Seastar" method=Post>
> > Håber på snarligt svar
>
> Istedet for at sætte action til en e-mail adresse, bør du sige <form
> action='submit.asp' method='post'> og så lade f.eks. JMail sørge for at
> sende posten.
>
> Eks.:
>
> <%
> strSubject = Trim(Replace(Request.Form("Subject"),"'","´",1,-1))
> strBody = Trim(Replace(Request.Form("Body"),"'","´",1,-1))
>
> Set JMail = Server.CreateObject("JMail.SMTPMail")
> ' Mere JMail kode her
> ' Se http://www.dimac.net for eksempler
> JMail.Execute
> JMail.Close
> Set JMail = Nothing
>
> ' Redirect brugeren til forsiden
> Response.Status = 302
> Response.AddHeader "location", "/index.asp?a=mailsent"
> %>
>
> Brugen af JMail forudsætter naturligvis, at din udbyder har komponentet
> installeret.
>
> Håber det hjalp.
>
> /jesper/
>
>

---

Hej igen...
Jeg har allerede fået et problem. Min udbyder understøtter ikke JMail.
Så tænkte jeg på om man ikke kunne ligge det ned i en database, og åbne det
i en anden
side???
Venlig hilsen
Seastar


"seastar" <seastar_a@ofir.dk> skrev i en meddelelse
news:3bb710f3$0$289$edfadb0f@dspool01.news.tele.dk...
> Jo tak det vil jeg lige rode lidt med...
> Jeg vender tilbage hvis jeg får problemer.
> Takker
> Seastar
>
> "Jesper Nielsen" <jn@nielsenit.dk> skrev i en meddelelse
> news:ivut7.1690$Ay.263236@news010.worldonline.dk...
> > > <form action="mailto:seastar_a@ofir.dk?subject=Seastar" method=Post>
> > > Håber på snarligt svar
> >
> > Istedet for at sætte action til en e-mail adresse, bør du sige <form
> > action='submit.asp' method='post'> og så lade f.eks. JMail sørge for at
> > sende posten.
> >
> > Eks.:
> >
> > <%
> > strSubject = Trim(Replace(Request.Form("Subject"),"'","´",1,-1))
> > strBody = Trim(Replace(Request.Form("Body"),"'","´",1,-1))
> >
> > Set JMail = Server.CreateObject("JMail.SMTPMail")
> > ' Mere JMail kode her
> > ' Se http://www.dimac.net for eksempler
> > JMail.Execute
> > JMail.Close
> > Set JMail = Nothing
> >
> > ' Redirect brugeren til forsiden
> > Response.Status = 302
> > Response.AddHeader "location", "/index.asp?a=mailsent"
> > %>
> >
> > Brugen af JMail forudsætter naturligvis, at din udbyder har komponentet
> > installeret.
> >
> > Håber det hjalp.
> >
> > /jesper/
> >
> >
>
>

---

> Jeg har allerede fået et problem. Min udbyder understøtter ikke JMail.
> Så tænkte jeg på om man ikke kunne ligge det ned i en database, og åbne
det
> i en anden
> side???

Jo, det kan du godt.

Eksempel (har ikke lige afprøvet koden, men den burde virke), hvor du lægger
de indtastede data ind i en Microsoft SQL Server database.

<%
On Error Resume Next

strConnect = "Provider=SQLOLEDB.1; Server=192.168.100.2; database=salg;
uid=salgrw; pwd=password; network=DBMSSOCN;"
strSubject = Trim(Replace(Request.Form("Subject"),"'","´",1,-1))
strBody = Trim(Replace(Request.Form("Body"),"'","´",1,-1))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect

SQL = "INSERT INTO Contact(Subject,Body) VALUES('" & strSubject
& "','" & strBody & "');"
Set Query = Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

If Err Then
Response.Write("An error occured:<br>")
Response.Write(Err.Number & " " & Err.Description & "<br>")
Response.Write(Err.Source)
Response.End
Else
Response.Status = 302
Response.AddHeader "location", "/index.asp?a=mailsent"
Response.End
End If
%>

Håber det hjalp
Du kan finde mere hjælp omkring databaser og meget mere på
<http://www.aspfaq.com>, som nok er gået hen og er blevet en af mine
favoritter mht. asp.

/jesper/