%@LANGUAGE="VBSCRIPT"%> <% UName=Request.Form("name") email=Request.Form("email") Comment=Request.Form("message") telephone=Request.Form("telephone") Enter=Request.Form("Enter") if (Enter="Send Message") then Sql="INSERT INTO Messages(UName,Email,Telephone,Comment) VALUES('" & UName & "','" & email & "','" & telephone & "','" & Comment & "')" Set Services_cmd = Server.CreateObject ("ADODB.Command") Services_cmd.ActiveConnection = MM_Connection_STRING Services_cmd.CommandText = Sql Services_cmd.Prepared = true Set RecServices = Services_cmd.Execute Response.Redirect("Thanks.html") end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||