<% '------------------------- 'Powered By www.tungsten-directory.com '------------------------- If SiteRunStatus = True Then PageTitle = "Comments / Suggestions Feedback" & SiteTitleNav & PageTitle SitePath = SitePath & SitePathNav & "Comments / Suggestions Feedback" StrFeed = "alert(""Please enter your name!"");history.go(-1);" Response.End Exit Sub End If If LinkMail = "" Then Response.Write "" Response.End Exit Sub Else If IsValidEmail(LinkMail) = False Then Response.Write "" Response.End Exit Sub End If End If If FeedBack = "" Then Response.Write "" Response.End Exit Sub End If If CheckCode = "" Then Response.Write "" Response.End Exit Sub End If If Trim(Session("CheckCode")) = "" Then Response.Write "" Response.End Exit Sub End If If CheckCode <> Session("CheckCode") Then Response.Write "" Response.End Exit Sub End If Set RsBack = Server.CreateObject("ADODB.RecordSet") SqlBack = "Select * From DIR_FeedBack" RsBack.Open SqlBack, Conn, 1, 3 RsBack.AddNew RsBack("FBackID") = GetNewID("DIR_FeedBack","FBackID") RsBack("NickName") = NickName RsBack("LinkMail") = LinkMail RsBack("FeedBack") = FeedBack RsBack("PostTime") = DateToStr(Now(), "Y-M-D H:I:S") RsBack.Update RsBack.Close Set RsBack = Nothing Response.Write "" End Sub %>