petr.novak@vitana.cz wrote:
> vytvarim formular, ktery bude umisten na serveru s ASP (PHP
> neni k dispozici) a potreboval bych poslat jeho obsah e-mailem.
> Jelikoz ale ASP nehodluji, chci poprosit, zda by mi nekdo napsal
> jednoduchou fci, popr. me odkazal na hotovy script (pokud mozno
> okomentovany).
> Potrebuji odesilat hodnoty klasickych textovych poli,
> checkboxu, radio buttonu.
--------------------------------------
ja ASP tez neholduji, nicmene projdi si tento script, treba ti to
pomuze:
<%
email=Request.Form("email")
text=Request.Form("text")
if len(email)>0 then
on error resume next
dim mymail
set mymail=server.CreateObject("cdonts.newmail")
mymail.from="petr.novak@vitana.cz"
mymail.to=email
mymail.cc="petr.novak@vitana.cz"
mymail.subject="email ze serveru vitana.cz"
mymail.body=text
mymail.send
if err.number<>0 then
Response.Write ("Neodesláno")
err.clear
else
Response.Write ("odeslano")
end if%>
on error goto 0%>
<br>
<A HREF="<%=Request.ServerVariables("script_name")%>">Návrat
zpět</A><%
else%>
<form action="<%=Request.ServerVariables("script_name")%>#priklad"
method=post id=form1 name=form1>
email adresa :<input type="text" name="email"><br>
Text :<textarea rows="2" cols="20" name="text"></textarea><br>
<input type="submit" value="Odeslat" id=submit1 name=submit1>
<input type="reset" value="Vymazat formulář" id=reset1 name=reset1>
</form><%
end if%>
- h! -
http://www.hyneklipa.cz/
This archive was generated by hypermail 2.1.3 : 29. 05. 2003, 10:22 CEST