jak na asp?

From: R.Fojtík (r_fojtik@iol.cz)
Date: 11. 11. 2001, 13:34 CET


mohl bych Vas pozadat o radu ohledne asp.
Mam na strance tento script:
( tam kde je otaznik nevim co vyplnit.)
kdyz to odeslu tak do me posty pocitac@iol.cz nic neprijde!!!!!!!!!! .
Potreboval bych aby mi prislo do meho e-mailu napr. email od xxxx@xxx.cz  a
telo zpravy napr: "potrebuje informace"
Dekuji

email=Request.Form("email")
if len(email)>0 then
   on error resume next
   dim mymail
   set mymail=server.CreateObject("cdonts.newmail")
   mymail.from="?????????????"
   mymail.to=pocitac@iol.cz
   mymail.cc=""
   mymail.subject="prosba o zaslani informaci"
   mymail.body="??????????"
   mymail.send
   if err.number<>0 then
      Response.Write ("Neodesláno")
      err.clear
   else
      Response.Write ("Odeslano děkujeme")
   end if%>

   <br>
   ">Návrat zpět<%
else%>
   <form action="<%=Request.ServerVariables("script_name")%>#priklad"
method=post id=form1 name=form1>
   Email adresa :<INPUT type="text" name=EMAIL><br>
   <br>
   <INPUT type="submit" value="Odeslat" id=submit1 name=submit1>
   <INPUT type="reset" value="Vymazat formulář" id=reset1 name=reset1>
   </form><%
end if%></td>
  </tr>
</table>



This archive was generated by hypermail 2.1.2 : 11. 11. 2001, 13:34 CET