<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strSQL Dim AppName Dim Phone Dim AppAddress Dim AppMail Dim Comments if Request.QueryString("Act")="Add" then AddComments() Sub AddComments() AppName = Request.Form("name") Phone = Request.Form("phone") AppAddress = Request.Form("address") AppMail = Request.Form("email") Comments= Request.Form("comments") strSQL = "INSERT INTO acgg_general(CName , Phone,Address , Mail , Comments)" & _ "VALUES('" & AppName & "','" & Phone & "','" & AppAddress & "','" & AppMail & "','" & Comments & "')" SET Conn = Server.CreateObject("ADODB.Connection") 'Conn.Provider ="Microsoft.Jet.OLEDB.4.0" 'Conn.Open = MM_PALM_STRING Conn.Open "DSN=acggdb" Conn.Execute strSQL 'Send Mail to Admin Set MyMail = CreateObject("CDO.Message") MyMail.From= "acgginfo@bellsouth.net" MyMail.Subject="New Comment" MyMail.To= "acgginfo@bellsouth.net" 'MyMail.To= "hilloldasgupta@inuva.co.in" MyBody = AppName & " has posted a comment."& vbCrLf MyBody = MyBody & Request.Form("comments") MyMail.TextBody= MyBody MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "maxima5.abac.com" '("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.166.3" MyMail.Configuration.Fields.Update MyMail.Send end sub %> :: ACGG Development Group :: Home

 

  
 

Thank you for your comments.