<%
public sub sendemail(emailfrom,emailto, emailsubject, emailbody)
dim oMail
Set oMail = Server.CreateObject("CDONTS.NewMail")
with oMail
.From = emailfrom
.To = emailto
.Subject = emailsubject
.Body = emailbody
.Send
end with
set oMail = nothing
end sub
sql="select * from centro_tblUserDtls where email='"&request("email")&"'"
rs.open sql,conn,1,1
if not rs.EOF then
response.write("Your Details already exist ")
else
rs.close
rs.open "centro_tblUserDtls",conn,1,2
rs.addnew
rs("nombre")=request("nombre")
rs("apellido")=request("apellido")
rs("grupo")=request("grupo")
rs("planta")=request("planta")
rs("telefono")=request("telefono")
rs("email")=request("email")
rs("coordinatorID")=request("coordinador")
rs.update
rs.close
sql="select * from eusers where email='"&request("email")&"'"
rs.open sql,conn,1,1
if not rs.EOF then
response.write(" ")
else
rs.close
rs.open "eusers",conn,1,2
rs.addnew
rs("fname")=request("nombre")
rs("lname")=request("apellido")
rs("phone")=request("telefono")
rs("email")=request("email")
rs("IsUnSubscribed")=0
rs("signUp")=date
rs.update
rs.close
end if
sql="select * from centro_AutoResponderDtls where ID=1"
rs.open sql,conn,1,1
autoMail=rs("email")
autoSubject=rs("subject")
autoBody=rs("body")
rs.close
call sendemail(request.form("email"),autoMail,autoSubject,strBody)
response.Write(""&autoBody&" ")
end if
%>
|
<%=title%>
