<%
If Request.Form("Save")<>"" Then
Save()
End IF
Private Sub Save
dim CnnBill ,cmd
set CnnBill =server.createobject("adodb.connection")
CnnBill.open "provider = sqloledb ;user id =sa ;initial catalog = krt"
dim cmdbill
set cmd =server.createobject ("adodb.command")
cmd.activeconnection = CnnBill
cmd.commandtext = "sp_insert_Complaint"
cmd.commandtype = 4
cmd.parameters("@Name") = Request.Form("CName")
cmd.parameters("@Address") =Request.Form("Address")
cmd.parameters("@Title") = Request.Form("Title")
cmd.parameters("@Complaint") =Request.Form("Complaint")
cmd.execute
End Sub
%>