<% pageSql="select * from es_mainMenuDtls where ID=7" rs.open pageSql,conn,1,1 title=rs("pageTitle") keyword=rs("metaKeyword") desc=rs("metaDescription") pageDtl=rs("description") pid=7 rs.close %> <%=title%> <%=title%>

<% session("LangID")=oLang.getDefaultLang() %> <% Dim strMode strMode = request("mode") on error resume next select case strMode case "add" rs.open "eUsers",conn,1,2 rs.addnew rs("fname") = request("fname") rs("lname") = request("lname") rs("email") = request("email") rs("company") = request("company") rs("address1") = request("address1") rs("address2") = request("address2") rs("phone") = request("phone") rs("fax") = request("fax") rs("postal") = request("postal") rs("city") = request("city") rs("state") = request("state") rs("country") = request("country") rs("signUp") = Date() rs("products") = request("products") rs("comments") = request("comments") rs("IsUnSubscribed") = 0 rs("password") = request("password") rs.update rs.close case "edit" sql="select * from eusers where email = '"&request("email")&"'" rs.open sql,conn,1,2 rs("fname") = request("fname") rs("lname") = request("lname") 'rs("email") = request("email") rs("company") = request("company") rs("address1") = request("address1") rs("address2") = request("address2") rs("phone") = request("phone") rs("fax") = request("fax") rs("postal") = request("postal") rs("city") = request("city") rs("state") = request("state") rs("country") = request("country") rs("products") = request("products") rs("comments") = request("comments") rs("password") = request("password") rs.update rs.close end select if err.number = 0 then if strMode="add" then response.write("

"&olang.getmessage(session("LangID"),126)&"

") response.Write("

Regresar

") if rs.state = 1 then rs.close rs.open "select * from eAutoResponder where ID = 1",conn,1,2 strEmail = rs("email") strSub = rs("subject") strMail = rs("body") rs.close '****************Mail to User***************************** Dim objMail set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = request("email") objMail.From = strEmail objMail.Subject = strSub objMail.Body = strMail objMail.Send Set objMail = Nothing else response.write("

"&olang.getmessage(session("LangID"),127)&"

") response.Write("

"&olang.getmessage(session("LangID"),128)&"

") end if else response.Write("

"&olang.getmessage(Session("LangID"),129)&""&err.description&"

") end if %>