<%@ Language=VBScript %> <% Set oCon = Server.CreateObject("ADODB.Connection") oCon.Open dbfconncpz ocon.CursorLocation=3 Set MemRecordSet = Server.CreateObject("ADODB.Recordset") %> <% if request("subject")<>"" and request("mail")<>"" then AlertMessage = "" 'On Error Resume Next Set objMail = Server.CreateObject("CDO.Message") rem change this RemoteHost to a valid SMTP address before testing if instr(1,request("mail"),"@")=0 then objMail.From = "nic@sdl.sk" else objMail.From = request("mail") end if Mailer.to "hovorca@sdl.sk" 'Mailer.AddRecipient "sector", "saver20@hotmail.com" objMail.Subject = "Prihlaska z www stranky: " txt="Prihlaska"&vbcrlf txt="Meno:"&request("titul")&" "&request("meno")&" "&request("priezvisko")&vbcrlf txt="Adresa:"&request("bydlisko")&vbcrlf txt="Telefon:"&request("telefon")&vbcrlf txt="Email:"&request("email")&vbcrlf txt="Zamestnanie:"&request("text")&vbcrlf objMail.TextBody = txt x=objMail.Send() if x=0 then aaaa="E-mail odoslaný" else aaaa="Chyba...." end if end if %>
 PRIHLÁŠKA
Staňte sa našim členom. Po vyplnení formulára Vám pošleme ozajstnú prihlášku a nakontaktujeme Vás na niektorú základnú organizáciu. Ďakujeme.

P R I H L Á Š K A

ZA ČLENA STRANY DEMOKRATICKEJ ĽAVICE

Titul:
Meno:
Priezvisko:
Bydlisko: (mesto, obec, ulica, č. d., PSČ):
Telefón:
E-mail:
Terajšie zamestnanie profesia:
 


<% ocon.close Set oCon = nothing Set MemRecordSet = nothing %>