CONTACT
Fill and Click 'Post' to Send. * - is for compulsory entry.
<% If Request.Form("sub_comment") <> "" Then err_msg = "" If Request.Form("comments") = "" Then err_msg = "Your Message Must be Included." End If If Request.Form("message_subject") = "" Then err_msg = "There is no Subject for your Message." End If If Request.Form("email") = "" Then err_msg = "Your Email is Required." End If If Request.Form("firstname") = "" Then err_msg = "You Didn't Enter Your Name." End If If err_msg <> "" Then Response.Write(err_msg) End If If err_msg = "" Then 'function to create session identifier Function AlmostUniqueID() Randomize for iCtr = 1 to 10 sChar = Chr(Int((90 - 65 + 1) * Rnd) + 65) sID = sID & sChar Next sID = sID & Month(Now) & Day(Now) & Year(Now) & Hour(Now) _ & Minute(Now) & Second(Now) AlmostUniqueID = sID End Function 'code to format the date mydate = cdate(now) formated_date = formatDateTime(mydate, vbShortDate) 'Dimension variables Dim objCDOMail 'Holds the CDONTS NewMail Object 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Who the e-mail is from objCDOMail.From = Request.Form("email") 'Who the e-mail is sent to objCDOMail.To = "info@mipan-ng.com" 'Who the blind copies are sent to objCDOMail.Bcc = "bona@del-soft.com" 'Set the subject of the e-mail objCDOMail.Subject = Request.Form("message_subject") 'Set the e-mail body format (0=HTML 1=Text) objCDOMail.BodyFormat = 0 'Set the mail format (0=MIME 1=Text) objCDOMail.MailFormat = 0 'Set the main body of the e-mail objCDOMail.Body = Request.Form("comments") 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing Response.Write("
Your Mail Was Successfully Sent.
") 'Dim objConn, rsloc 'Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("admin/abc.mdb") 'Set rsloc = Server.Createobject("ADODB.Recordset") 'Set rsloc = objCmd.Execute 'rsloc.open "comments", objConn, 0,3,2 'rsloc.open "isl_customers_file_loc", objConn, addopenstatic, addlockoptimistic, adcmdtable 'rsloc.Movelast 'rsloc.Addnew 'If Not rsloc.Eof Then 'rsloc("visitorid").value = AlmostUniqueID 'rsloc("posted_date").value = formated_date 'rsloc("firstname").value = Request.Form("firstname") 'rsloc("email").value = Request.Form("email") 'Take care of zero-entry field 'If Request.Form("phone") <> "" Then 'rsloc("phone").Value = Request.Form("phone") 'End If 'rsloc("message_nature").value = Request.Form("message_nature") 'rsloc("message_subject").value = Request.Form("message_subject") 'rsloc("comments").value = Request.Form("comments") 'rsloc.Update 'End If 'rsloc.close 'set rsloc = nothing Response.Redirect("contactus_res.asp") End If End If %>
Name*
<% If err_msg <> "" Then %>
" size="30"> <% Else %>
<% End If %>
E-mail*
<% If err_msg <> "" Then %>
" size="30"> <% Else %>
<% End If %>
Phone
<% If err_msg <> "" Then %>
" size="30"> <% Else %>
<% End If %>
Nature*
<% If err_msg <> "" Then %>
"><% Response.Write(Request.Form("message_nature")) %>
Question
Complaint
Observation
Remark
<% Else %>
Question
Complaint
Observation
Remark
<% End If %>
Subject*
<% If err_msg <> "" Then %>
" size="30"> <% Else %>
<% End If %>
Message*
<% If err_msg <> "" Then %>
<% Response.Write(Request.Form("comments")) %>
<% Else %>
<% End If %>
